initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023

root/sbin/e-smith/console-menu-items/status.pl

@@ -0,0 +1,70 @@
+package esmith::console::status;
+use strict;
+use warnings;
+use esmith::console;
+use Locale::gettext;
+
+sub new
+{
+    my $class = shift;
+    my $self = {
+		    name => gettext("Check status of this server"),
+		    order => 10,
+		};
+    bless $self, $class;
+    return $self;
+}
+
+sub name
+{
+    return $_[0]->{name};
+}
+
+sub order
+{
+    return $_[0]->{order};
+}
+
+sub doit
+{
+#------------------------------------------------------------
+# STATUS:
+#------------------------------------------------------------
+    my ($self, $console, $db) = @_;
+    use POSIX qw(strftime);
+    my $today = strftime "%A %B %e, %Y", localtime;
+
+    unless (open(UPTIME, "</proc/uptime"))
+    {
+	warn("Could not open /proc/uptime: $!");
+	return;
+    }
+    my $seconds = <UPTIME>;
+    close UPTIME or warn("Could not close /proc/uptime: $!");
+
+    # Select and untaint seconds
+    $seconds =~ /(\d+)/;
+    $seconds = $1;
+
+    my $days = int ($seconds / 86400);
+    $seconds = $seconds % 86400;
+
+    my $hours = int ($seconds / 3600);
+    $seconds = $seconds % 3600;
+
+    my $minutes = int ($seconds / 60);
+    $seconds = $seconds % 60;
+
+    my ($rc, $choice) = $console->screen
+        (
+         "--title",  gettext("Status of this server as of") . " " . $today,
+
+         "--msgbox", gettext("This server has been running for") . " " .
+         $days    . " " . gettext("days")  . ", " .
+         $hours   . " " . gettext("hours") . ", " .
+         $minutes . " " . gettext("minutes"),
+         7, esmith::console::SCREEN_COLUMNS
+        );
+}
+
+return new esmith::console::status;