Help for this page

Select Code to Download


  1. or download this
        open(STDERR, ">&STDOUT");   # changes STDERR to STDOUT, lets the p
    +assword thing actually work.... I think
        if ($METHOD eq 'telnet')
    ...
    
            $shell->close;
          }
    
  2. or download this
    sub telnet_login  # opens a telnet session to "host"
      {
    ...
        $$shell->open(Host=>$host);            # opens the object
        $$shell->login($username,$password);  # login to the telnet sessio
    +n
      }