#!/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 istorobots($)
{
    my ($name) = @_;
    for my $cfg_name ( @{$config{areafixNames}} ) {
        if( $name eq $cfg_name ) {
            return 1;
        }
    }
return 0;
}

1;