|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Pashchenko 2:5062/17.212 04 Nov 2003 16:53:30
To : All
Subject : filter.pl из HPT: в чём я не прав?
--------------------------------------------------------------------------------
Если кто не в курсе, то тоссер HPT позволяет писать хуки на Perl для обработки
почты.
Вот решил попробовать.
Задача такая, роутить мыло в зависимости от времени.
Делаю следующее, а роутит всегда на одну и ту же ноду. Почему?
Я что-то недоучил в перле или что-то неправильно написал?
-filter.pl-
--малость сокращено
sub route
{
# $addr = dest addr
# $from = orig addr
# $fromname = from user name
# $toname = to user name
# $date = message date and time
# $subj = subject line
# $text = message text
# $attr = message attributes
# $route = default route address (by config rules)
# $flavour = default route flavour (by config rules)
# set $flavour to hold|normal|crash|direct|immediate
# return route addr or "" for default routing
if($addr=~/^2:5062\/22$/){
@temp=localtime(time);
$hour=$temp[2];
w_log(1,"time is $temp[2]:$temp[1]:$temp[0]"); #Выводим время в лог
(выводиться нормально.
if($hour>=22 and $hour<=6){ #А вот тут начинаются
return '2:5062/22'; #А вот тут начинаются косяки
}else{ #А вот тут начинаются косяки
return '2:5062/17'; #А вот тут начинаются косяки
}
}
return "";
}
Что здесь не так?
--- 1.1.5-020726
* Origin: Меньше знаешь - крепче спишь! (2:5062/17.212)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
