#!/usr/local/bin/perl

# 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 Bc_sql qw(sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Bc_chef qw(cookie_get);

use Redir qw(error_redir);

use Security qw(banned);

my $rv = 0;

my $DEBUG = 0;

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

  my $msg =  "Access Denied";

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

  print error_redir("/", $msg);

  exit 1;

}

if ($DB) {

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

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

  if (ref $result eq "HASH") {

    if ($result->{subscriber} eq 2) { $rv = 1; }

  }

}

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

print $rv;

exit 1;