форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"perl & cron"
Сообщение от Dawnshade on 11-Июн-02, 09:33  (MSK)
Проблемка в следующем: Из-под крона (из-под рута) запускаю перловый скриптик с отправкой чегото по senmail. Приходит пустое писмо. Через шелл все нормально... В чем грабли не подскажите?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: perl & cron"
Сообщение от Paul on 11-Июн-02, 09:34  (MSK)
скриптик, ключи запуска сендмейла и кроновую строчку покажи
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: perl & cron"
	Сообщение от Dawnshade on 11-Июн-02, 09:50  (MSK)
	>скриптик, ключи запуска сендмейла и кроновую строчку покажи cron: 0      8       *       *       *       root    /usr/local/send.pl ----------------------- sendmail - классический только "-bd" ---------------------- send.pl #!/usr/bin/perl                                                                         $|="1";                                                                                                                                                                        $subject="Traffic Output";                                                             $message="";                                                                           $to_email="noc\@xxxx\.ru";                                                                                                                                                                                                                                 open(MSG, "ipastat -a |");                                                             foreach (<MSG>)                                                                                {                                                                                       if ((substr($_,0,1) ne "+") and (substr($_,1,1) ne "*" ))                              {                                                                                       if (((substr($_,0,1)) = "|") and ((substr($_,2,4) ne "Rule" )))                                        {                                                                                      $len = length ($_);                                                                    $x = substr ($_, 2, $len-11);                                                          open(MSG2, "ipastat -r $x |");                                                          foreach (<MSG2>)                                                                                {                                                                                      $message.=$_ ;                                                                          }                                                                              close MSG2;                                                                            #print "$x\n";                                                                          };                                                                       }                                                                                      }                                                                               close MSG;                                                                                                                                           open (SENDMAIL, "|/usr/sbin/sendmail -t") || die "ERROR: Can not run sendmail";         print SENDMAIL "MIME-Version: 1.0\n";                                                   print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";                       print SENDMAIL "Content-Transfer-Encoding: 8bit\n";                                     print SENDMAIL "To: $to_email\n";                                                       print SENDMAIL "From: TechSupport <noc\@xxxx\.ru>\n";                         print SENDMAIL "Subject: $subject\n\n";                                                 print SENDMAIL $message . "\n";                                                         close (SENDMAIL);
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "RE: perl & cron"
	Сообщение от Paul on 11-Июн-02, 09:57  (MSK)
	попробуй указать полный путь к ipastat'у в скрипте
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: perl & cron"
	Сообщение от Dawnshade on 11-Июн-02, 10:08  (MSK)
	>попробуй указать полный путь к ipastat'у в скрипте Ща попробую
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "RE: perl & cron"
	Сообщение от Paul on 11-Июн-02, 10:16  (MSK)
	ну и как успехи?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "RE: perl & cron"
	Сообщение от Dawnshade on 11-Июн-02, 10:24  (MSK)
	>ну и как успехи? Все пучком! Списибо...
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	7. "RE: perl & cron"
	Сообщение от Paul on 11-Июн-02, 10:46  (MSK)
	как вариант - описать в crontab'е переменную PATH.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.