remap & recived
Brother Rabbit написал(а) к Mikhail Stakhanov в Mar 19 14:03:06 по местному времени:
Нi, 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> И так работает :) Спасибо!
Не за что. ;)
Нave nice nights.
Brother Rabbit.
--- Самое страшное не то, что мы теперь взрослые. А то, что взрослые теперь мы
|