work.pl

#!/usr/bin/perl
use Template;
use DBI;
use CGI::Fast qw(:standard);

#use FCGI::ProcManager;
#use FCGI::ProcManager qw(pm_manage pm_pre_dispatch pm_post_dispatch);
#use FCGI::ProcManager qw(pm_manage pm_die pm_exit pm_pre_dispatch pm_post_dispatch);

#print "Content-type: text/html\n\n";

#my $proc_manager = FCGI::ProcManager->new({ n_processes => 50, pm_title=> 'processmanager: work.fcgi ' });
#pm_manage( n_processes => 5 );
use CGI::Cookie;
use CGI::Carp qw/croak fatalsToBrowser/;
use Data::Dumper;
use MIME::Lite;
use MIME::Base64;
use lib 'lib';
use basket_par; # ðàáîòà ñ êîðçèíîé
use send_msg_html; # îòïðàâêà HTML ïèñåì
#use db;
#use capture; # êàï÷à
# - sanman --
use Encode;
#------------
#use strict;
require 'lib/db.pm';
our $system=&get_system;
$system->{debug}=1;
$system->{fast_cgi_maxcount}=7;
$system->{logname}='log_cgi';
our $CACHE; # ññûëêà íà êåø



##########
=cut
my $WR555;
open $WR555, ">>/tmp/dump_20_02_001";
print $WR555 "_____________________\n".`date`."\n";
print $WR555 Data::Dumper->Dump( [ $ENV{HTTP_REFERER} ], ['$ENV{HTTP_REFERER}'] );
print $WR555 Data::Dumper->Dump( [ $ENV{HTTP_X_FORWARDED_FOR} ], ['$ENV{HTTP_X_FORWARDED_FOR}'] );
close $WR555;
=cut
##########

#while (new CGI::Fast) {
while (CGI::Fast->new){
    #pm_pre_dispatch();
    #print "Content-type: text/html\n\n";
    #print "ZZZ";
    our $params;
    &fcgi_loop;
}