1,2c1,2
< ##!/apps/tcl7.6/bin/wish4.2
< ##!/home/adaq/halog//src/bin/jwish
---
> #!/apps/tcl7.6/bin/wish4.2
> ##!/home/cdaq/hclog/src/bin/jwish
7a8
> # 10/5/99 (saw) Fix bone headed date stuff (HC1.0)
9c10
< global ttime names channels HALOGROOT
---
> global ttime names channels HCLOGROOT
11c12
< set HALOGROOT "/u/home/adaq/halog"
---
> set HCLOGROOT "/home/cdaq/hclog"
20,22c21,23
< global Indname HALOGROOT
< catch {exec rm ${HALOGROOT}/tmp${Indname}1.gif }
< catch {exec rm ${HALOGROOT}/tmp${Indname}2.gif }
---
> global Indname HCLOGROOT
> catch {exec rm ${HCLOGROOT}/tmp${Indname}1.gif }
> catch {exec rm ${HCLOGROOT}/tmp${Indname}2.gif }
47c48
< label .titlebar.top  -relief groove -text "Hall A Log" -font -adobe-helvetica-bold-o-normal--20-140-100-100-p-98-iso8859-1 -fg Black -bg yellow
---
> label .titlebar.top  -relief groove -text "Hall C Log (Fixed 05.10.1999)" -font -adobe-helvetica-bold-o-normal--20-140-100-100-p-98-iso8859-1 -fg Black -bg yellow
96,97c97,101
< if {$env(LOGNAME) == "rom"} {
<         set User "R. Michaels"
---
> if {$env(LOGNAME) == "mack"} {
> 	set User "Mack"
> 	}
> if {$env(LOGNAME) == "saw"} {
>         set User "Wood"
99c103,109
< if {$env(LOGNAME) == "adaq"} {
---
> if {$env(LOGNAME) == "csa"} {
>         set User "C. Armstrong"
>         }
> if {$env(LOGNAME) == "cmh7k"} {
>         set User "Chris Harris"
>         }
> if {$env(LOGNAME) == "cvxwrks"} {
101a112,114
> if {$env(LOGNAME) == "cdaq"} {
>         set User ""
>         }
212c225
< label .keys.keylabel -text "Keywords for Hall A Log Entry" -relief flat -font -adobe-helvetica-bold-o-normal--14-100-100-100-p-78-iso8859-1 -fg Black
---
> label .keys.keylabel -text "Keywords for Hall C Log Entry" -relief flat -font -adobe-helvetica-bold-o-normal--14-100-100-100-p-78-iso8859-1 -fg Black
216c229
< set Feedback "Welcome to halog!"
---
> set Feedback "Welcome to hclog!"
229c242
< button .buttons.scan -text "ScanIt!" -command { exec >@stdout ${HALOGROOT}/src/scandir/ScanIt & }
---
> button .buttons.scan -text "ScanIt!" -command { exec >@stdout ${HCLOGROOT}/src/scandir/ScanIt & }
659c672
< global Date User Realtime Uptime Restoretime System Location Device Report Cater Followup Uneditedreport Keyword Feedback Elog Pic1 Pic2 Indname HALOGROOT
---
> global Date User Realtime Uptime Restoretime System Location Device Report Cater Followup Uneditedreport Keyword Feedback Elog Pic1 Pic2 Indname HCLOGROOT
661c674,675
< set Sec [exec date +%S]
---
> set FilenameDate "[exec date +%y%m%d%H%M%S]"
> set PrintableDate  [exec date "+%R:%S on %B%e,%Y"]
662a677,686
> set Filename "${HCLOGROOT}/log/tmp_html/$FilenameDate.html"
> set Giffile1 "$FilenameDate.1.gif"
> set Giffile2 "$FilenameDate.2.gif"
> set Giffiletemp1 "${HCLOGROOT}/log/tmp_html/$FilenameDate.1.gif"
> set Giffiletemp2 "${HCLOGROOT}/log/tmp_html/$FilenameDate.2.gif"
> #puts $Filename
> #puts $Giffile1
> #puts $Giffile2
> #puts $Giffiletemp1
> #puts $Giffiletemp2
664,668c688
< set Filename "${HALOGROOT}/log/tmp_html/[string range $Date 6 7][string range $Date 0 1][string range $Date 3 4][string range $Realtime 0 1][string range $Realtime 3 4]$Sec.html"
< set Giffile1 "[string range $Date 6 7][string range $Date 0 1][string range $Date 3 4][string range $Realtime 0 1][string range $Realtime 3 4]$Sec.1.gif"
< set Giffile2 "[string range $Date 6 7][string range $Date 0 1][string range $Date 3 4][string range $Realtime 0 1][string range $Realtime 3 4]$Sec.2.gif"
< set Giffiletemp1 "${HALOGROOT}/log/tmp_html/[string range $Date 6 7][string range $Date 0 1][string range $Date 3 4][string range $Realtime 0 1][string range $Realtime 3 4]$Sec.1.gif"
< set Giffiletemp2 "${HALOGROOT}/log/tmp_html/[string range $Date 6 7][string range $Date 0 1][string range $Date 3 4][string range $Realtime 0 1][string range $Realtime 3 4]$Sec.2.gif"
---
> set Alognum [exec ${HCLOGROOT}/src/hclognumber]
670d689
< set Alognum [exec ${HALOGROOT}/src/halognumber]
672d690
< 
677,678c695,696
< 	puts $f "<h4>Log entry time $Realtime:$Sec on [exec date +%B] [exec date +%e,%Y]</h4>"
< 	
---
> 	puts $f "<h4>Log entry time $PrintableDate</h4>"
>         puts $f "<!--Actual time: [exec date] on [exec uname -n], version HC1.01 -->"
698c716
< 		exec mv ${HALOGROOT}/tmp/${Indname}1.gif $Giffiletemp1
---
> 		exec mv ${HCLOGROOT}/tmp/${Indname}1.gif $Giffiletemp1
708c726
< 		exec mv ${HALOGROOT}/tmp/${Indname}2.gif $Giffiletemp2
---
> 		exec mv ${HCLOGROOT}/tmp/${Indname}2.gif $Giffiletemp2
728c746
< global User gallery1s gallery2s Indname HALOGROOT
---
> global User gallery1s gallery2s Indname HCLOGROOT
731,732c749,750
< catch {exec >@stdout ${HALOGROOT}/src/xwpick/xwpick -format gif ${HALOGROOT}/tmp/$Indname$number.gif}
< exec chmod 666 ${HALOGROOT}/tmp/$Indname$number.gif
---
> catch {exec >@stdout ${HCLOGROOT}/src/xwpick/xwpick -format gif ${HCLOGROOT}/tmp/$Indname$number.gif}
> exec chmod 666 ${HCLOGROOT}/tmp/$Indname$number.gif
734c752
< gallery$number read ${HALOGROOT}/tmp/$Indname$number.gif
---
> gallery$number read ${HCLOGROOT}/tmp/$Indname$number.gif
762c780
<       global HALOGROOT
---
>       global HCLOGROOT
776c794
<       set F [open ${HALOGROOT}/src/help.dtlite]
---
>       set F [open ${HCLOGROOT}/src/help.dtlite]
788c806
< global Pic1 Pic2 album Report env HALOGROOT
---
> global Pic1 Pic2 album Report env HCLOGROOT
793c811
< 		if {$env(LOGNAME) == "adaq"} {
---
> 		if {$env(LOGNAME) == "cdaq"} {
808,809c826,827
< 		catch {exec rm ${HALOGROOT}/tmp${Indname}1.gif }
< 		catch {exec rm ${HALOGROOT}/tmp${Indname}2.gif }
---
> 		catch {exec rm ${HCLOGROOT}/tmp${Indname}1.gif }
> 		catch {exec rm ${HCLOGROOT}/tmp${Indname}2.gif }
