[Openautomation-svn] SF.net SVN: openautomation:[1272] wiregate/plugin/generic/Logikprozessor.pl

[<pf...@us...>]

Revision: 1272
          http://openautomation.svn.sourceforge.net/openautomation/?rev=1272&view=rev
Author:   pfry
Date:     2012-12-30 10:24:39 +0000 (Sun, 30 Dec 2012)
Log Message:
-----------
/bin/date eliminiert, hoffentlich jetzt stabiler...

Modified Paths:
--------------
    wiregate/plugin/generic/Logikprozessor.pl

Modified: wiregate/plugin/generic/Logikprozessor.pl
===================================================================
--- wiregate/plugin/generic/Logikprozessor.pl	2012-12-29 20:01:29 UTC (rev 1271)
+++ wiregate/plugin/generic/Logikprozessor.pl	2012-12-30 10:24:39 UTC (rev 1272)
@@ -11,8 +11,19 @@
 
 # Tools und vorbesetzte Variablen fuer die Logiken
 sub limit { my ($lo,$x,$hi)=@_; return $x<$lo?$lo:($x>$hi?$hi:$x); }
-my $date=`/bin/date +"%W,%a,%u,%m,%d,%Y,%j,%H,%M,%T"`;
-plugin_log($plugname, "Datum/Uhrzeit nicht lesbar: '$date'.") unless $date=~/^(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+)$/;
+my $date=strftime("%W,%a,%u,%m,%d,%Y,%j,%H,%M,%T",localtime);
+plugin_log($plugname, "Datum/Uhrzeit nicht lesbar: '$date'.") unless ($date=~/^(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+)$/);
+#my $date=`/bin/date +"%W,%a,%u,%m,%d,%Y,%j,%H,%M,%T"`;
+#unless($date=~/^(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+)$/)
+#{
+#    plugin_log($plugname, "Datum/Uhrzeit nicht lesbar: '$date', versuche strftime.");
+#    $date=strftime("%W,%a,%u,%m,%d,%Y,%j,%H,%M,%T",time(),0,1,0,0,70,7,0);
+#    unless($date=~/^(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+),(.+)$/)
+#    {
+#	plugin_log($plugname, "Datum/Uhrzeit auch bei strftime nicht lesbar: '$date', steige aus.");
+#	return;
+#    }
+#}
 my $calendar_week=$1;
 my $day_of_week=$2;
 my $day_of_week_no=$3;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.