#!/usr/bin/perl -T
#!C:/Perl58/bin/perl.exe -T
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# FastCGI script wrapper for this web application. Require FastCGI enabled web server.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1 if ($^O !~ /win(16|32|dows)/i);                 # enable warnings
$| = 1;                                                 # do not buffer the script output
BEGIN {
    # Now making the current working directory to be the directory where this script resides.
    # This is needed usually if the web server is IIS on Windows platform!
    my $path = $0;                                      # $0 is the full path to this script
    if($path =~ m{^(.*)[/\\][^/\\]+$}) {                # remove script filename from the path
        $path = $1;
        chdir($path) ||                                 # move to the directory of this file
        print "Content-type: text/html\n\nCan't navigate to '$path' directory: $!";
    };
};
use lib qw(.);
use MTS4::STD::MyCarp;                                   # make error messages appear on browser window
use MTS4::STD::CGI_Request;
use FCGI;                                               # load Fast CGI perl module
${${$UNIVERSAL::MTS4}{'ENV'}}{'ORG_DIE'} = $SIG{__DIE__};
my $request = FCGI::Request();
while ($request->Accept >= 0){                          # wait for an incoming request
    eval {                                              # run within eval to catch CORE::die
        $SIG{__WARN__} = sub {&MTS4::STD::MyCarp::CgiDie(shift @_,'WARNING')};
        $SIG{__DIE__} = sub {&MTS4::STD::MyCarp::CgiDie(shift @_,'ERROR')};
        my $r = new MTS4::STD::CGI_Request;
        $r->process;                                    # process this cgi request
    };
    $request->Flush;
    $request->Finish;
};