Subj : Deleting netmail attach messages
To   : Sean Rima
From : Stas Mishchenkov
Date : Tue Aug 01 2023 02:58 pm

Hi Sean!

Tuesday August 01 2023 12:01, you wrote to All:

 SR> How do I delete netmail attach messages that come in with files and
 SR> tics. I searched the texi file but cannot see it

hptperlfile /home/fido/perl/filter.pl

---- filter.pl ----

sub filter()
{
  unless ( $area ) {
    if ( istous($toaddr) ) {
      if ( $fromname eq 'FileFix' ) {
        my $attrr = attr2str( $attr )
        if ( $attrr  =~ /\bAtt\b/i ) {
                $kill = 1;
                return 'Attach from FileFix killed.';
        }
      }
# ...
    }
# ...
  }
}


sub istous($)
{
    my ( $addrr ) = @_;
    for my $cfg_addr ( @{$config{addr}} ) {
        if( $addrr eq $cfg_addr ) {
            return 1;
        }
    }
return 0;
}

-------------------


Have a nice night.
          Stas Mishchenkov.

--- Have You daily sexual life? Hide it proper from Your wife! ;)
 * Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)

.