SM>>> Дык, а кто тебе не даёт-то? Берём в руки перлхук и люёгким SM>>> движением... RHS>> Если упоминается Perl, то это получается уже далеко не лёгким RHS>> движением :-) Хотя для мазох^W привыкших да, лёгким. SM> Ваще ни каких сложностей. SM> sub filter SM> { SM> if ( defined($area) ) { SM> if ( $toname =~ /\b$config{sysop}\b/i ) { SM> putMsgInArea("Carbon.Area", $fromname, $toname, SM> $fromaddr, $toaddr, $subject, $date, SM> $attr, $text, 0); SM> } elsif ( $mtext =~ /\b$config{sysop}\b/i ) { SM> putMsgInArea("Carbon.Area", $fromname, $toname, SM> $fromaddr, $toaddr, $subject, $date, SM> $attr, $text, 0); SM> } SM> } SM> }
Интересно, когда за египетские скобки начнут расстреливать...
-- Alexey V. Vissarionov aka Gremlin from Kremlin gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii
... Пароль - как коньяк: чем больше звездочек, тем лучше --- /bin/vi * Origin: ::1 (2:5020/545)