SM> Hi Sean!
SM> 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
SM> hptperlfile /home/fido/perl/filter.pl
SM> ---- filter.pl ----
SM> sub filter()
SM> {
SM> unless ( $area ) {
SM> if ( istous($toaddr) ) {
SM> if ( $fromname eq 'FileFix' ) {
SM> my $attrr = attr2str( $attr )
SM> if ( $attrr =~ /\bAtt\b/i ) {
SM> $kill = 1;
SM> return 'Attach from FileFix killed.';
SM> }
SM> }
SM> # ...
SM> }
SM> # ...
SM> }
SM> }
SM> sub istous($)
SM> {
SM> my ( $addrr ) = @_;
SM> for my $cfg_addr ( @{$config{addr}} ) {
SM> if( $addrr eq $cfg_addr ) {
SM> return 1;
SM> }
SM> }
SM> return 0;
SM> }
SM> -------------------
Thanks will log into the pc and try
Sean Rima
There Can Only Be 1
--- AfterShock/Android 1.7.4
* Origin: Tcob1 (2:263/1.1)
|