ServerStatus.pm

#!/usr/bin/perl
# See https://pandanote.info/?p=7242 for details.
package ServerStatus;

use strict;
use warnings;
use DBI;

sub getStatus {
    my $dbh = DBI->connect('DBI:MariaDB:database=serverstatus;host=localhost',
			   'serverstatus', 'Some password to store the status of remote server.',
			   { RaiseError => 1, PrintError => 0 });
 
    my $sth = $dbh->prepare('SELECT status FROM serverstatus order by id desc limit 0,1');
    $sth->execute();
    my $status = 0;
    while (my $ref = $sth->fetchrow_hashref()) {
	$status = $ref->{'status'};
    }
    
    # Disconnect from the database.
    $dbh->disconnect();
    return $status;
}
1;
__END__