From: Adrian Weber <adrian.a.weber@exp2.physik.uni-giessen.de>
Date: Mon, 17 Dec 2018 15:52:42 +0000 (+0100)
Subject: added timestamp to DMON.pm
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=2e54f993d255346b53c122aae6fe1888951eb616;p=daqtools.git

added timestamp to DMON.pm
---

diff --git a/dmon/code/Dmon.pm b/dmon/code/Dmon.pm
index 4052662..f5e8fe1 100644
--- a/dmon/code/Dmon.pm
+++ b/dmon/code/Dmon.pm
@@ -354,6 +354,31 @@ sub PadiwaSendCmdMultiple {
     } 
   return trb_register_read($board,0xd412);
   }
+  
+############################################
+# A simple date string
+sub getTimeString {
+  my $timeStamp = localtime();
+   
+  my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
+  my @days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
+  my ($sec,$minute,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
+  my $updatetime = sprintf("%03s, %02d %s %04d  -  %02d:%02d:%02d",$days[$wday], $mday, $months[$mon], 1900 + $year, $hour, $minute, $sec);
+  return $updatetime;
+  }
+
+sub qxtimeout {
+  my ($cmd, $time) = @_;
+  my @out;
+  $SIG{ALRM} = sub { $out[0] = "qxtimeout"; die };
+  $SIG{CHLD} = "IGNORE";
+  eval {
+    alarm($time);
+    @out = qx($cmd);
+    alarm(0);
+  };
+  return @out;
+}
 
 1;
 __END__