Помогите разобраться ...
use CGI::Carp qw(fatalsToBrowser);
$g_thisscript = $ENV{SCRIPT_NAME};
if ($g_thisscript =~ /\\.(\\w+)$/) {$_ext = $1}
sub Ext {
my $file = shift;
my $result = $file . \'.\' . $_ext;
return $result;
} # sub Ext
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
($0 =~ m,(.*)\\\\[^\\\\]+,) && unshift (@INC, "$1");
require &Ext("arp3-config");
require &Ext("arp3-settings");
require &Ext("arp3-logs");
require &Ext("arp3-background");
require &Ext("arp3-customtags");
require &Ext("arp3-library");
require &Ext("arp3-locks");
require &Ext("arp3-dynamic");
require &Ext("arp3-login");
require &Ext("arp3-autoresponders");
require &Ext("arp3-broadcast");
require &Ext("arp3-backup");
require &Ext("arp3-display");
require &Ext("arp3-cookies");
require &Ext("arp3-validate");
require &Ext("arp3-mail");
require &Ext("arp3-trackingtags");
require &Ext("arp3-setup");
require &Ext("arp3-version");
require &Ext("arp3-profile");
require &Ext("arp3-subscribers");
require &Ext("arp3-mytags");
require &Ext("arp3-data");
require &Ext("arp3-menu");
require &Ext("arp3-links");
}; # eval
$g_thisserver = $ENV{SERVER_NAME};
$g_browser = $ENV{HTTP_USER_AGENT};
$g_settings = &db_select_row("SELECT * FROM $db_table_SETTINGS WHERE id=1");
%g_settings = %$g_settings;
$g_profile = &db_select_row("SELECT * FROM $db_table_OWN WHERE id=1");
&ReadInput;
$g_a0 = $INFO{a0};
$g_a1 = $INFO{a1};
$g_a2 = $INFO{a2};
$g_a3 = $INFO{a3};
$g_a4 = $INFO{a4};
$g_ret = $INFO{ret};
if (! $g_a0) {$g_a0 = $FORM{a0}}
if ($g_a0 eq "log")
{&Login}
# {print "Hello"}
elsif ($g_a0 eq "aut")
{&Autoresponders}
elsif ($g_a0 eq "cam")
{&Campaigns}
elsif ($g_a0 eq "fil")
{&Filters}
elsif ($g_a0 eq "tra")
{&TrackingTags}
elsif ($g_a0 eq "pro")
{&Profile}
elsif ($g_a0 eq "set")
{&Setup}
elsif ($g_a0 eq "ver")
{&Version}
elsif ($g_a0 eq "bro")
{&Broadcast}
elsif ($g_a0 eq "bak")
{&Backup}
elsif ($g_a0 eq "res")
{&Restore}
elsif ($g_a0 eq "cut")
{&MyTags}
elsif ($g_a0 eq "lnk")
{&Links}
else
{&Login}
&DoExit;
http://myHost/perl/arp3/arp3.pl?a0=logпо такому запросу открывается форма логина ...
ввожу логин и ... "The page cannot be displayed"
