MEGAMAGAZINE - мутим элитный сетевой журнал

Леха ББ & Космос

Спецвыпуск Xakep, номер #030, стр. 030-024-3

#Список планов

if ($input{'act'} eq "")

{

open(PLN, "$plans_ind");

@plans=<PLN>;

close(PLN);

print "<h1>Список планов по номерам</h1>\n";

for ($i=0; $i<@plans; $i++)

{

chomp($plans[$i]);

($number, $name) = split (/;/, $plans[$i]);

print "<a href=$script?num=$number&act=plan>$number - $name</a>\n";

}

}

Для вывода конкретного плана надо в этом же скрипте создать условие, при котором он будет происходить, а также написать сам вывод. Нижеприведенный листинг кода наглядно демонстрирует подобную процедуру.

if ($input{'act'} eq "plan")

{

#определение номера и его названия

open(PLN, "$plans_ind");

@plans=<PLN>;

close(PLN);

$ch_num=$input{'num'};

for ($i=0; $i<@plans; $i++)

{

chomp($plans[$i]);

($number, $name) = split (/;/, $plans[$i]);

if ($ch_num eq $number)

{

$ch_name=$name;

}

}

print "<h2>№ $number: $name</h2>\n";

#путь к файлу с планом

$ch_plan_file=$plans_dir.$ch_num.'.txt';

#заполнение переменных из полей файла и их вывод

open(PLA, "$ch_plan_file");

@chplan=<PLA>;

close(PLA);

print "<table border=1 align=center>\n";

print "<tr><td>Название статьи</td>\n";

print "<td>Объем</td>\n";

print "<td>Комментарии</td></tr>\n";

for ($q=0; $q<@chplan; $q++)

{

chomp($chplan[$q]);

($name_art, $volume, $comment) = split(/;/, $chplan[$q]);

print "<tr><td>$name_art</td>\n";

print "<td>$volume</td>\n";

print "<td>$comment</td></tr>\n";

}

print "</table>\n";

}

Немного доработав, такой вывод можно снабдить линками на тексты статей или сделать возможным автору заказывать статьи.

Список авторов

Список авторов должен содержать такие сведения, как имя (или ник), e-mail, перечень областей, в которых он разбирается. Это можно дополнить информацией о его возрасте, семейном положении, физическом адресе, фотографией и т.д., но это уже по желанию. Создание и дополнение списка авторов можно сделать по аналогии с описанной выше формой для плана статей. Только количество форм будет зависеть от того, насколько подробную анкету по авторам собираешься делать. Лучше всего каждому автору сделать свой ID (идентификационный номер), которым автор будет подписываться, например, при выборе статей. Скрипт, отвечающий за обработку запроса о выборе, в случае ввода правильного ID, будет либо говорить что-нибудь типа "Спасибо за заказ. О нем будет сообщено начальству", либо будет посылать куда подальше, если такой номер введен неправильно.