$!-------------------------------------------------------------------------------------------
$!
$! This command file creates on fly the "TODAY page",
$! if WWW_Key_1 = "" then that's the page of today 
$!	else that's the page of "WWW_Key_1" day.
$!
$! Contact person: Gelao Gennaro Gelao@Alboot.ba.infn.it
$!
$!-------------------------------------------------------------------------------------------
$!
$ write Sys$OutPut "Content-Type: text/html"
$ write Sys$OutPut ""
$!
$!-------------------------------------------------------------------------------------------
$!
$! A simple hack for debug.
$!
$! Let's make people know when i'm working on this script.
$!
$! Set nover
$! Write Sys$OutPut "<h1> Ce sto' a lavora' io !! </p>"
$! Write Sys$OutPut "Aspettate ! </p>"
$! Write Sys$OutPut "Gelao hcal_shift@axaonl.cern.ch </p></h1> "
$!
$! Set ver
$! Write Sys$OutPut "<pre>"
$! show Symbol WWW_Key*
$! Write Sys$OutPut "</pre>"
$!
$!-------------------------------------------------------------------------------------------
$!
$! What time and day is it ?
$!
$  If F$Type(WWW_Key_1) .eqs. ""
$	Then
$ 		x=F$time()
$ 		carb:=="0"
$ 		If F$Extract(0,1,x) .nes. " " then carb = F$Extract(0,1,x)
$ 		G4_Today    = F$Extract(0,2,x)+" "+F$Extract(3,3,x)+" "+F$Extract(9,2,x)
$ 		G4_Today_3  = F$Extract(0,2,x)+"-"+F$Extract(3,3,x)+"-"+F$Extract(9,2,x)
$ 		G4_Today_2  = carb+F$Extract(1,1,x)+F$Extract(3,3,x)+F$Extract(9,2,x)
$	Else
$		G4_Today    = F$Extract(0,2,WWW_Key_1)+" "+F$Extract(2,3,WWW_Key_1)+" "+F$Extract(5,2,WWW_Key_1)
$		G4_Today_3  = F$Extract(0,2,WWW_Key_1)+"-"+F$Extract(2,3,WWW_Key_1)+"-"+F$Extract(5,2,WWW_Key_1)
$		G4_Today_2  = WWW_Key_1
$		If F$Extract(0,1,G4_Today) .eqs. "0"
$			Then 
$				G4_Today	= F$Extract(1,F$Lenght(G4_Today),G4_Today)
$		EndIf 
$ EndIf 
$
$ FName 	 = "Disk$User:[hcal_shift.logbook.private.1995]"+G4_Today_2+".html"
$ FName_Comments = "Disk$User:[hcal_shift.logbook.private.1995.Comments]Comments_"+G4_Today_2+".html"
$
$ @Disk$User:[hcal_shift.logbook.private]plus_minus_day "''G4_Today_2'"
$ Week_day 	= F$CVTIME(G4_Today_3,,"WEEKDAY")
$
$!-------------------------------------------------------------------------------------------
$!
$! Headings
$!
$
$ write Sys$OutPut "<title> ",G4_Today," ",Week_day," </title>"
$ write Sys$OutPut "<h1> ",G4_Today," ",Week_day," </h1>"
$ write Sys$OutPut "<b> [<a href=/1995_Com/Today?",G4_yesterday,">-1 Day</a>|"
$ write Sys$OutPut " <a href=/1995_Com/Today?",G4_tomorrow,">+1 Day</a>|"
$ write Sys$OutPut " <a href=/1995/cale1995.html>Calendar</a>| "
$ write Sys$OutPut " <a href=/htbin/welCome.Com>Control room</a>|"
$ write Sys$OutPut " <a href=/1995_Com/Today>Today</a>]</b> </p><pre>"
$
$!-------------------------------------------------------------------------------------------
$!
$! Is requested date very old (and so in old format) ?
$!
$
$  If F$Extract(5,2,G4_Today_2) .eqs. "95" 
$	Then
$ 	If            ( ( F$EDIT( F$Extract(2,3,G4_Today_2) , "UPCASE" ) .eqs. "MAY" ) -
			.and. ( F$Extract(0,2,G4_Today_2) .lts. "02" ) ) - 
		.or. 	( F$EDIT( F$Extract(2,3,G4_Today_2) , "UPCASE" ) .eqs. "APR" ) -
		.or. 	( F$EDIT( F$Extract(2,3,G4_Today_2) , "UPCASE" ) .eqs. "MAR" ) -
$		Then
$			Write Sys$OutPut " <hr><h1> Warning !! </p> "
$			Write Sys$OutPut " This file is too old, you'll find a bit odd, remember that many links were void.</p></h1><hr></pre><h3>"
$			@Disk$User:[HCAL_shift.LOGBOOK.PRIVATE.SearchER.SearchER_Com]STAMPA_HTML.Com 'FName'
$			Exit
$		EndIf 
$ EndIf 
$
$!-------------------------------------------------------------------------------------------
$!
$! Ok let's type the comments, if any, just under the headings.
$!
$
$  If F$Search(FName_Comments) .eqs. ""
$ 	Then 
$		write Sys$OutPut "<h3></b> No Comments Today </h3>"
$	Else
$ 		Copy 'FName_Comments' Sys$OutPut
$ EndIf 
$ write Sys$OutPut "</pre>"
$
$!-------------------------------------------------------------------------------------------
$!
$! Hyperlink list.
$!
$
$ write Sys$OutPut " <!-- Hcal electronic logbook:page for day 25  July      1995 -->        "
$ write Sys$OutPut "  "
$ write Sys$OutPut " <hr>          "
$ write Sys$OutPut "  "
$ write Sys$OutPut " <H1> Hcal Performance   </H1> "
$ write Sys$OutPut " <ul>          "
$ write Sys$OutPut " <LI> <A HREF=/1995/error/error_''G4_Today_2'.html>      Error Logger       </A>"
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/data_quality?''G4_Today_2'> Data Quality       </A> (list of runs) "
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/fillt?''G4_Today_2'>      Fillt Output       </A>"
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/gas_plateau?''G4_Today_2'>   Gas Plateau        </A> "
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/calibration?''G4_Today_2'>      Calibration        </A>"
$ write Sys$OutPut " <LI> <A HREF=/1995/data/data_''G4_Today_2'.html>        Data Scan          </A>"
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/muon_eff?''G4_Today_2'>        Muon Chamber Efficiency </A>"
$ write Sys$OutPut " </ul>         "
$ write Sys$OutPut "  "
$ write Sys$OutPut " <HR>          "
$ write Sys$OutPut " <H1> Hcal Status   </H1>      "
$ write Sys$OutPut " <ul>          "
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/Over_Current_Status?''G4_Today_2'>          Over Current Status  </A>  "
$ write Sys$OutPut " <LI> <A HREF=/1995/dig/dig_''G4_Today_2'.html>          Digital Masks Status       </A>        "
$ write Sys$OutPut " <LI> <A HREF=/1995/slow/slow_''G4_Today_2'.html>        Slow Control Masks Status  </A>        "
$ write Sys$OutPut " <LI> <A HREF=/1995/ped/ped_''G4_Today_2'.html>          Pedestal Status            </A>        "
$ write Sys$OutPut " <LI> <A HREF=/1995_Com/Gas_Calibration?''G4_Today_2'>      Gas and Calibration Status </A>    "
$ write Sys$OutPut " </ul>         "
$ write Sys$OutPut "  "
$ write Sys$OutPut " <HR>          "
$ Set Process /priv=NoSysPrv
$
$!-------------------------------------------------------------------------------------------
$!
$! Good job Joe.
$!
$
$ Exit