Subj : Re: filter.pl
To   : Al
From : Avon
Date : Sun Apr 25 2021 08:53 pm


I wonder if where I see >= I just set it to =   ?

         if ( $subj =~ /\%RouteTo\: (\d\:\d+\/\d+)/i) {
             w_log( "\'\%RouteTo\:\' command found." );
             if ( defined $links{$1}{password} &&
                  $links{$1}{level} >= $m_level ) {
                $addline = "\r\%RouteTo\: $1\r" if $secure == 1;
             } else {
              $addline = "\r$1 isn't my password protecded link. '%RouteTo\:
$1' command was ignored.\r";
                        w_log("$1 isn't protecded link. \'\%RouteTo\: $1\'
command was not accepted.");
                }
         }
                if ( $subj =~ /\%Links/i) {
             $addline .= "My links are:\r~~~~~~~~~~~~~\r";
             foreach my $key( sort keys %links) {
             $addline .= sprintf("%-20s", $key) .
             "$links{$key}{name}\r" if defined $links{$key}{password} &&
                        $key =~ /^\d+\:\d+\/\d+$/ &&
                        $links{$key}{name} !~ /Our virtual lin/i &&
                        $links{$key}{level} >= $m_level;

--- Mystic BBS v1.12 A46 2020/08/26 (Windows/32)
 * Origin: Agency BBS | Dunedin, New Zealand | agency.bbs.nz (21:1/101)

.