From de6236aa87ddc0dbdcdca6e25bcd0a0534507b0c Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Fri, 30 Apr 2010 12:06:16 +0200
Subject: double-hit: Improvements to date format and update for new statistics

---
 scripts/double-hit | 48 ++++++++++++++++++++----------------------------
 1 file changed, 20 insertions(+), 28 deletions(-)

(limited to 'scripts')

diff --git a/scripts/double-hit b/scripts/double-hit
index a3d4eb07..c0e51d36 100755
--- a/scripts/double-hit
+++ b/scripts/double-hit
@@ -15,42 +15,32 @@ while ( $line = <FH> ) {
 		$filename = basename($1);
 	}
 
-	if ( $line =~ /^Peak\ statistics:\ (\d+)\ .*\ (\d+)\ .*\ (\d+)\ / ) {
+	if ( $line =~ /^Peak\ statistics:\ (\d+)\ .*\ (\d+)\ .*\ (\d+)\ .*\ (\d+)\ / ) {
 
-		my $found = $1;
-		my $close = $2;
+		my $foundclose = $1;
+		my $found = $2;
+		my $indclose = $3;
 		my $hits = $3;
 
-		$filename =~ /LCLS_(\d+)_([A-Za-z]+)(\d+)_r\d+_(\d+)_/;
+		$filename =~ /LCLS_(\d+)_([A-Za-z]+)(\d+)_r\d+_(\d\d)(\d\d)(\d\d)_/;
 		my $year = $1;
 		my $month = $2;
 		my $day = $3;
-		my $time = $4;
-
-		# Yeah, I know.
-		if ( $month eq "Jan" ) { $month = "01"; }
-		if ( $month eq "Feb" ) { $month = "02"; }
-		if ( $month eq "Mar" ) { $month = "03"; }
-		if ( $month eq "Apr" ) { $month = "04"; }
-		if ( $month eq "May" ) { $month = "05"; }
-		if ( $month eq "Jun" ) { $month = "06"; }
-		if ( $month eq "Jul" ) { $month = "07"; }
-		if ( $month eq "Aug" ) { $month = "08"; }
-		if ( $month eq "Sep" ) { $month = "09"; }
-		if ( $month eq "Oct" ) { $month = "10"; }
-		if ( $month eq "Nov" ) { $month = "11"; }
-		if ( $month eq "Dec" ) { $month = "12"; }
+		my $hour = $4;
+		my $min = $5;
+		my $sec = $6;
 
 		my $div;
 
 		if ( $close > 0 ) {
-			$div = $found / $close;
+			$div = $found / $foundclose;
 		} else {
 			$div = 0.0;
 		}
 
-		printf(OFH "%s%s%s%s %f\n", $year, $month, $day, $time,
-		                            $div);
+		printf(OFH "%s/%s/%s-%s:%s:%s %f\n", $year, $month, $day,
+		                                     $hour, $min, $sec,
+		                                     $div);
 	}
 
 }
@@ -59,12 +49,14 @@ close(FH);
 close(OFH);
 
 open(GP, "| gnuplot");
-printf(GP "set term postscript enhanced font \"Helvetica,20\"\n");
-printf(GP "set output \"doublehit.ps\"\n");
-printf(GP "set xtics nomirror out rotate by -60\n");
-print(GP "set format x \"%15.0f\"\n");
-printf(GP "unset key\n");
-printf(GP "plot [] [1:4] \"doublehit.dat\" u 1:2 w points\n");
+print(GP "set term postscript enhanced font \"Helvetica,20\"\n");
+print(GP "set output \"doublehit.ps\"\n");
+print(GP "set xtics nomirror out rotate by -60\n");
+print(GP "set xdata time\n");
+print(GP "set timefmt \"%Y/%b/%d-%H:%M:%S\"\n");
+print(GP "set format x \"%d/%b %H:%M\"\n");
+print(GP "unset key\n");
+print(GP "plot [] [0:5] \"doublehit.dat\" u 1:2 w points\n");
 close(GP);
 
 system("ps2pdf doublehit.ps");
-- 
cgit v1.2.3