#!/usr/bin/perl ## LOGIN FORM TEMPLATE FILE print " Chatting in $FORM{'site'}
"; &opensystemp; print "
username
password
Chatting is easy! Simply type in your username and password to login.

Don't have an account? Click here to register!

"; ### DONT EDIT ANYTHING BELOW ### sub opensystemp { print " "; open(sFILE6,"$basenetworkdir/tempfiles/chatsystems/$FORM{'site'}.html"); @sLINES6 = ; close(sFILE6); foreach $sdd (@sLINES6) { print $sdd; } }