added timestamp to DMON.pm

diff --git a/dmon/code/Dmon.pm b/dmon/code/Dmon.pm
index 4052662e043afea9c087678b6db751b7d7c61ae8..f5e8fe1f5ee61ea2df65d1f53166cd5056bad935 100644 (file)
--- 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__