#!/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_chef qw(cookie_get);

use Bc_misc qw(get_param referrer);

use Bc_sql qw(sql_execute

              get_constant

              $DB

             );

my $DEBUG = 0;

my $output = pre_html_header();

my $loggedin = Security::get_login($db);

my $gid = get_param("gid");

my $quantity = get_param("quantity");

my $referrer = referrer();

# check if loggedin exists

# check if gid exists

# if above fails

#   redirect to REFERRER as error

# else

#   if gid{expires} is in the past

#     redirect to REFERRER as error

#   else

#     if user has enough coins

#       subtract quantity x gid cost from user's coins

#       add quantity of gid to user's giftbox

#       and redirect to previewgift.pl?gid=$gid as notice

#     else

#       redirect to REFERRER as error

print $output;

exit 1;