- my($reader,$writer,$error)=(new IO::Handle, new IO::Handle, new IO::Handle);
- sshopen3("root\@$machine", $reader, $writer, $error,
- "mysql --user=$user -p $db"
- );
- print $writer "$pass\nLOCK TABLES radcheck WRITE;\n";
+ open(WRITER,"|ssh root\@$machine mysql -v --user=$user -p $db");
+ my $oldfh = select WRITER; $|=1; select $oldfh;
+ print WRITER "$pass\n";
+ sleep 2;
+ print WRITER "LOCK TABLES radcheck WRITE, radreply WRITE;\n";