Forum Webscript.Ru
Программирование => Perl => Тема начата: SteelRat от 25 Марта 2002, 23:58:05
-
У меня, контент менеджер (типа санитара).
После заливки на сервак встретился с проблемой: Если впихнуть в форму (textarea) крупный текст и послать его на скрипт, нефина не выходит (браузер показывает, что пытается что-то грузить, но по трафику видно, что он нефига не грузит).
Кто-нить знает решение этой траблы?
И какое ограничение на отсылку - а то ведь на локалхосте всё пинцетно...
BOT :-(.
-
Есть ли это просто проблема отгрузки по скотости или нет?
-
Если надо (если пооможет), линк на форму кину...
-
method = POST ?
-
Есть варианты?
Query_Reader.pl (module)
#########################################
[censored]
###################################################
Через GET может получиться?
А какие ограничения на POST?
-
Если большой объем данных - то POST однозначно.
Ограничения в rfc2616.:)
-
ошибка при постинге через post содержания этой статьи:
http://bonch.spb.ru/Musem/article-1.shtml
Целиком и даже по 1/3 (у меня поддержка страниц)
-
Что в данной ситуации нужно сделать, не подскажешь? Дробить на мелкие страницы?
-
Что в данной ситуации нужно сделать, не подскажешь? Дробить на мелкие страницы?
Да нет... все должно работать.
Только покажи сам скрипт а не две подпрограммы- в них вроде все чисто, за исключением параноидальной проверки данных :)
ЗЫ.Кстати, на странице у меня баг вылез. Скрин в атаче
-
баг при смене размеров окна - скоро профикшу. Если не менять - всё ок.
Форма:
http://127.0.0.1/cgi-bin/stateynic/index.cgi?action=articles_admining&RunMode=Add_New_Article
-
http://127.0.0.1/cgi-bin/stateynic/...Add_New_Article
Гы...
сори, у меня на локалхосте твой скрипт не стоит :(баг при смене размеров окна - скоро профикшу. Если не менять - всё ок.
А я и не менял. 1024х768
-
http://bonch.spb.ru/cgi-bin/stateynic/index.cgi?action=articles_admining&RunMode=Add_New_Article :-)
Меню не должно. У меня под пингвином даже всё ок. Если тока не менять размеры окна браузера.
-
за браузер? кстати?
-
смело слать статьи, там стоит автономная бета(или даже альфа)...
-
есть ограничения на POST метод?
-
есть ограничения на POST метод?
При этом методе нет никаких ограничений для передачи данных содержащих потенциально большие области текста.
-
за браузер? кстати?
Opera 6 Вета 1 for Linux
-
отпостить статью (целиком)
http://bonch.spb.ru/Musem/article-1.shtml
с формы
http://bonch.spb.ru/cgi-bin/stateynic/index.cgi?action=articles_admining&RunMode=Add_New_Article
Если не лень.
-
Да уже попробовал. Ноль.
Ты ерор лог посмотри. Что там интересного написано?
У тебя БД или флат файлы?
-
на текстовых файлах, но не в одном, а каждой статье - свой файл.
########################################
[censored]
########################################
-
http://forums.webscript.ru/showthread.php?s=&threadid=4743
Тут работает. В чём же дело?
-
Что в логах?
-
http://bonch.spb.ru/cgi-bin/BonchForum/BonchForum.cgi?board=AboutOurSite;action=display;num=1017144922;start=0
-
коде сохранения есть ошибки? (код получения данных выше)
-
четвертый раз писАть не буду.
В логах что? Есть доступ?
-
1) Извени, я исходники форума копаю - смотрю, как они сохраняют... Так что изредка заглядываю.
2) Только 2й раз :0)
3) Логи есть. Доступа. А ерроров нет.
-
SteelRat вопрос:
1. Данные из формы передаются скрипту или нет ?
Если передаются, то проверь правильно ли ты кнопку в форме обозвал (Submint) + еще чего-нибудь
2. Если не передаются, то посмотри HTML своей формы :)
проблему надо:
а) локализовать
б) решить
А то ты несколько хаотично тут постишь - и себя и других путаешь.
-
Я победил скрипт. Не понял ещё как, но победил.
Кто подскажет, в чём фишка, тому пряник.
Было:
##########################################
sub QueryReader {
#
#Прочитаем данные, посланные методом GET:
$buffer_get = "$ENV{\'QUERY_STRING\'}";
@pairs_get = split(/&/, $buffer_get);
foreach $pair (@pairs_get) {
&Named_Valuer;
}
#
#Прочитаем данные, посланные методом POST:
sysread(STDIN,$buffer_post,$ENV{\'CONTENT_LENGTH\'}
);
@pairs_post = split(/&/, $buffer_post);
foreach $pair (@pairs_post) {
&Named_Valuer;
}
}
#
#Подпрограмма извлечения имён и значений переменных
#и замены \'лишних/левых\' символов.
sub Named_Valuer {
($name, $value) = split(/=/, $pair);
$name =~ s/\\+/ /g;
$name =~ s/%([0-9a-hA-H]{2})/pack(\'C\',hex($1))/ge;
$name =~ s/\\&/\\&\\;/g;
$name =~ s/\\"/\\"\\;/g;
$name =~ s/\\⌠/\\"\\;/g;
$name =~ s/\\■/\\"\\;/g;
$name =~ s/\'/\\&rsquo\\;/g;
$name =~ s/`/\\&rsquo\\;/g;
$name =~ s/▒/\\&rsquo\\;/g;
$name =~ s/▓/\\&rsquo\\;/g;
$name =~ s/$name =~ s/>/\\>\\;/g;
$name =~ s/\\n/!!PeReHodStRoKi!!/g;
$name =~ s/\\|/!!VeRtPaLkA!!/g;
$value =~ s/\\+/ /g;
$value =~ s/%([0-9a-hA-H]{2})/pack(\'C\',hex($1))/ge;
$value =~ s/\\&/\\&\\;/g;
$value =~ s/\\"/\\"\\;/g;
$value =~ s/\\⌠/\\"\\;/g;
$value =~ s/\\■/\\"\\;/g;
$value =~ s/\'/\\&rsquo\\;/g;
$value =~ s/`/\\&rsquo\\;/g;
$value =~ s/▒/\\&rsquo\\;/g;
$value =~ s/▓/\\&rsquo\\;/g;
$value =~ s/$value =~ s/>/\\>\\;/g;
$value =~ s/\\n/!!PeReHodStRoKi!!/g;
$value =~ s/\\|/!!VeRtPaLkA!!/g;
$PostedData{$name} = $value;
}
#
#Конец.
#########################################
Стало:
##########################################
sub QueryReader {
my(@pairs, $pair, $name, $value);
my $query = new CGI;
@pairs = split(/&/, $ENV{\'QUERY_STRING\'});
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s/\\&/\\&\\;/g;
$name =~ s/\\"/\\"\\;/g;
$name =~ s/\\“/\\"\\;/g;
$name =~ s/\\”/\\"\\;/g;
$name =~ s/\'/\\&rsquo\\;/g;
$name =~ s/`/\\&rsquo\\;/g;
$name =~ s/‘/\\&rsquo\\;/g;
$name =~ s/’/\\&rsquo\\;/g;
$name =~ s/ $name =~ s/>/\\>\\;/g;
$name =~ s/\\n/!!PeReHodStRoKi!!/g;
$name =~ s/\\|/!!VeRtPaLkA!!/g;
$value =~ s/\\&/\\&\\;/g;
$value =~ s/\\"/\\"\\;/g;
$value =~ s/\\“/\\"\\;/g;
$value =~ s/\\”/\\"\\;/g;
$value =~ s/\'/\\&rsquo\\;/g;
$value =~ s/`/\\&rsquo\\;/g;
$value =~ s/‘/\\&rsquo\\;/g;
$value =~ s/’/\\&rsquo\\;/g;
$value =~ s/ $value =~ s/>/\\>\\;/g;
$value =~ s/\\n/!!PeReHodStRoKi!!/g;
$value =~ s/\\|/!!VeRtPaLkA!!/g;
$PostedData{$name} = $value;
}
my (@keylist) = sort($query->param());
foreach $key (@keylist) {
# may be dealing with multiple values; need to join with comma
$value = join(\', \', $query->param($key));
$name = $key;
$name =~ s/\\&/\\&\\;/g;
$name =~ s/\\"/\\"\\;/g;
$name =~ s/\\“/\\"\\;/g;
$name =~ s/\\”/\\"\\;/g;
$name =~ s/\'/\\&rsquo\\;/g;
$name =~ s/`/\\&rsquo\\;/g;
$name =~ s/‘/\\&rsquo\\;/g;
$name =~ s/’/\\&rsquo\\;/g;
$name =~ s/ $name =~ s/>/\\>\\;/g;
$name =~ s/\\n/!!PeReHodStRoKi!!/g;
$name =~ s/\\|/!!VeRtPaLkA!!/g;
$value =~ s/\\&/\\&\\;/g;
$value =~ s/\\"/\\"\\;/g;
$value =~ s/\\“/\\"\\;/g;
$value =~ s/\\”/\\"\\;/g;
$value =~ s/\'/\\&rsquo\\;/g;
$value =~ s/`/\\&rsquo\\;/g;
$value =~ s/‘/\\&rsquo\\;/g;
$value =~ s/’/\\&rsquo\\;/g;
$value =~ s/ $value =~ s/>/\\>\\;/g;
$value =~ s/\\n/!!PeReHodStRoKi!!/g;
$value =~ s/\\|/!!VeRtPaLkA!!/g;
$PostedData{$name} = $value;
}
}
##########################################
Ладно, это был тест под ишаком, ща в пингвина залезу...
-
Что, пряники уже никому не нужны?