From 2e54f993d255346b53c122aae6fe1888951eb616 Mon Sep 17 00:00:00 2001 From: Adrian Weber 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