=**************************************
    = Name: PMTR
    = Description:The purpose of this script
    =     is to monitor a specific TCP ports avail
    =     ability and to automatically restart the
    =     listening process should a connection at
    =     tempt to that port fail.
    = By: Anthony M. Saffer
    =
    = Inputs:You must provide the IP of the 
    =     remote host, the port to attempt the con
    =     nection to, and the application to resta
    =     rt should the connection fail.
    =
    = Returns:This code does not return any 
    =     data.
    =
    = Assumes:This script is not intended to
    =     be run interactively. It should be set u
    =     p on a cron job (on *nix) or using the s
    =     cheduler on Windows.
    =
    = Side Effects:NONE KNOWN SIDE EFFECTS.
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=466&lngWId;=6    =for details.    =**************************************
    
    #!usr/bin/perl -w
    use strict;
    use IO::Socket;
    ##############################################################################
    # Written By: Anthony Papillion
    # Email: anthonypapillion@msn.com
    ##############################################################################
    # DESCRIPTION:
    # Monitors port availability and restarts process if port isn't available.
    ##############################################################################
    # USAGE:
    # 	pmtr <host> <remote port> <application path>
    ##############################################################################
    my $host_ip 	= $ARGV[0] || &usage;
    my $host_port= $ARGV[1] || &usage;
    my $applicationpth = $ARGV[2] || &usage;
    my $sock = new IO::Socket::INET(
    	PeerAddr => $host_ip,
    	PeerPort => $host_port,
    Proto => "tcp");
    if(!$sock){
    	my $restart = system($applicationpth);
    	exit(0);
    }
    exit(0);
    sub usage{
    	print "usage: pmtr <host_ip> <host_port> <application_path>\n";
    	print "\tHOST_IP= The IP address of the remote host to monitor\n";
    	print "\tHOST_PORT = The remote port to monitor\n";
    	print "\tAPPLICATION_PATH= Path to application to restart if failure\n\n";
    	exit(0);
    }