#!/usr/bin/perl
##############################
##  AutoGallery Pro v2.1.x  ##
#############################################################
##  delete.cgi - utility used with the link checker        ##
#############################################################

BEGIN
{
    chdir('..');
}

use lib '.';
use cgiworks;

print "Content-type: text/html\n\n";
$HEADER = 1;

eval
{
    require 'agp.pl';
    main();
};

err("$@", 'delete.cgi') if( $@ );
exit;

#####################################################################
##  Removing the link back to CGI Works is a copyright violation.  ##
##  Altering or removing any of the code that is responsible, in   ##
##  any way, for generating that link is strictly forbidden.       ##
##  Anyone violating the above policy will have their license      ##
##  terminated on the spot.  Do not remove that link - ever.       ##
#####################################################################


sub main
{
    derr(1024) if( !$RMTUSR );
    derr(1036) if( !hasAccess(5) );

    parseget();

    dbdelete("$DDIR/dbs/$QRY{db}", $QRY{id});

    print "<center><font face='Verdana' size='2'>";
    print "Post ID $QRY{id} from the $QRY{db} database has been deleted.";
    print "</font></center>";
}