serial console with perl

[mgoland]

Hi All,

   I am trying to automate some stuff, which requires me to login through serial 
interfaces on Solaris 8. I have searched CPAN with no luck, and the following code 
producess tip non-interrective error. Any ideas ??

Thanks in advance,
Mark G.

midjump# cat ./console
#!/usr/local/bin/perl -w
use Fcntl;
use IPC::Open2;
use FileHandle;

open2(*RD,*WR,"tip p0")|| die "cant open ttys: $!\n";

print WR "\n";
print <RD>;
midjump# ./console
tip: must be interactive




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]