2Lodevar: Ну право, не уместный вопрос. Но для примера приведу полный текст одного из скриптов.
#!/usr/bin/perl
# загрузка файла аренды
require "../my_html_lib.pl"; # настроечные данные
require "arenda_cfg.pl";
$datafile="arenda.dat";
$datadir=".";
&html_begin;
if ($ENV{\'REQUEST_METHOD\'} eq \'GET\') {$query=$ENV{\'QUERY_STRING\'};}
else {sysread(STDIN,$query,$ENV{\'CONTENT_LENGTH\'});}
if ($query eq \'\') {
print<
Загрузка файла данных арендыЗагрузка файла данных аренды
ENDHTML
;
} # end form
else {
if ($ENV{\'CONTENT_TYPE\'} =~/multipart/) {
($bound)=($ENV{\'CONTENT_TYPE\'} =~/boundary=(\\S+)/);
@parts=split (/
--$bound(-)*/,$query);
@parts=grep($_ ne \'\',@parts);
foreach (@parts) {
($header, $body)=split(/
\\s*
/,$_,2);
($name)=(/name=\\"([^\\"]*)\\"/);
($filename)=(/filename=\\"([^\\"]*)\\"/);
if ($name eq \'userdata\') {$userdata=$body; $userdatafilename=$filename} # end if
} # end foreach
} #end if
# загрузка
open (F, ">$datadir/$datafile");
binmode F;
print F $userdata;
close(F);
print<
Загрузка файла данных арендыЗагрузка файла данных аренды прошла нормально!
http://my_host.ru/my_admin.html">Вернуться к администрированию аренды
ENDHTML
;
} # end else
