Re: [webmin-devel] pty_process_exec

I did some more debugging and now am trying the following code:

	&foreign_require("proc", "proc-lib.pl");
	($fh, $pid) = &proc::pty_process_exec("bldora9ddl -UR test gl gltransrel");
	print "$fh  $pid";
	@list=&proc::list_processes($pid);
	$cmd=@list[0]->{args};
	print "<br>$cmd";

that last print statement gives me:

"perl /usr/local/webmin/miniserv.pl /etc/webmin/miniserv.conf"

which is weird cause I am expecting to see "bldora9ddl -UR test gl 
gltransrel". Any clues what I am doing wrong here?
Its funny cause when I try the passwd example the print statment gives me 
the correct command.

Thanks

Tan

----Original Message Follows----
From: Jamie Cameron <[email protected]>
Reply-To: [email protected]
To: [email protected]
Subject: Re: [webmin-devel] pty_process_exec
Date: 24 May 2005 13:39:50 +1000

On Tue, 2005-05-24 at 12:27, Tan Rezaei wrote:
 > I am trying to get this to work but I get a "-1" as my $rv when I run it. 
I
 > am not sure what I am doing wrong.
 >
 > 	&foreign_require("proc", "proc-lib.pl");
 > 	($fh, $pid) = &proc::pty_process_exec("$driver -UR $pdline $sys $tab");
 > 	while(1) {
 > 		$rv = &wait_for($fh, "Are you sure you want to continue (Yy)\?");
 > 		print $rv;
 > 		if ($rv == 0) {
 > 			print "Saying Yes";
 > 			sysprint($fh, "y\n");
 > 			}
 > 		else {
 > 			last;
 > 			}
 > 		}
 > 	close($fh);
 >
 >
 > And my prompt looks like this when I run the command from the terminal:
 >
 > This option will also remove all of the data.
 > Are you sure you want to continue (Yy)?
 >
 > I need to type in "y" here and hit enter here.
 >
 > I have also tried maney other patterns in place of "Are you sure you want 
to
 > continue (Yy)?"
 >
 > I even tried just "\?" or "\\?" nothing seems to work.
 >
 > Thanks for your help

You could try changing the wait_for call to something like :

$rv = &wait_for($fh, 'Are you sure you want to continue \(Yy\)\?');

Quoting the (, ) and ? characters is important, as the parameters to
wait_for are regular expressions.

  - Jamie






-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click
-
Forwarded by the Webmin development list at [email protected]
To remove yourself from this list, go to
http://lists.sourceforge.net/lists/listinfo/webadmin-devel




-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click
-
Forwarded by the Webmin development list at [email protected]
To remove yourself from this list, go to
http://lists.sourceforge.net/lists/listinfo/webadmin-devel