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

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


sub istomypoint($)
{
    my ( $addrr ) = @_;
    for my $cfg_addr ( @{$config{addr}} ) {
	w_log( "$addrr $cfg_addr" );
        if( $addrr =~ /^$cfg_addr\.\d+$/ ) {
#    	    w_log("$addrr is");
            return 1;
        }
    }
return 0;
}

sub notmypoint($)
{
    my ( $addrr ) = @_;
    
    w_log( "testing $addrr" );
    if ( istomypoint($addrr) && !defined( $links{$addrr}{name} ) ) {
	w_log("Message to Unknown point address \'$addrr\' delted.");
	my $m_text = $text;
	$m_text =~ s/\r--- /\r-+- /;
	$m_text =~ s/\r \* Origin\: /\r \+ Origin\: /;
	$m_text =~ s/\x01/\@/g;
#	$addrr =~ /(\d+\:\d+\/\d+)\.\d+/;
        putMsgInArea('', $config{sysop}, $fromname, '', $fromaddr,
           'Unknown point addres', undef, $LOC+$PVT,
           "You sent a message to a non-existent address. ".
           "I am returning your message.\r\r".
           "=============================================================\r".
           sprintf("From: %-32s",$fromname).
           sprintf("%-20s $date\r",$fromaddr).
           sprintf("To  : %-32s",$toname)."$toaddr\r".
           "=============================================================\r".
           $m_text .
           "=============================================================\r".
           "--- Perl on $hpt_version\r",1 );
        return 1;
     }
     return 0;
}

sub istorobots($)
{
    my ($name) = @_;
    for my $cfg_name ( @{$config{areafixNames}} ) {
        if( $name eq $cfg_name ) {
            return 1;
        }
    }
return 0;
}

1;