Listing 7
Listing 7: New isps.pl script

#!/usr/local/bin/perl

print <<EOF
<HTML>
<HEAD>
<TITLE>PPP Startup</TITLE>
</HEAD>
<BODY>
<H1>Available Internet Service Providers</H1>
<br>
<hr>
<br>
EOF
;

@isps = glob "pppconnect.*";
foreach $isp ( @isps ) {
$ispname = $isp;
$ispname =~ s/pppconnect\.//;
print "<applet codebase=http://ra.reseau.nl:1307 \
code=MyButton.class width=200 \
height=100 align=middle>\n";
print "<param name=BtnName Value=$ispname>\n";
print "</applet>\n";
}

print <<EOF
<br>
<hr>
<br>
</BODY>
</HTML>
EOF
;