Извините, дуру, все поняла и исправила, но проблемы это не решило,
при авторизации пользователя "Администратор", программа не
переходит на страницу filtr.pl
#!c:/perl/bin/perl
#!/usr/bin/perl
$Root = "c:/www";
use CGI;
use DBI;
$Query = new CGI;
$syslog="c:/www/data/people";
$syslogg="c:/www/data/document";
$Query->charset('koi8-r');
print $Query->header;
sub PrintMainForm()
{
print <<"EOT";
<FORM NAME="mainform" ACTION="$Foto" METHOD="post" ENCTYPE="multipart/form-data">
<INPUT name="sessionid" type="hidden" value="$SessionId">
<INPUT name="direction" type="hidden" value="">
<INPUT name="victim" type="hidden" value="">
<input type="hidden" name="enter" value="1">
<input type="submit" value="Enter">
EOT
}
CheckTables();
use CGI;
my $Query = new CGI;
my $Name = "Администратор";
my $Password = "1024post";
if ( defined $Password )
{
open (people,"$syslog");
while( <people> ) {
chomp;
my @Fields = split( /\,/ );
if( $Fields[1] eq "$Name" && $Fields[2] eq "$Password" )
{
if ( $Fields[1] eq "Пользователь" )
{
print $Query->redirect("c:/www/cgi-bin/filtr.pl");
}
elsif ( $Fields[1] eq "Администратор" )
{
print $Query->redirect("c:/www/cgi-bin/test.pl");
}
}
}
close ( people );
}
print <<"EOT";
<body background="c:/www/cgi-bin/pic/02.jpg">
<table align="center" cellspacing="0" cellpadding="0" border="0">
<tr>
<td><img src="c:/www/cgi-bin/pic/111.gif"></td>
<td><img src="c:/www/cgi-bin/pic/12.gif"></td>
<td><img src="c:/www/cgi-bin/pic/13.gif"></td>
<td><img src="c:/www/cgi-bin/pic/14.gif"></td>
</tr>
<tr>
<td colspan="3"></td>
<td><img src="c:/www/cgi-bin/pic/24.gif"></td>
</tr>
<tr>
<td colspan="4" height="80%" align="left">
<br>
<p align="center"><strong>Регистрация пользователя:</strong></p>
<p align="left">Пожалуйста введите ваше имя и пароль:</p>
<FORM NAME="mainform" ACTION="/cgi-bin/test.pl" METHOD="get">
<table align="left" cellspacing="10" cellpadding="10" border="0">
<tr>
<td>Имя:
<select name="name">
EOT
$sth = $dbh->prepare("SELECT * FROM people") or die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();
while ( $row = $sth->fetchrow_hashref )
{
$t = $row->{'NAME'};
print "<OPTION>$t</OPTION>";
}
print <<"EOT";
</select>
</td>
<td>Пароль:<INPUT NAME="password" TYPE="password" SIZE="10%"></td>
</tr>
</table>
<br><br><br>
<p align="left"> Для начала авторизации нажмите "Следующий шаг"</p>
<input type="submit" value="Следующий шаг">
</form>
</td>
</tr>
</table>
</body>
EOT
sub CheckTables()
{
%Tables =
(
org => "id integer, name char(255), inn char(12)",
people => "id integer, name char(255), password char(255)",
document => "num integer, input_num_doc char(255), date_post char(6), num_doc char(12), num_doc_in_eerd char(12), predmet char(255), srok char(6), yslov_af_prolong char(255), srok_prolong char(6), protokol char(255), type_doc char(255), vid_doc char(255), plane_platezhei char(255), price_doc char(255), num_dopolnit_sogl char(255), statys_doc char(255), primechanie char(255)",
);
$dbh = DBI->connect("DBI:CSV:f_dir=$Root/data") or die "Cannot connect: " . $DBI::errstr;
foreach $table ( keys %Tables )
{
unless( -r "$Root/data/$table" )
{
$sth = $dbh->prepare("CREATE TABLE $table ($Tables{$table})") or die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();
$sth->finish();
}
}
}