easyspider - QueryServer - contrib - SOURCE CODE

#!/usr/bin/perl
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# NPH cgi script wrapper for this web application. Can send full http response header.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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 "HTTP/1.0 200 OK\nContent-type: text/html\n\nCan't navigate to '$path' directory: $!";
    };
};
use lib qw(.);
use MTS4::STD::MyCarp;                                  # make error messages appear in the browser window
use MTS4::STD::CGI_Request;
my $r = new MTS4::STD::CGI_Request(nph => 1);
$r->process;                                            # process this cgi request

#!/usr/bin/perl
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# NPH cgi script wrapper for this web application. Can send full http response header.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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 "HTTP/1.0 200 OK\nContent-type: text/html\n\nCan't navigate to '$path' directory: $!";
    };
};
use lib qw(.);
use MTS4::STD::MyCarp;                                  # lets errors appear in browser window
use MTS4::STD::CGI_Request;
my $r = new MTS4::STD::CGI_Request(nph => 1);
$r->process;                                            # process this cgi request

#!/usr/bin/perl -T
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# NPH cgi script wrapper for this web application. Can send full http response header.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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 "HTTP/1.0 200 OK\nContent-type: text/html\n\nCan't navigate to '$path' directory: $!";
    };
};
use lib qw(.);
use MTS4::STD::MyCarp;                                  # make error messages appear in the browser window
use MTS4::STD::CGI_Request;
my $r = new MTS4::STD::CGI_Request(nph => 1);
$r->process;                                            # process this cgi request

#!/usr/bin/perl -T
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# NPH cgi script wrapper for this web application. Can send full http response header.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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 "HTTP/1.0 200 OK\nContent-type: text/html\n\nCan't navigate to '$path' directory: $!";
    };
};
use lib qw(.);
use MTS4::STD::MyCarp;                                  # lets errors appear in browser window
use MTS4::STD::CGI_Request;
my $r = new MTS4::STD::CGI_Request(nph => 1);
$r->process;                                            # process this cgi request

#!/usr/bin/perl -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;
};

#!/usr/bin/perl
############################################################################################
# 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;
};

#!/usr/bin/perl
############################################################################################
# Shell utility to set properly file permissions for the current part of this software.
# Usage: perl set-permissions.pl
# Usage (Verbose Mode): perl set-permissions.pl -v
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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;
        if(!chdir($path)){
            print "Can't navigate to '$path' directory: $!";
            exit;
        };
    };
};
BEGIN {
    use vars qw($ChmodWin $SkipChmodReason $MASK);
    $ChmodWin = 0;
    $SkipChmodReason = 0;
    if($^O =~ m{win(16|32|dows)}i){ # windows platform detected
        local $SIG{__DIE__} = sub {};
        eval("use Win32::FileSecurity qw(MakeMask Get Set)");
        if(!$@){
            $ChmodWin = 1;
            $MASK = Win32::FileSecurity::MakeMask(qw(FULL GENERIC_ALL));
        } else {
            $SkipChmodReason = $@;
        }
    }
}
umask 0000;                                             # do not mask file permissions
use IO::File;
&do;



sub do                                                  # THE MAIN WORK OF THIS SCRIPT
{
    my $verbose = $ARGV[0];
    if($SkipChmodReason){
        print "\nSKIPPING FILE PERMISSIONS SETTING FOR THIS PLATFORM BECAUSE:\n\n$SkipChmodReason\n";
    } else {

... [truncated, 201 more lines] ...

#!/usr/bin/perl
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# Standard cgi script wrapper for this web application.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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) ||
        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;
my $r = new MTS4::STD::CGI_Request;
$r->process;                                            # process this cgi request

#!/usr/bin/perl
############################################################################################
# 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;
};

#!/usr/bin/perl
############################################################################################
# Change the first line of this file if the path to your perl is not /usr/bin/perl
# Example: #!/usr/local/bin/perl
############################################################################################
# Standard cgi script wrapper for this web application.
# Author: Daniel Dinev; All rights reserved (c) 2001; http://www.chatologica.com/
############################################################################################

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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) ||
        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;
my $r = new MTS4::STD::CGI_Request;
$r->process;                                            # process this cgi request

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

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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) ||
        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;
my $r = new MTS4::STD::CGI_Request;
$r->process;                                            # process this cgi request

#!/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;
};

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

use strict;                                             # make Perl more strict to code
$^W = 1;                                                # 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) ||
        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;
my $r = new MTS4::STD::CGI_Request;
$r->process;                                            # process this cgi request