#!/usr/bin/perl
#
# my useful subs for HPT perl
# (c) Stas Mishchenkov 2:460/58
#
#

our @my_aka = qw(
    2:460/5858
    2:460/58.10
);

sub copynetmail($$$$$$$$)
{
    local ($from_addr, $from_name, $to_addr, $to_name, $subj_ect, $mdate, $mattr, $mtext) = @_;
	    $mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
	    $mtext =~ s/\x01TOPT \d+\r//;
	    for my $d_addrr (@my_aka){
		if ( $from_addr ne $d_addrr && $to_addr ne $d_addrr) {
		    putMsgInArea( "NetMail", $from_name, $to_name, $from_addr,
			$d_addrr, $subj_ect, $mdate, $mattr,
			"\001Rem: copy to $d_addrr\r$mtext", 2 );
#			$newnet=1;
			w_log("Message from \"$from_name $from_addr\" copied to \"$d_addrr\"");
		}
	     }
}


sub istoaka($)
{
    local ($addrr) = @_;
    for my $d_addr (@my_aka){
	if( $addrr eq $d_addr) {
	return 1;
       }
    }
return 0;
}

1;