You might be able to do it with Net::SSH module...
http://search.cpan.org/author/IVAN/Net-SSH-0.07/SSH.pm
--- Zbynek Houska <[EMAIL PROTECTED]> wrote:
> Dear perlers,
>
> I have script which will control whether simple
> network has connection (dial up) to zhe internet or
> not. Code is shown below. But I cannot solve login
> into customized unix shell which will execute script
> for internet dialing.
>
> ----snip---
>
> #!/usr/bin/perl
> $run=0;
> while(){
> if (-e '/var/run/pppd.pid'){
> $run++;
> }
> last;
> }
> print "Content-type:text/html\n\n";
> while(){
> if ($run==1){
> print <<END_OF_PAGE
> <html>
> <title>Status page</title>
> <hl>Connection is already active!
> <br>Do you wish to disconnect?<p>
> <form action="http://?.cgi"; method=post>
> USER NAME:
> <INPUT TYPE="text" NAME="var1" SIZE=30 MAXLENGTH=50>
> <p>
> PASSWORD:
> <INPUT TYPE="password" NAME="var2" SIZE=30
> MAXLENGTH=50>
> <p>
> <INPUT TYPE="submit" VALUE="Disconnect?">
> </form>
> </hl>
> </html>
> END_OF_PAGE
> }
> else {
> print <<END_OF_PAGE
> <html>
> <title>Status page</title>
> <hl>Connection is NOT active!
> <br>Do you wish to connect?<p>
> <form action= method=post>
> USER NAME:
> <INPUT TYPE="text" NAME="var1" SIZE=30 MAXLENGTH=50>
> <p>
> PASSWORD:
> <INPUT TYPE="password" NAME="var2" SIZE=30
> MAXLENGTH=50>
> <p>
> <INPUT TYPE="submit" VALUE="Connect?">
> </form>
> </hl>
> </html>
> END_OF_PAGE
> }
> last;
> }
>
>
>
> ---snip---
>
> Do someone know how to solve it?
>
> Thanks in advance.
>
> Zbynek
>
____________________________________________________________
> Dej volny den svym brylim a prozij leto naplno. Kup
> baleni cocek Focus DAILIES za akcni cenu a získej 10
> cocek ZDARMA!
>
http://ad2.seznam.cz/redir.cgi?instance=56077%26url=http://www.cz.cibavision.com/
>
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=====
Anthony Ettinger
[EMAIL PROTECTED]
http://www.apwebdesign.com
Instant Messengers:
1) yahoo im: apwebdesign 2) aol im: apwebdesignxl
3) msn im: [EMAIL PROTECTED] 4) icq im: 659139
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
