Создание серверных приложений на языке PERL


Пример 2. - часть 2


<tr><td colspan=2 align=center><input type=submit value="Submit"></center>

HTML } #Если информация получена,декодируем поля формы.

else { foreach (@fields=split(/&/,$query)) { if (/^login=(.*)/) { $login=&urldecode ($1); } if (/^pass=(.*)/) { $password=&urldecode ($1); } }

#Открываем базу данных и проверяем логин и пароль. open(INFO,$file) ||die; @data=; close(INFO);

foreach $string(@data) { @item=split(/&/,$string); foreach (@item) { if (($item[0] eq $login) && ($item[1] eq $password)) {

#Если все нормально,переходим в пользовательский каталог.

print "Content-type:text/html\n\n"; print <<HTML; <html><body bgcolor="e6e8fa">

#Приветствуем пользователя. <p><h2 align=center><font color="ff0000">Hello,$login!</font></h2>

<p><center>Welcome to your home directory! <p>Your URL is <a href="$basedir$login">$basedir$login.</a></center>

HTML

######################### # Directories list # #########################

$userdir=$dir.$login; chdir ("$userdir");

#Открываем каталог и читаем список файлов в массив. opendir(DIR,"$userdir") || die "Cannot open $userdir!"; while (@files=readdir(DIR)) {

#Если каталог содержит подкаталоги,выводим их отдельно,а также не показываем #каталоги "." и ".." Печатаем шапку таблицы. print <<HTML; <p><center>

<table bgcolor=\"bfbfbf\" width=600 border cellspacing=0 cellpadding=0 nowrap>

<tr><td colspan=5 align=center nowrap><b><font color="ff0000">Directories</font></b></td></tr>

<tr><td>.</td><td align=center><b>List</b></td><td><b>Size</b><td><td><b>Last accessed</b></td><td><b>Last modified</b></td>

HTML foreach $file(@files) {




Начало  Назад  Вперед