#!/usr/local/bin/perl ##### Variables ##### $database = "userpass.dat"; $im_url = "im.pl"; ##### End of Variables ##### use CGI qw(param); $user = param("user"); $pass = param("pass"); $form = param("form"); print "Content-type: text/html\n\n"; if ($form eq "") { print "Instant Messenger Sign Up"; print "


"; print "

Sign up








"; print "
"; print "
"; print "UserName:
Password:"; print ""; print "
"; print "
"; } else { $error = 0; if ($user eq "") {print "
  • Missing Username"; ++$error;} if ($pass eq "") {print "
  • Missing Password"; ++$error;} open(CHECK,"$database"); $check = ; close(CHECK); @lines = split(/&/,$check); foreach $line (@lines) { ($tmp,$tmpa) = split(/\|/,$line); if ($user eq $tmp) { print "username taken"; ++$error;} } if ($error == 0) { open(ADD,">>$database"); print ADD "$user|$pass&"; close(ADD); print "Done"; print "




    "; print ""; print "Try Logging in to your new account:

    "; print "Username:
    "; print "Password:
    "; print "
    "; print "







    "; $url = "http://freewebtvscripts.virtualave.net"; print "







    "; print "
    FreeWebTVScripts"; } }