From: Adrian Weber 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__