my $tcp;

unless( $tcp = $memory{"tcp_$args{frequency}"} ) {
    &uxmon::load_module( "tcp" );
    &uxmon::checker(
	$memory{"tcp_$args{frequency}"} = $tcp = Monitor::tcp->new( 8 )
    );
    $tcp->sched_frequency( $args{"frequency"} );
}

my( $port, $url ) = ( "http", $args{"cmd"} );
($url = "/") unless( $url =~ /:/ );

if( $args{"url"} ) {
    $url = $args{"url"};
}

if( $url =~ /:(\d+)/) {
    $port = $rules::1;
    $url =~ s/:\d+//;
}

$args{"service"} = "http($port)";
$args{"_spec1"} = $url;
do "_tcp";
