#!/usr/bin/perl -Ilib
#======================================================================================#
use strict;
#======================================================================================#
main();
#======================================================================================#
sub main {
#======================================================================================#

    if($ENV{"REQUEST_METHOD"} eq 'GET') {

        $ENV{"QUERY_STRING"} = 'act=printSitemap';
        exec('./index.pl');

    } else {

        print "Status: 403 Forbidden\n";
    }
}
#======================================================================================#
1;