my $atmport;
my $snmp;
my $community=$args{"community"}?$args{"community"}:"public";
(exit 0) unless ($args{switch});


unless( $snmp = $memory{"snmp_$args{switch}_$community_$args{frequency}"} ) {
    &uxmon::load_module( "snmp" );
    &uxmon::checker(
        $memory{"snmp_$args{switch}_$community_$args{frequency}"} = $snmp = Monitor::snmp->new( $args{switch}, $community )
    );
    $snmp->sched_frequency( $args{"frequency"} );
}

unless( $atmport = $memory{"atmport_$args{switch}_$community_$args{frequency}"} ) {
    &uxmon::load_module( "atmport" );
    &uxmon::checker(
	$memory{"atmport_$args{switch}_$community_$args{frequency}"} = $atmport = Monitor::atmport->new( 
		$args{switch}, $community, $args{"frequency"}, $snmp )
    );
    $atmport->sched_frequency( $args{"frequency"} );
}

$atmport->add_check( $args{"host"}, $args{"alias"}.".port", $args{"port"}, $args{"vpi"} );
