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
