Теперь об ошибках. Основной код выглядит следующим образом: 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 номер последнего сообщения, увеличивают его и