Сообщения

1

Perl / Net::Telnet & SMTP

« : 05 Июня 2007, 16:51:29 »

Разобрался, define(`confLOG_LEVEL\', `32\') помогла,
$smtp->print ("helo localhost"); в действительности выглядит так, $smtp->print ("helo $hostname"), где $hostname = `hostname -s`, именно из-за этого был лишний слешN
Спасибо.

2

Perl / Net::Telnet & SMTP

« : 05 Июня 2007, 15:24:42 »

Хочу сделать проверялку SMTP, в общем пример  практически из мана,
$smtp = new Net::Telnet (Telnetmode => 0);
$smtp->open (Host   =>  $hostname,
             Port   =>  $port);

$cmd = $smtp->getline;
die $cmd unless $cmd =~ /^220/;
print $cmd;

$smtp->print ("helo localhost");
$cmd = $smtp->getline;
die $cmd unless $cmd =~ /^250/;
print $cmd;

$smtp->print ("mail from: <my@example.com>");
$cmd = $smtp->getline;
die $cmd unless $cmd =~ /^250/;
print $cmd;
получаю:
220 ESMTP Sendmail
250 Hello localhost [127.0.0.1], pleased to meet you
500 5.5.1 Command unrecognized: ""

Не пойму, почему он на mail from ругается, т.е. ему видимо вместо команды отправляется

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

\\n, но кто и зачем это делает?!

3

Perl / Cwd

« : 25 Апреля 2007, 21:21:29 »

Linux Gentoo 2006

4

Perl / Cwd

« : 25 Апреля 2007, 18:24:41 »

От владельца, т.е. обычный непривелигированный юзер.

Но, я уже похоже разобрался.
Ошибка возникает из-за разницы в реализации самой команды pwd, в одном случае она использует системный вызов open, в другом getcwd (там, где работает). Соответственно для open необходимы помимо прав исполнения еще и чтение.

5

Perl / Cwd

« : 25 Апреля 2007, 15:23:25 »

NeoNox:
Скорее всего Perl запускается от пользователя perl, соответственно у него нет прав на запуск /bin/pwd.

Так пользователь из шелла запускает эту команду, при этом не используется никой suid\'ый wrapper.

Обратись к администрации, это их проблема.

В данном случае я сам администрация, машинка для клиента делается.

6

Perl / Cwd

« : 25 Апреля 2007, 13:02:33 »

NeoNox:
Нет прав запускать /bin/pwd.

У кого, у пользователя?
Но ведь он может исполнить pwd.
Более того, perl -e "use Cwd; print cwd();" не работает, только если он находится в HOME, если подняться выше, работает.
На другой машине, с точно такимиже правами на HOME, эта команда работает.

Виртуалхостинг?

Да.

7

Perl / Cwd

« : 24 Апреля 2007, 21:01:57 »

$ pwd
/home/www/saitig
$ ls -la
total 32
drwx--x---  7 saitig apache  376 Apr 24 17:38 .
drwxr-x--x 66 root adm    2600 Apr 24 20:37 ..

$ perl -e "use Cwd; print cwd();"
/bin/pwd: cannot open directory `..\': Permission denied

На другой машине, с точно такими же правами:
$ perl -e "use Cwd; print cwd();"
/home/www/saitec2
работает.

Что может быть в правах неправильно?

8

Perl / PPM и репозиторий

« : 14 Февраля 2007, 22:24:21 »

Вот, вроде как нашел что-то подходящие: http://theoryx5.uwinnipeg.ca/ppms/

9

Perl / PPM и репозиторий

« : 14 Февраля 2007, 22:17:43 »

ondr
В том то и дело, что там выложены zip\'ы модулей только имеющих статус PASS, большинство же модулей просто недоступно.

10

Perl / PPM и репозиторий

« : 14 Февраля 2007, 20:04:41 »

Привет.

На машине установлен Perl, v5.8.6 (win32) от ActiveState\'а, есть менеджер PPM v 3.1

Мне для работы потребовалось установить модуль GD, захожу в менеджер:
>s GD
Searching in Active Repositories
   9. GD-Barcode            [1.15] Create barcode image with GD
  10. GD-Barcode            [1.15] GD-Barcode
  11. GD-Dashboard          [0.04] Perl module to create JPEG graphics of m
  12. GD-Dashboard          [0.04] GD-Dashboard
...
т.е. GD и в помине нет.

Как я понял, ActiveState убрал их из своего репозитория и больше не поддерживает.
Возможно ли PPM\'у указать использовать другой репозиторий (если да, то какой?), или же есть иной способ установки этого модуля.

11

Perl / аналог PHP константы ___FILE___

« : 08 Февраля 2007, 13:25:49 »

arto:
что это?

http://ru.php.net/manual/ru/language.constants.predefined.php

NeoNox:
Если это имя файла программы, то тогда $0.

Именно оно, спасибо!

12

Perl / аналог PHP константы ___FILE___

« : 08 Февраля 2007, 11:30:55 »

Собственно есть ли, что-то подобное в Perl?

13

Perl / module CGI & start_html()

« : 25 Января 2007, 23:48:31 »

AnnA:
use CGI qw/-no_xhtml :standard/;

Так оно не отключится.

Пока просто поставил такой кусок кода:
push(@result,$XHTML ? qq(<html>\\n<head>\\n<title>$title</title>)
                        : ($lang ? qq(<html lang="$lang">) : "<html>")
                      . "<head><title>$title</title>");

14

Perl / module CGI & start_html()

« : 25 Января 2007, 16:36:15 »

При использовании метода start_html(), генерируется заголовок

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

как запретить выводить xmlns="http ...
?

15

Perl / Парсер Xml

« : 19 Января 2007, 14:58:44 »

Попробуйте сразу после соединения с БД отправить запросы:
set character_set_client=\'cp1251\'
set character_set_results=\'cp1251\'
set collation_connection=\'cp1251_general_ci\'