#!/usr/bin/perl
##############################
##  AutoGallery Pro v3.0.x  ##
#############################################################
##  patch.cgi - Update files after a patch is uploaded     ##
#############################################################



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


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



sub main
{
    if( !-w 'cron.cgi' || !-w 'scanner.cgi' )
    {
        print 'Please set the permissions to 777 on the cron.cgi and scanner.cgi files' .
              ' and then run this script again';
    }
    else
    {
        SetupScripts();
        RecompileTemplates();
        print 'Files have been patched successfully';
    }
}



sub SetupScripts
{
    my $cwd     = `pwd`;
    my @scripts = qw(cron.cgi scanner.cgi);

    chomp($cwd);

    for( @scripts )
    {
        my $file = $_;
        my $data = FileReadScalar($file);

        $$data =~ s/\r//gi;
        $$data =~ s/\$CDIR = '[^']+'/\$CDIR = '$cwd'/;

        FileWrite($file, $$data);

        if( -o $file )
        {
            chmod(0755, $file);
        }
    }
}



sub RecompileTemplates
{
    my $list = GetPageList();
    GetCategoryList();

    for( split(',', $list) )
    {
        my $page     = $_;
        $CATEGORY    = PageToCategory($page);
        my $html     = FileReadScalar("$DDIR/html/$page");
        my $compiled = CompileTGPPage($html);

        FileWrite("$DDIR/html/$page.comp", $$compiled);
    }
}