_SSH.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SSH();}
1;
sub _SSH {
    my $ss_input = shift || "";
    print "  _SSH($ss_input)\n" if $DEBUG > 1;
    # THIS WORKED VIA CYGWIN
    #-----------------------------------------------------------
    #$ ssh caadmin@usfklca27 /bin/ls
    #caadmin:v3nd0r@usfklca27's password:
    #2009_06_15
    #2009_06_15.tar
    #2009_11_07-235000_Removed.log
    #-----------------------------------------------------------
    #Frank-Earnhardt@hlouviltl3k5241 ~
    # ssh caadmin@usfklca27 /bin/pwd
    #caadmin@usfklca27's password:
    #home/caadmin
    #-----------------------------------------------------------
    #ssh usfkl21as37 /opt/CA/ServiceDesk/bin/pdm_tomcat_nxd -cstop
    #
    # you may also look at psexec ** THIS WORED **
    # psexec \\usfklca26 -u usfklca26\ca -p unicenter cmd /c "E:\SERVIC~1\bin\pdm_cache_refresh.EXE -t Attachment,401194,401195,401196,401197,401198,401199,401200,401201,401202,401203,401204,401205,401206,401207,401208,401209,401210,401211,401212,401213"
    if (uc($ss_input) =~ /SETUP/) {
        &_FH_KNOWN($ss_input);
        return;
    }