it's just one utility for my bos to make ping using http service (intranet).
i am thinking this: a html page whith 3 frames. where one frame has the form to input the $host variable and starts the script the second frame has this tag on the HEAD <META HTTP-EQUIV="Refresh" CONTENT="5;URL=myscript_pipe_output.html"> my_ping_script.pl in the while function write myscript_pipe_output.html file and the other frame has the button to send Ctrl-c to the OS but, how do i send a Ctrl-c command to Perl? ----- Original Message ----- From: "Jones Robert Civ TTMS Keesler" <[EMAIL PROTECTED]> To: "active perl" <[EMAIL PROTECTED]> Sent: Thursday, April 22, 2004 1:35 PM Subject: RE: ping $host > > Ctrl-c will kill the job, or you can put in a counter to terminate the > job after an interval has expired. In whatever program you were going to > set this up in, what would your indicator to stop the job be? > > > -----Original Message----- > From: yop = me [mailto:[EMAIL PROTECTED] > Sent: Thursday, April 22, 2004 12:26 PM > To: active perl > Subject: Re: ping $host > > > thanks ... but in this code i can't stop the ping command. > the line close(TPN); #this line it will never happen > > > ----- Original Message ----- > From: "Jones Robert Civ TTMS Keesler" <[EMAIL PROTECTED]> > To: "active perl" <[EMAIL PROTECTED]> > Sent: Thursday, April 22, 2004 1:02 PM > Subject: RE: ping $host > > > > > > open (TPN, "ping -t $host|"); > > while (TPN) > > { Do stuff ... } > > close(TPN); > > > > > > -----Original Message----- > > From: yop = me [mailto:[EMAIL PROTECTED] > > Sent: Thursday, April 22, 2004 11:49 AM > > To: active perl > > Subject: Re: ping $host > > > > > > Hy > > > > @result = `ping $host`; #It's works fine. :-)) > > > > But what happends if i make my ping with -t option: > > > > ping -t $host. > > > > it will loop for ever. so i must make something that > > allows me to stop the ping command. > > > > How? > > mybe constructing an HTML object with VB, > > like a console > > > > some sugestions? > > > > thanks! > > > > _______________________________________________ > > ActivePerl mailing list > > [EMAIL PROTECTED] > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > _______________________________________________ > > ActivePerl mailing list > > [EMAIL PROTECTED] > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > _______________________________________________ > ActivePerl mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ > ActivePerl mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
