= Сообщение: 3630 из 5321 ========================================= RU.HUSKY = От : Mikhail Stakhanov 2:5020/932.1 10 Mar 19 11:09:56 Кому : Brother Rabbit 10 Mar 19 11:09:56 Тема : Re: remap & recived FGHI : area://RU.HUSKY?msgid=2:5020/932.1+5c84c6af На : area://RU.HUSKY?msgid=2:460/5858+5c84c0b8 = Кодировка сообщения определена как: CP866 ================================== Ответ: area://RU.HUSKY?msgid=2:460/5858+5c84ef39 ============================================================================== Здравствуйте, Brother!
Ответ на сообщение Brother Rabbit (2:460/5858) к Mikhail Stakhanov, написанное 10 мар 19 в 09:59: Спасибо. BR> Зачем так? Есть же предефайнед переменная $config{areafixNames}. BR> Остется в конфиге их описать. а где все предефайнел переменные посмотреть ? MS>> sub filter MS>> { MS>> $priznak = 0; MS>> for my $test1 (@robots) MS>> { MS>> if ($test1 eq $toname) MS>> { MS>> $priznak=1; MS>> } MS>> } MS>> if (!defined $area && $priznak == 0) MS>> { MS>> ......... так работает :)
BR> Не-не-не. ??? BR> Или вот так:
BR> if ( $toname eq $config{sysop} ) { BR> #do smth. here BR> }
BR> Или вот так:
BR> sub istorobots() BR> { BR> my ($name) = @_; BR> for my $cfg_name ( @{$config{areafixNames}} ) { BR> if( $name eq $cfg_name ) { BR> return 1; BR> } BR> } BR> return 0; BR> }
BR> sub filter() BR> { BR> # .......
BR> if ( istorobots( $toname ) == 0 ) { BR> #do smth. here BR> }
BR> # ....... BR> }
И так работает :) Спасибо!
Всего наилучшего, Mikhail --- GoldED+/W32-MINGW 1.1.5-b20120519 * Origin: Жить надо так, чтобы тебя помнили даже сволочи (c) Ф. (2:5020/932.1)
