take a few more things literally

[infobot.git] / src / Modules / Uptime.pl

diff --git a/src/Modules/Uptime.pl b/src/Modules/Uptime.pl
index ca2e58449965c223bdd23919b75686d7ef0eff68..83b2e1b23b956f6d136d7f90f3c4e9e443e91508 100644 (file)
--- a/src/Modules/Uptime.pl
+++ b/src/Modules/Uptime.pl
@@ -5,7 +5,7 @@
 #   Created: 19990925.
 #
 
-# use strict;
+# use strict;  # TODO
 
 my $uptimerecords      = 3;
 
@@ -17,7 +17,7 @@ sub uptimeStr {
   my $uptimenow = &uptimeNow();
 
   if (defined $_[0]) {
-    return "$uptimenow.$$ running $bot_version, ended ". localtime(time());
+    return "$uptimenow.$$ running $bot_version, ended ". gmtime(time());
   } else {
     return "$uptimenow running $bot_version";
   }
@@ -69,7 +69,7 @@ sub uptimeWriteFile {
   my $file = $file{utm};
 
   if ($$ != $bot_pid) {
-    &FIXME("uptime: forked process doing weird things!");
+    &FIXME('uptime: forked process doing weird things!');
     exit 0;
   }
 
@@ -83,11 +83,11 @@ sub uptimeWriteFile {
   }
 
   close OUT;
-  &status("--- Saved uptime records.");
+  &status('--- Saved uptime records.');
 
   return unless defined $conn;
 
-  $conn->schedule(&getRandomInt("1800-3600"), \&uptimeWriteFile, "");
+  $conn->schedule(&getRandomInt('1800-3600'), \&uptimeWriteFile, '');
 }
 
 1;