Forum Webscript.Ru

Программирование => Perl => Тема начата: NokiaMan от 27 Февраля 2002, 13:12:54

Название: Люди, помогите плзз простым cgi скриптом.
Отправлено: NokiaMan от 27 Февраля 2002, 13:12:54

Нужен cgi скрипт, который грузил бы страници в зависимости пароля и
логина. Логины, пароли и пути к документам должны храниться в обычном
*.txt файле.
Пример *.txt файла:
login;password;http://www.site.ru/1.html
login;password;http://www.site.ru/2.html

и.т.д

Форма для логина и пароля (2 поля) стандартная.
В случае, если неправильный пароль или логин, - должен загружаться
error.html


Если кто-то может такой скрипт написать, напишите плззззз!
Очень надо.

Название: скрипт, который грузил бы страници в зависимости от логина и пароля
Отправлено: Evgeny от 27 Февраля 2002, 15:14:09

Код: [Выделить]


if ($ENV{\'REQUEST_METHOD\'} eq "GET") { $buffer = $ENV{\'QUERY_STRING\'}; }
else { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});  }
@nvpairs = split(/&/,$buffer);
foreach $pair (@nvpairs)
{  ($namebuffer, $valuebuffer) = split(/=/, $pair);
    $valuebuffer =~ tr/+/ /;
    $valuebuffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $in{$namebuffer}=$valuebuffer;
}

$errorAddr=\'http://www.site.ru/error.html\';

open(F,"while ()
{  ($login,$pass,$addr)=split(/;/,$_);
    $Pass{$login}=$pass;
    $Addr{$login}=$addr;
}
close(F);

$login=$in{"name"};  # имя поля для username - "name"
$pass=$in{"password"};  # имя поля для пароля - "password"

if ((exists $Pass{$login}) && ($Pass{$login} eq $pass))
{  print "Location: $Addr{$login}\\n\\n";
}
else
{  print "Location: $errorAddr\\n\\n";  
}



Название: А можно узнать твое мыло?
Отправлено: NokiaMan от 27 Февраля 2002, 23:02:52

плллззз!

Название: скрипт, который грузил бы страници в зависимости от логина и пароля
Отправлено: Evgeny от 28 Февраля 2002, 12:47:32

NokiaMan

Цитировать

А можно узнать твое мыло?
плллззз!

Ты можешь легко мне через этот форум писать, или через приватные сообщения (под моим сообщение П.С. кликаешь).