Hi,
I am trying to get Perl telnet to work on our *nix
boxes, and I am missing something. I'm sure it is
obvious. If anyone can help. I would appreciate it.
Listed below is the code I use and the login screen
from one of our FreeBSD boxes (sparky).
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#!/usr/local/bin/perl -w
use Net::Telnet ();
$username = "sqa";
$passwd = "sqa";
$machine = "sparky";
print $t = new Net::Telnet (Timeout => 10, Prompt =>
'/$username\@$machine\#/');
print $t->open($machine);
print $t->login($username, $passwd);
$t->cmd("p4 sync -f
//info.geodesic.com/eng/pe/tools/bin/...");
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Trying XXX.XXX.XXX.XXX...
Connected to sparky.geodesic.com.
Escape character is '^]'.
FreeBSD/i386 (sparky.geodesic.com) (ttyp1)
login: sqa
Password:
Last login: Thu Nov 8 10:41:46 from duke
Copyright (c) 1980, 1983, 1986, 1988, 1990, 1991,
1993, 1994
The Regents of the University of California.
All rights reserved.
FreeBSD 3.5-STABLE (sparky) #6: Sat Nov 4 12:00:07
CST 2000
/chicago/sqa/sqa
sqa@sparky#
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Thanks,
Daryl Hoyt
__________________________________________________
Do You Yahoo!?
Find a job, post your resume.
http://careers.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
