Тем не менее допускают очень многие

Теперь об ошибках. Основной код выглядит следующим образом: ft Get the Data Number SgetJiLimber;

# Get Form Information &parse_form;

и Put items into nice variables &get_variables;

ff Open the new file and write information to it. &new_file;

ff Open the Main WWWBoard File to add link &main_page;

и Now Add Thread to Individual Pages if($num_followups>=1){

&thread_pages; }

ft Return the user HTML &return_html; ft

Increment Number &increment_num;

Обратите внимание на пару функций get_number/increment_number. Код первой: sub get_number {

open(NUMBER,"$basedir/$datafile"): $num = <NUMBER>:

close(NUMBER); if ($num == 99999) { Ч)пигп = "1"; }

else { $num++; } } Код второй:

sub increment_num { open(NUM,">$basedir/$datafile") 11 die$!:

print NUM "$num": close(NUM): }

Приведенные функции считывают из файла $datafile номер последнего сообщения, увеличивают его и

Сохраняют. Причем в промежутке между их вызовами обрабатывается пользовательский ввод, формируется

Новое сообщение, ссылка на него добавляется в главный файл доски и т.д. На небольших досках это не приведет

К большим проблемам. На досках же с большой посещаемостью и с разросшимся главным файлом время выпол-

Нения скрипта существенно отличается от нуля, и вероятность того, что очередной посетитель отправит