Сообщения

1

Веб Сервера / Скрыть версию апача

« : 05 Января 2007, 14:52:37 »

Надобно мне полностью скрыть версию в апаче 1.3.37
Чтобы в частности при листинге директории не было строчки с номером версии.

Залез в доки, нашёл директиву
ServerSignature
которая " allows the configuration of a trailing footer line under server-generated documents (error messages, mod_proxy ftp directory listings, mod_info output, ...). "

Добавляю в хттпд
ServerTokens Prod
ServerSignature Off

В заголовках все ок, версии нет, а в подвале листингов директорий - Apache/1.3.37 Server at site.ru Port 80
Почему?

2

Perl / Получение имени закаченного файла

« : 05 Января 2007, 04:27:00 »

Вот оно где собака порылась. Работает, спасибо.

3

Perl / Получение имени закаченного файла

« : 04 Января 2007, 02:17:37 »

Дано: закачивается файл стандартно через POST. Надо скриптом узнать его имя. Вот эта конструкция:
        $uploaded_file=~ /[\\\\\\/:]([^\\\\\\/:]+)$/;
        $filename = "$1";
отлично работает при загрузке из IE, в опере же стандартно filename пуст. Танцевал долго и упорно, перепробовал кучу вариантов, но так и не пришёл к итогу.

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

4

Perl / Проблема с Fast CGI

« : 13 Ноября 2006, 23:21:18 »

Усе, разобрался.
Чужой код на 2к строчек, не сразу въехал.

5

Perl / Проблема с Fast CGI

« : 13 Ноября 2006, 22:37:28 »

Использовал...
Вот как ругается:
Can\'t locate object method "TIEHASH" via package ""
на строчку:
        tie %f_file_db, $dbm_package, $F_FILE_DB_FILE, O_RDONLY, 0755 or die "Cannot open $F_FILE_DB_FILE: $!";

6

Perl / Проблема с Fast CGI

« : 11 Ноября 2006, 19:25:54 »

Пересобрал и переставил модуль, перезапустил апача, перезалил скрипт - работает теперь. What da?



Обратил внимание, что модулем CGI, используя FCGI, не воспользуешься. Это как-то можно исправить?

7

Perl / Проблема с Fast CGI

« : 11 Ноября 2006, 18:08:55 »

Скрипт в первом посте.
Выдержки из хттпд:

LoadModule fastcgi_module     /usr/lib/apache/mod_fastcgi.so
AddModule mod_fastcgi.c
AddHandler fastcgi-script .fcgi
#FastCgiServer /home/admin/domains/mydomain/public_html/test.fcgi -listen-queue-depth 50 -processes 2 -idle-timeout 300 -flush

Последнюю закомменченную ныне строчку включил позже, во время танцев с бубном. Изначально в работавшем варианте её не было.

Тут в чём прикол - первый раз запустил и всё заработало. Потом решил поэксперементировать, добавил пару строчек со вводом новых переменных.
Перезалил скрипт, ребутнул апача - 500 ошибка.  И после этого ни один fcgi скрипт запускаться не хочет. Даже тестовый вот этот, который изначально работал.

8

Perl / Проблема с Fast CGI

« : 10 Ноября 2006, 21:20:38 »

NeoNox

Вообще по CGIFast в поиск форума

С этого начинал.


Вот кусок логов
[Fri Nov 10 21:15:23 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" restarted (pid 45372)
FastCGI: can\'t start server "/home/admin/domains/mydomain/public_html/test.fcgi" (pid 45372), execle() failed: No such file or directory
[Fri Nov 10 21:15:23 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" (pid 45372) terminated by calling exit with status \'255\'
[Fri Nov 10 21:15:28 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" restarted (pid 45380)
FastCGI: can\'t start server "/home/admin/domains/mydomain/public_html/test.fcgi" (pid 45380), execle() failed: No such file or directory
[Fri Nov 10 21:15:28 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" (pid 45380) terminated by calling exit with status \'255\'
[Fri Nov 10 21:15:28 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds
[Fri Nov 10 21:15:31 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds
[Fri Nov 10 21:15:34 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds
[Fri Nov 10 21:15:37 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds
[Fri Nov 10 21:15:40 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds
[Fri Nov 10 21:15:43 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds
[Fri Nov 10 21:15:46 2006] [warn] FastCGI: (dynamic) server "/home/admin/domains/mydomain/public_html/test.fcgi" has failed to remain running for 30 seconds given 3 attempts, its restart interval has been backed off to 600 seconds


... и тэ дэ

9

Perl / Проблема с Fast CGI

« : 10 Ноября 2006, 00:01:52 »

Осваиваю сабж. Сделал всё по инструкции, установил mod_fastcgi и fcgi. Прописал что надо в httpd.conf
Вот это даже заработало:

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use FCGI;
 my $request = FCGI::Request();
my $i=0;

 while($request->Accept() >= 0)
  {

print "Content-type: text/html\\n\\n";
print "Counter: $i";
$i++;
 }

Скрипт test.fcgi выполнялся и при каждом запросе счётчик инкрементился.

Потом попробовал добавить пару строчек кода, перезалил скрипт и теперь всё вылетает с 500 ошибкой. И даже этот ранее работавший скрипт пытаюсь запустить - та же 500 ошибка. Апача перезагружал не раз и не два. С чем может быть связано?

10

Perl / Докачка - файлархив на перле

« : 07 Ноября 2006, 23:51:38 »

2NetFly
Отдача идёт файлов извне веб каталога.
+ в дальнейшем будет разделение по юзерам, поэтому вариант с апачем отпадает.

11

Perl / Докачка - файлархив на перле

« : 05 Ноября 2006, 01:44:04 »

Угу, понял куда копать и всё сделал. Спасибо.

12

Perl / Докачка - файлархив на перле

« : 03 Ноября 2006, 23:30:15 »

Есть скрипт, отдающий файло.
Вот кусок кода, отвечающий непосредственно за отдачу:

print "Content-Length: $size\\n";
print "Content-Type: application/$ext\\n\\n";
binmode(STDOUT);
open (TXTFILE, "../../files/$file.$ext") || die;
while () {print}
close(TXTFILE);

Всё хорошо, но докачка не поддерживается. Как бы её прикрутить? Самолично видел perl-скрипты, отдающие файло и при этом поддердивающие докачку.

13

Perl / Разбиение длинной строки

« : 26 Сентября 2005, 16:23:28 »

Спасибо.
Так и думал, что опять изобретаю велосипед. Поду подучу регекспы.
Пример заработал.
Модифицировал только немного, чтоб UBBC-теги не резал.

14

JavaScript & JScript / selection в опере

« : 26 Сентября 2005, 00:23:40 »

Есть форум. Есть кнопка, по которой выделенный мышкой текст отправляется в TEXTAREA с id \'forma\' в обрамлении тегов quote.
Вот функция:

Код: [Выделить]


function text2area() {
 if (document.getSelection) {txt_block=document.getSelection();}
 else if (document.selection) {txt_block=document.selection.createRange().text;}
 if (txt_block != "") {document.getElementById("forma").value+="[qu0te]"+txt_block+"[/qu0te]";}
}

В Мозилле и ИЕ работает, а в Опере - нет (переменная txt_block - пустая). Как можно модифицировать?

15

Perl / Разбиение длинной строки

« : 25 Сентября 2005, 23:08:54 »

Пользователи моего форума часто норовят оставить сообщения, в которых есть длинные слова, типа "пооооооооооооммммммммммммооооооооггггииииииттттее" или "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!". Они иногда вызывают горизонтальную полосу прокрутки.
Хочу написать код, ставящий пробел в последовательность непробельных символов, превышающую по длине n(например 40).
Пытался разными методами, получается плохо.
Вот один из вариантов, на практике работающий криво (Он разбивает сообщение на подстроки по сто символов, и, если внутри какой-то подстроки есть 50 или более непробельных символов подряд, ставит поседине пробел):

my $c= 1 + int length($message)/100 ;
for (my $i=0;$i<$c; $i++)
 {
 $buffer = undef;
 $buffer = substr($message,$i*100,100);

  if($buffer =~ /\\S{50,}/)
  {
  my $part1 = substr($buffer,0,50);
  my $part2 = substr($buffer,50,50);
  $buffer = $part1.\' \'.$part2;
  }
 $message2 .= $buffer;
  }
$message = $message2;
 

Хотелось всё-таки создать нормально работающий код. Своими силами пока не получается.