ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Ilya Lushcheev                       2:5004/56.1    01 Jun 2001  13:58:38
 To : All
 Subject : perl: работа со строками
 -------------------------------------------------------------------------------- 
 

 
 Пускаю из /etc/mgetty+sendfax/login.config следующий скрипт:
 
 ------------------------------------------
 #!/usr/bin/perl 
 $d=substr($ARGV[1],-8);
 system("set>>/var/log/fidonet/aon.log");
 system("echo `date` $ARGV[0] connected from $d >>/var/log/fidonet/aon.log"); 
 system("$ARGV[2] $ARGV[3] $ARGV[4]");
 ------------------------------------------
 При этом в ARGV[1] передается строка $CONNECT из модема.
 Скрипт должен выделить из нее номер звонящего, 
 ааа/ббб/ссс/123456789 -> 123456789.
 
 Этот скрипт работает, если я его запускаю руками.
 вопрос в том, почему этот скрипт не работает, 
 если я его запускаю из mgetty
 
 Файл /etc/mgetty+sendfax/login.config:
 
 /FIDO/   uucp   fidonet   /etc/mgetty+sendfax/run_ext @ $CONNECT           
 /usr/sbin/ifcico @ 
 /AutoPPP/ -   a_ppp   /etc/mgetty+sendfax/run_ext @ $CONNECT /usr/sbin/pppd    
         call incoming
 
 При запуске из mgetty все функции работы со сторками
 почему-то прекращают работать, команда поиска по шаблону 
 не находит то, что точно присутствует в строке, 
 команда взятия подстроки $s=substr($s,-8) 
 оставляет все без изменения и т.д.
 
 Может быть перлу необходимы какие-нибудь переменные окружения,
 которые не установлены при вызове из mgetty?
   С уважением, 
                         Илья 
 ---
  * Origin:            (2:5004/56.1)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    perl: работа со строками   Ilya Lushcheev   01 Jun 2001 13:58:38   Re: perl: работа со строками   Ilya Evseev   06 Jun 2001 05:08:52