our @toplink = (["main","Main"],
["designfiles","Designs"],
["schematics","Schematics"],
- ["publications","Publications"],
+ ["publications","Publications"],
["contact","Contact"]
);
#Entries for sidebar menu
our $menues = {
-# contact => [["contact", "Contact"],
-# ["help", "Help"]
-# ],
+ internal => [["internal/bookkeepingpadiwa", "Bookk.Padiwa"],
+ ["internal/bookkeepingpadiwaamps","Bookk. Padiwa Amps"],
+ ["internal/bookkeepingtrb3","Bookk. TRB3"],
+ ["internal/users", "User list"]
+ ],
withouthelp => [["main","Main"],
["designfiles","Designs"],
["schematics","Schematics"],
- ["publications","Publications"],
+ ["publications","Publications"],
+ ["internal/internal","Internal"],
["contact", "Contact"],
- ["help", "For Developers"]
+ ["help", "For Developers"]
],
};
#file name => menue name
our $menuselect = {
"default" => "withouthelp",
-# "contact" => "contact", #just to demonstrate it
+ "internal/internal" => "internal",
+ "internal/users" => "internal",
+ "internal/bookkeepingpadiwa" => "internal",
+ "internal/bookkeepingpadiwaamps" => "internal",
+ "internal/bookkeepingtrb3" => "internal",
};
\r
\r
use WebConfig;\r
-\r
- \r
- \r
- \r
- \r
+ \r
\r
###################################\r
##Functions\r
\r
\r
sub makeframe {\r
-my ($select) = @_;\r
+my ($select,$path) = @_;\r
my $menu = $menuselect->{"default"};\r
$menu = $menuselect->{$select} if exists $menuselect->{$select};\r
\r
\r
<head>\r
<title>TRB Readout Platform</title>\r
- <link rel="stylesheet" type="text/css" href="styleold.css">\r
+ <link rel="stylesheet" type="text/css" href="$path/styleold.css">\r
<meta charset="UTF-8"/>\r
</head>\r
\r
HDOC\r
\r
while (my ($k) = each @toplink) {\r
- print "<li><a href=\"index.pl?$toplink[$k]->[0]\">$toplink[$k]->[1]</a>\n";\r
+ print "<li><a href=\"$path/index.pl?$toplink[$k]->[0]\">$toplink[$k]->[1]</a>\n";\r
}\r
\r
\r
print <<HDOC;\r
</ul>\r
\r
-<div id="logo"><a href="/trb"><img src="logo.png" alt="Logo"></a></div>\r
+<div id="logo"><a href="/trb"><img src="$path/logo.png" alt="Logo"></a></div>\r
\r
<h2 class="header">a DAQ and TDC (in FPGA) platform</h2>\r
<h3 class="header"><font size="4"><i>Fascinating!</i></font><font size="2"><b> - Spock,</b> Science Officer, Starfleet</font></h3>\r
print "<dl id=\"navigation\"><dt>\n";\r
print "\n<dd><ul>\n";\r
while (my ($k) = each $menues->{$menu}) {\r
- print "<li><a href=\"index.pl?$menues->{$menu}->[$k]->[0]\">$menues->{$menu}->[$k]->[1]</a>\n";\r
+ if($menues->{$menu}->[$k]->[0] =~ /internal/ && !($path =~ /internal/)) {\r
+ $path.="/internal";\r
+ }\r
+ print "<li><a href=\"$path/index.pl?$menues->{$menu}->[$k]->[0]\">$menues->{$menu}->[$k]->[1]</a>\n";\r
}\r
print "</ul></dl>\r\n";\r
}\r
\r
\r
\r
-sub makefoot() {\r
+sub makefoot {\r
print <<HDOC;\r
</div>\r
<!--<div id="footer"></div>-->\r
use CGI::Carp qw(fatalsToBrowser);
use frame;
+my $path = ".";
+
my $file = $ENV{'QUERY_STRING'};
-$file = "main" unless (defined $file && $file =~ /^\w+$/ && -e "$file.htm");
+$file = "main" unless (defined $file && $file =~ /^\w+$/ && -e "$path/$file.htm" && !($file =~ /\./));
-makeframe($file);
+makeframe($file,$path);
print "<div id=\"content\">\n\n";
my $MYF;
-open ($MYF, "<$file.htm") or return "";
+open ($MYF, "<$path/$file.htm") or return "";
while (<$MYF>){
print $_;
}
print "\n\n</div>";
-makefoot();
\ No newline at end of file
+makefoot($path);
\ No newline at end of file
--- /dev/null
+ AuthType Basic
+ AuthName "TRB internal"
+ AuthUserFile /srv/www/htdocs/trb/internal/.htpasswd
+ Require valid-user
\ No newline at end of file
--- /dev/null
+trb:$apr1$gyATK0hv$I4lQqdAWQNOdmzIagiA6X1
--- /dev/null
+<h3>Padiwa Boards</h3>
+
+<table>
+<tr><th>Serial<th>Version<th>Owner<th>Location<th>Modification<th>Notes
+<tr><td>999<td>4<td>Santa Claus<td>Cloud No. 9<td>flapping wings<td>awesome
\ No newline at end of file
--- /dev/null
+<h3>PadiwaAmps Boards</h3>
+
+<table>
+<tr><th>Serial<th>Owner<th>Location<th>Modification<th>Notes
+<tr><td>999<td>Santa Claus<td>Cloud No. 9<td>flapping wings<td>awesome
\ No newline at end of file
--- /dev/null
+<h3>Padiwa Boards</h3>
+
+<table>
+<tr><th>Serial<th>Owner<th>Location<th>Modification<th>Notes
+<tr><td>1<td>Frankfurt<td>Frankfurt<td><td>
+<tr><td>2<td>Frankfurt<td>Frankfurt<td><td>
+<tr><td>3<td><td><td><td>
+<tr><td>4<td><td><td><td>
+<tr><td>5<td><td><td><td>
+<tr><td>6<td><td><td><td>
+<tr><td>7<td><td><td><td>
+<tr><td>8<td><td><td><td>
+<tr><td>9<td><td><td><td>
+<tr><td>10<td><td><td><td>
+<tr><td>11<td><td><td><td>
+<tr><td>12<td><td><td><td>
+<tr><td>13<td><td><td><td>
+<tr><td>14<td><td><td><td>
+<tr><td>15<td><td><td><td>
+<tr><td>16<td><td><td><td>
+<tr><td>17<td><td><td><td>
+<tr><td>18<td><td><td><td>
+<tr><td>19<td><td><td><td>
+<tr><td>20<td><td><td><td>
+<tr><td>21<td><td><td><td>
+<tr><td>22<td><td><td><td>
+<tr><td>23<td><td><td><td>
+<tr><td>24<td><td><td><td>
+<tr><td>25<td><td><td><td>
+<tr><td>26<td><td><td><td>
+<tr><td>27<td><td><td><td>
+<tr><td>28<td><td><td><td>
+<tr><td>29<td><td><td><td>
+<tr><td>30<td><td><td><td>
+<tr><td>31<td><td><td><td>
+<tr><td>32<td><td><td><td>
+<tr><td>33<td><td><td><td>
+<tr><td>34<td><td><td><td>
+<tr><td>35<td><td><td><td>
+<tr><td>36<td><td><td><td>
+<tr><td>37<td><td><td><td>
+<tr><td>38<td><td><td><td>
+<tr><td>39<td><td><td><td>
+<tr><td>40<td><td><td><td>
+<tr><td>41<td><td><td><td>
+<tr><td>42<td><td><td><td>
+<tr><td>43<td><td><td><td>
+<tr><td>44<td><td><td><td>
+<tr><td>45<td><td><td><td>
+<tr><td>46<td><td><td><td>
+<tr><td>47<td><td><td><td>
+<tr><td>48<td><td><td><td>
+<tr><td>49<td><td><td><td>
+<tr><td>50<td><td><td><td>
+<tr><td>51<td><td><td><td>
+<tr><td>52<td><td><td><td>
+<tr><td>53<td><td><td><td>
+<tr><td>54<td><td><td><td>
+<tr><td>55<td><td><td><td>
+<tr><td>56<td><td><td><td>
+<tr><td>57<td><td><td><td>
+<tr><td>58<td><td><td><td>
+<tr><td>59<td><td><td><td>
+<tr><td>60<td><td><td><td>
+<tr><td>61<td><td><td><td>
+<tr><td>62<td><td><td><td>
+<tr><td>63<td><td><td><td>
+<tr><td>64<td><td><td><td>
+<tr><td>65<td><td><td><td>
+<tr><td>66<td><td><td><td>
+<tr><td>67<td><td><td><td>
+<tr><td>68<td><td><td><td>
+<tr><td>69<td><td><td><td>
+<tr><td>70<td><td><td><td>
+<tr><td>71<td><td><td><td>
+<tr><td>72<td><td><td><td>
+<tr><td>73<td><td><td><td>
+<tr><td>74<td><td><td><td>
+<tr><td>75<td><td><td><td>
+<tr><td>76<td><td><td><td>
+<tr><td>77<td><td><td><td>
+<tr><td>78<td><td><td><td>
+<tr><td>79<td><td><td><td>
+<tr><td>80<td><td><td><td>
+<tr><td>81<td><td><td><td>
+<tr><td>82<td><td><td><td>
+<tr><td>83<td><td><td><td>
+<tr><td>84<td><td><td><td>
+<tr><td>85<td><td><td><td>
+<tr><td>86<td><td><td><td>
+<tr><td>87<td><td><td><td>
+<tr><td>88<td><td><td><td>
+<tr><td>89<td><td><td><td>
+<tr><td>90<td><td><td><td>
+<tr><td>91<td><td><td><td>
+<tr><td>92<td><td><td><td>
+<tr><td>93<td><td><td><td>
+<tr><td>94<td><td><td><td>
+<tr><td>95<td><td><td><td>
+<tr><td>96<td><td><td><td>
+<tr><td>97<td><td><td><td>
+<tr><td>98<td><td><td><td>
+<tr><td>99<td><td><td><td>
+<tr><td>100<td><td><td><td>
+<tr><td>101<td><td><td><td>
+<tr><td>102<td><td><td><td>
+<tr><td>103<td><td><td><td>
+<tr><td>104<td><td><td><td>
+<tr><td>105<td><td><td><td>
+<tr><td>106<td><td><td><td>
+<tr><td>107<td><td><td><td>
+<tr><td>108<td><td><td><td>
+<tr><td>109<td><td><td><td>
+<tr><td>110<td><td><td><td>
+<tr><td>111<td><td><td><td>
+<tr><td>112<td><td><td><td>
+<tr><td>113<td><td><td><td>
+<tr><td>114<td><td><td><td>
+<tr><td>115<td><td><td><td>
+<tr><td>116<td><td><td><td>
+<tr><td>117<td><td><td><td>
+<tr><td>118<td><td><td><td>
+<tr><td>119<td><td><td><td>
+<tr><td>120<td><td><td><td>
+<tr><td>121<td><td><td><td>
+<tr><td>122<td><td><td><td>
+<tr><td>123<td><td><td><td>
+<tr><td>124<td><td><td><td>
+<tr><td>125<td><td><td><td>
+<tr><td>126<td><td><td><td>
+<tr><td>127<td><td><td><td>
+<tr><td>128<td><td><td><td>
+<tr><td>129<td><td><td><td>
+<tr><td>130<td><td><td><td>
+
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+use strict;
+use warnings;
+use CGI::Carp qw(fatalsToBrowser);
+use lib "../";
+use frame;
+
+my $path = "..";
+
+
+my $file = $ENV{'QUERY_STRING'};
+$file = "main" unless (defined $file && $file =~ /^[\w\/]+$/ && -e "$path/$file.htm" && !($file =~ /\./));
+
+
+
+makeframe($file,$path);
+print "<div id=\"content\">\n\n";
+
+my $MYF;
+open ($MYF, "<$path/$file.htm") or return "";
+while (<$MYF>){
+ print $_;
+ }
+
+print "\n\n</div>";
+
+
+makefoot($path);
\ No newline at end of file
--- /dev/null
+<h3>Internal Information</h3>
+<p>Bookkeeping of Boards, Users list etc.
\ No newline at end of file
--- /dev/null
+<h3>TRB3 User Groups</h3>
+<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
+<caption></caption>
+<colgroup><col align="left" /><col align="left" /><col align="left" /><col align="left" /><col align="left" /><col align="left" /><col align="left" /><col align="left" />
+</colgroup>
+<thead>
+<tr><th scope="col">Experiment<th scope="col">Nation<th scope="col">Location<th scope="col">User<th scope="col">Project<th scope="col">Configuration<th><th>
+</thead>
+<tbody>
+<tr><td>CBM MVD<td>D<td>Frankfurt<td>Manuel Penschuck<td>CBMnet implementation<td>single TRB<td>11/13: in progress<td>
+<tr><td>CBM MVD<td>D<td>Frankfurt<td>Jan Michel<td>MVD read-out<td>single TRB<td>11/13: in progress<td>
+<tr><td>CBM RICH<td>D<td>Gießen<td>Christian Pauly<td><td>CbmRich board<td><td>
+<tr><td>CBM TOF<td>D<td>GSI<td>Jochen Frühauf<td>comparison of TRB vs. GET4<td>CBMTof board + 2 TRB<td>setup phase<td>
+<tr><td>CBM PSD<td>Russia<td>Dubna<td>Fedor Guber<td>CBM<td>only the decision to take TRB<td><td>
+<tr><td>A2 Crystal Ball<td>D<td>Mainz / MAMI<td>Andreas Neiser<td><td><td>Padiwa-AMPS<td>Debian linux
+<tr><td>A1 Neutron Detektor<td>D<td>Mainz / MAMI<td>Michaela Thiel<td>Neutron Detektor / PMTs<td>13 TRB<td>bought and delivered<td>
+<tr><td>Panda Barrel Dirc<td>D<td>Mainz<td><td><td>6 TRB & 100 Padiwa<td>in setup/ beamtime parallel to HADES<td>
+<tr><td>Panda Disc Dirc<td>D<td>Gießen<td>Benno Kroek<td><td>4 TRB & 30 Padiwa<td><td>Scientific Linux
+<tr><td>Panda/WASA<td>D<td>Erlangen<td>Adrian Zink(Schmidt)<td><td>12 TRB & Padiwa<td><td>
+<tr><td>Panda Luminosity<td>D<td>Mainz<td>Tobias Weber<td>Luminosity Monitor<td>1 TRB<td><td>
+<tr><td>Panda Straws<td>PL<td>Cracow<td>Piotr Salabura<td><td>2 TRB<td><td>
+<tr><td>Panda DAQ + SODA<td>NL<td>KVI<td>Myroslav Kavatsyuk<td><td>2 TRB<td>working<td>
+<tr><td>HADES Ecal<td>D<td>GSI<td><td><td>TRB & Padiwa<sub>Amps</sub><td><td>
+<tr><td>HADES Pion Tracker<td>D<td>München<td>Ludwig Maier<td><td>TRB & nxyter-AddOn<td><td>
+<tr><td>HADES Diamond<td>D<td>GSI<td><td><td><td><td>
+<tr><td>Human/Animal PET<td>Portugal<td>Coimbra<td>Paulo Fonte<td><td>TRB3 & ADC-AddOn<td>11/13:AddOn development started<td>
+<tr><td>New PET<td>P<td>Cracow<td>Pawel Moskal<td>innovative PET approach<td><td><td>
+<tr><td>PET<td>CH<td>Zürich/CERN<td>Werner Lustermann<td>ETH-Zürich PET<td>1 TRB & Padiwa<td>working system<td>
+<tr><td>MUSE@PSI<td>Israel<td>Jerusalem<td>Guy Ron<td>MUSE<td>1 TRB & Padiwa<td><td>
+<tr><td>MUSE@PSI<td>USA<td>Washington/Rutgers<td>Ron Gilman<td>MUSE<td>1 TRB & Padiwa<td><td>
+<tr><td>BM@N, JINR<td>Russia<td>Dubna<td>Vladimir Ladygin<td>Scifi-hodoscope<td>3 TRB & Padiwa2<td>setup phase<td>
+<tr><td>HZB<td>D<td>Berlin<td>Thomas Kleisch<td>Neutronendetektor<td>1 TRB & GP-AddOn1<td>working system<td>
+<tr><td>NA61<td>CH<td>CERN<td>Jovan Puzovic<td>NA61 TOF<td>1 TRB & Padiwa<td>running system, performance was bad<td>
+<tr><td>CB-ELSA/TAPS<td>D<td>Bonn<td>Peter Klassen<td>Crystal Barrel<td>1 TRB & GPIN<td><td>
+</tbody>
+</table>
jspc29 / trb3web.git / commitdiff