Вот сам скрипт редактирования... Тут проблемное значение $maindesc, то есть основное описание, через которое я и пытаюсь засунуть примерно 3000 знаков или 3 КБ в *.txt файл.… С другими значениями проблем нету.… И еще... Я вроде заметил тенденцию такую: иногда он большой размер запоминает, а иногда нет, но это не факт.…
Вот сам скрипт обработки моех значений:
sub editoldprod {
use CGI;
my $req = new CGI;
$id=$req->param("id");
$imageloc1=$req->param("imageloc1");
$imageloc2=$req->param("imageloc");
$maindesc=$req->param("maindesc");
$maindesc =~ s/\n/<br>/g;
$maindesc =~ s/\r//g;
$shortdesc=$req->param("shortdesc");
$shortdesc =~ s/\n/<br>/g;
$shortdesc =~ s/\r//g;
$ctime=time;
$itemname=$req->param("itemname");
$imageloc1=$req->param("imageloc1");
$imageloc2=$req->param("imageloc");
$price=$req->param("price");
$categories=$req->param("categories");
$views=$req->param("views");
if($req->param("Delete") eq "ON"){
open(TEMPLATE, "$varroot/$categories.txt");
@template=<TEMPLATE>;
close TEMPLATE;
foreach $curline (@template) {
unless($curline eq "$id\n")
}
open(TEMPLATE, ">$varroot/$categories.txt");
print TEMPLATE $template;
close TEMPLATE;
unlink("$dataroot/$id.txt");
unlink("$imagesroot/$imageloc1");
unlink("$imagesroot/$imageloc2");
print "Продукт Удален...<br><a href=\"$inventoryurl?action=editprods\">Вернутся к Редактированию Продуктов</a>";
&footer;
exit;
}
open(TEMPLATE, ">$dataroot/$id.txt");
print TEMPLATE "$itemname\n";
print TEMPLATE "$imageloc1\n";
print TEMPLATE "$imageloc2\n";
print TEMPLATE "$price\n";
print TEMPLATE "$categories\n";
print TEMPLATE "$ctime\n";
print TEMPLATE "$maindesc\n";
print TEMPLATE "$shortdesc\n";
print TEMPLATE "$views\n";
close (TEMPLATE);
print "Информация о Продукте изменена!<br><a href=\"$inventoryurl?action=editprods\">Вернутся к Редактированию Продуктов</a>";
&footer;
exit;
}
Новости дизайна |
Галереи |
О проекте |
RSS
Правила |
FAQ |
Поиск |
Наша команда |
Регистрация |
Вход
