|
|
|
Администрирование Гостевой книги на Perl |
::..::..:: |
Все сообщения гостевой хранятся в файле
"guestbook/guestbook.dat" - мне надо все символы
из этого файла загружать в массив и выводить для
редактирования в (знания html везде могут
пригодится!):
$file = "guestbook/guestbook.dat";
open (GB, "$file");
@mes = ;
close (GB, "$file");
print "";
print "";
print @mes;
print "";
Затем, на всякий случай, позаботимся о
безопасности. Вдруг на этот скрипт наткнется
какой-нить любитель портить людям жизнь =). Для
этого сделаем небольшую, но верную проверочку
пароля:
$password = "123";
print "Пароль: ";
if (($pass eq $password) and ($action eq "post"))
{
open GB, ">$file";
print GB "$msgs";
close GB, "$file";
}
Уже видно, как файл гостевой открывается и в
него производится перезапись =).
Полный листинг скрипта:
#!/usr/bin/perl
print "Content-type: text/html ";
require "config.pl";
$file = "guestbook/guestbook.dat";
#using CGI
use CGI qw(:standard);
$q=new CGI();
$action = $q->param(action);
$msgs = $q->param(msgs);
$pass = $q->param(pass);
#admin variables:
$password = "666";
#guestbook admining:
print "Администратор Гостевой";
print "";
open (GB, "$file");
@mes = ;
close (GB, "$file");
print "";
print "";
print @mes;
print "";
print "Пароль:
";
print "";
print "";
print "";
if (($pass eq $password) and ($action eq
"post"))
{
open GB, ">$file";
print GB "$msgs";
close GB, "$file";
}
Вот так. По-моему, всё довольно просто. Скрипт
можно совершенствовать.Разместил
Timoty | |
|
|
| | | | | | |
|
