\$!------------------------------------------------------------------------------------------- \$! \$! 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 "

# Ce sto' a lavora' io !! " \$! Write Sys\$OutPut "Aspettate ! " \$! Write Sys\$OutPut "Gelao hcal_shift@axaonl.cern.ch

" \$! \$! Set ver \$! Write Sys\$OutPut "
```"
\$! show Symbol WWW_Key*
\$! Write Sys\$OutPut "```
" \$! \$!------------------------------------------------------------------------------------------- \$! \$! 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 " ",G4_Today," ",Week_day," " \$ write Sys\$OutPut "

# ",G4_Today," ",Week_day,"

" \$ write Sys\$OutPut " [-1 Day|" \$ write Sys\$OutPut " +1 Day|" \$ write Sys\$OutPut " Calendar| " \$ write Sys\$OutPut " Control room|" \$ write Sys\$OutPut " Today]

```"
\$
\$!-------------------------------------------------------------------------------------------
\$!
\$! 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 "  Warning !!  "
\$			Write Sys\$OutPut " This file is too old, you'll find a bit odd, remember that many links were void.```

### " \$ @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 "

" \$ Else \$ Copy 'FName_Comments' Sys\$OutPut \$ EndIf \$ write Sys\$OutPut "" \$ \$!------------------------------------------------------------------------------------------- \$! \$! Hyperlink list. \$! \$ \$ write Sys\$OutPut " " \$ write Sys\$OutPut " " \$ write Sys\$OutPut "
" \$ write Sys\$OutPut " " \$ write Sys\$OutPut "

# Hcal Performance

" \$ write Sys\$OutPut "
" \$ write Sys\$OutPut " " \$ write Sys\$OutPut "
" \$ write Sys\$OutPut "

# Hcal Status

" \$ write Sys\$OutPut "
" \$ write Sys\$OutPut " " \$ write Sys\$OutPut "
" \$ Set Process /priv=NoSysPrv \$ \$!------------------------------------------------------------------------------------------- \$! \$! Good job Joe. \$! \$ \$ Exit