View ¡m../sdba/impages/BROADCAST2.im¡n
<% # define admin password here #it will be case-sensitive $admin_password = "password"; #check to see if someone entered the password if ($INCOMINGMSG eq $admin_password){ include (BROADCASTadminmenu.im); # or they want to join the list } elsif ($INCOMINGMSG eq "Y"||$INCOMINGMSG eq "y"){ open (OUT, ">>impages/Broadcastlist.txt"); print OUT "$IMNET,$VISITOR\n"; close OUT; imecho "Thank you for joining the list. Press any key to continue." } else { #or just show the page again. include (BROADCAST.first); } X; %>