my $th = new Net::Telnet (input_log => "$dir/$log", dump_log => (*STDOUT), Host => "$server", Prompt => '/sybase?/'); print "******DUMPING $cltdb TRANSACTION******\n"; $th->login("user", "$unixpass"); my @lines = $th->cmd("backup.pl Server.Name=$dbsrvr Backup.Database=$c +ltdb Backup.Type=tran"); $th->waitfor('/ /'); print @lines; $th->waitfor('/sybase?/'); print @lines;
In reply to Net::Telnet time outs by mnlight
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |