X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FUptime.pl;h=ac962f0d03fc2ca0513de9b47a6deb6575c49f12;hb=b02224ae78a46d2159b7eda886b5303ed4ea3169;hp=1756f7bf9f4326fce24d64f48059de25c2c33d55;hpb=c0a015c80469a83795aeb78993c48aa2376bc36d;p=infobot.git

diff --git a/src/Modules/Uptime.pl b/src/Modules/Uptime.pl
index 1756f7b..ac962f0 100644
--- 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";
   }
@@ -51,7 +51,7 @@ sub uptimeGetInfo {
   # should be no problems, even if uptime or pid is duplicated.
   ## WARN: run away forks may get through here, have to fix.
   foreach $uptime (sort {$b <=> $a} keys %uptime) {
-    foreach $pid (keys %{$uptime{$uptime}}) {
+    foreach $pid (keys %{ $uptime{$uptime} }) {
 	next if (exists $done{$pid});
 
 	push(@results,"$uptime.$pid $uptime{$uptime}{$pid}");
@@ -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,9 +83,11 @@ sub uptimeWriteFile {
   }
 
   close OUT;
+  &status("--- Saved uptime records.");
+
+  return unless defined $conn;
 
   $conn->schedule(&getRandomInt("1800-3600"), \&uptimeWriteFile, "");
-  return;
 }
 
 1;