FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.HUSKY
Присутствуют сообщения из эхоконференции RU.HUSKY с датами от 16 Jul 13 10:00:06 до 31 Mar 24 23:49:12, всего сообщений: 5321
= Сообщение: 3632 из 5321 ========================================= RU.HUSKY = От : Brother Rabbit 2:460/5858 10 Mar 19 14:03:06 Кому : Mikhail Stakhanov 10 Mar 19 14:03:06 Тема : remap & recived FGHI : area://RU.HUSKY?msgid=2:460/5858+5c84ef39 На : area://RU.HUSKY?msgid=2:5020/932.1+5c84c6af = Кодировка сообщения определена как: CP866 ================================== ============================================================================== Hi, Mikhail!
10 мар 19 11:09, Mikhail Stakhanov -> Brother Rabbit:
BR>> Зачем так? Есть же предефайнед переменная $config{areafixNames}. BR>> Остется в конфиге их описать.
MS> а где все предефайнел переменные посмотреть ?
doc\perlhooks.rus
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>>> .........
MS> так работает :)
BR>> Не-не-не.
MS> ???
Так не нужно делать. ;)
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>> }
MS> И так работает :) Спасибо!
Не за что. ;)
Have nice nights. |
|