From 2e54f993d255346b53c122aae6fe1888951eb616 Mon Sep 17 00:00:00 2001
From: Adrian Weber <adrian.a.weber@exp2.physik.uni-giessen.de>
Date: Mon, 17 Dec 2018 16:52:42 +0100
Subject: [PATCH] added timestamp to DMON.pm

---
 dmon/code/Dmon.pm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

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__
-- 
2.43.0