71 lines
1.5 KiB
Perl
71 lines
1.5 KiB
Perl
|
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;
|