#!/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 Html qw(pre_html_header);

use Html2 qw(tag br hr embolden italicize);

use Bc_sql qw(sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Bc_chef qw(cookie_get);

use Redir qw(error_redir);

my $DEBUG = 0;

if (not user_exists($LOGGEDIN) or Security::banned($LOGGEDIN)) {

  my $msg =  "Access Denied";

  if ($DEBUG) { $msg .= " (checkcoins.pl)"; }

  print error_redir("/", $msg);

  exit 1;

}

my $sql = "select points from coins where ID=" . $DB->quote($LOGGEDIN);

my $rv = 0; # assume the user has no coins

if ($DB) {

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

  if (ref $result eq "HASH") { $rv = $result->{points}; }

}

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

print $rv;

exit 1;