Re: [webmin-devel] pty_process_exec

[Tan R. <tr...@ho...>]

Nope,
I did some more testing and that process does not spawn any other processes. 
I'm lost. Soooo many hours, so llittle accomplishment.

I'll keep looking, if you think of anything else please let me know.

T


----Original Message Follows----
From: Jamie Cameron <jca...@we...>
Reply-To: web...@li...
To: web...@li...
Subject: Re: [webmin-devel] pty_process_exec
Date: 24 May 2005 14:48:20 +1000

You must be seeing the Webmin process that then starts the bldora9ddl
process. Try searching for processes whose parent PID is the returned
pid.

   - Jamie

On Tue, 2005-05-24 at 14:35, Tan Rezaei wrote:
 > 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 <jca...@we...>
 > Reply-To: web...@li...
 > To: web...@li...
 > 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 web...@we...
To remove yourself from this list, go to
http://lists.sourceforge.net/lists/listinfo/webadmin-devel