#!/usr/local/bin/perl print "Content-type: text/html\n\n"; ##### Variables ##### $database = "userpass.dat"; $messages = "data/"; $join_url = "join.pl"; ##### Done with Variables ##### $error = 0; use CGI qw(param); $user = param("user"); $pass = param("pass"); $action = param("action"); $to = param("to"); $message = param("message"); if ($user eq "") { &error("Missing UserName"); } if ($pass eq "") { &error("Missing Password"); } open(DATA,"$database"); $data = ; close(DATA); @lines = split(/&/,$data); $logged = "OUT"; foreach $line (@lines) { ($tmpuser,$tmppass) = split(/\|/,$line); if ($user eq $tmpuser) { if ($pass eq $tmppass) { $logged = "IN"; } } } if ($logged eq "OUT") { &error("Login Info not Correct"); } if ($error == 0) { print "Instant Messenger"; print "
"; print "

Logged In:


"; print "


"; print "

Messages:


"; print "
"; print "Clear

"; print "

Send Message:


"; print ""; print ""; print "
To:

"; print "Message:




Options:"; print "


User List"; print "


"; print "Previous Action:


"; if ($action eq "send") { open(SEND,">>$messages$to"); print SEND "$user|$message&"; close(SEND); print "Sent message to $to."; } elsif ($action eq "clear") { open(DEL,">$messages$user"); print DEL ""; close(DEL); print "Deleted Messages"; } elsif ($action eq "users") { foreach $line (@lines) { ($tmpuser,$tmppass) = split(/\|/,$line); print "
  • $tmpuser"; } } else { print "No previous action"; } } sub error { $msg = shift(@_); ++$error; if ($error == 1) { print "ERROR!!!!!!"; print ""; print "

    ERROR:

    "; print "

    "; print "UserName:
    "; print "PassWord:
    "; print "JOIN"; print "



    "; } print "
  • $msg"; }