#!/usr/bin/perl
##############################
##  AutoGallery Pro v3.0.x  ##
#############################################################
##  report.cgi - Handle broken link and cheater reporting  ##
#############################################################



eval
{
    require 'common.pl';
    require 'agp.pl';
    Header("Content-type: text/html\n\n");
    main();
};


if( $@ )
{
    Error("$@", 'report.cgi');
}



sub main
{
    ParseRequest(1);

    if( $ENV{'REQUEST_METHOD'} eq 'GET' )
    {
        DisplayReport();
    }
    else
    {
        ProcessReport();
    }
}



sub DisplayReport
{
    my $gallery = undef;

    if( !$F{'db'} || !$F{'id'} )
    {
        SubmitError('E_NO_ID_OR_DB');
    }

    $gallery = DBSelect("$DDIR/dbs/$F{'db'}", $F{'id'});

    if( !$gallery )
    {
        SubmitError('E_BAD_ID');
    }

    HashToTemplate($gallery);

    $T{'Database'} = $F{'db'};

    ParseTemplate('report_main.tpl');
}



sub ProcessReport
{
    my $gallery = undef;

    SubmitError('E_REQUIRED', 'REPORT') if( !$F{'Report'} );

    $gallery = DBSelect("$DDIR/dbs/$F{'Database'}", $F{'Gallery_ID'});

    $gallery->{'Report_ID'} = GetReportID();
    $gallery->{'Report'}    = $F{'Report'};
    $gallery->{'Database'}  = $F{'Database'};
    $gallery->{'Report_IP'} = $ENV{'REMOTE_ADDR'};

    DBInsert("$DDIR/dbs/reports", $gallery);

    HashToTemplate($gallery);

    $T{'TGP_URL'} = "$MAIN_URL/" . (split(/,/, $MAIN_PAGES))[0];

    ParseTemplate('report_sent.tpl');
}