#!/usr/local/bin/perl

# this script will return 0 if the server is undergoing maintenence

# and 1 when the server is live

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Bc_sql qw(sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Html qw(pre_html_header);

my $sql = "select * from maint";

my $rv = 1; # assume the server is active

if ($DB) {

  my $result = sql_execute($sql, "checkserver.pl");

  if ($result) {

    if ($result->{value} eq 2) { $rv = 0; } # server is undergoing maintenence

  }

}

print pre_html_header({type=>"text/plain"});

print $rv;

exit 1;