if(param()){ my $username = param('username'); $username =~ s/\s+\z//; my $askname = param('askname'); $askname =~ s/\s+\z//; my $update = param('update'); if($username){ if($askname){ if(grep($username, @ignore) || grep($askname, @ignore)) { print "That didn't quite work"; exit; } if($update eq "add"){ if(exists $list{$username}){ print "Username already exists in database.\n"; } else{ $list{$username} = $askname; print "Username was added to our system!

\n"; } } elsif($update eq "rem"){ if(exists $list{$username}){ delete $list{$username}; print "Account information was removed from the system.\n"; } else{ print "Oops, it doesn't appear that username is in our database.\n"; } } } else{ print "For this to work please add your username.\n"; } }else{ print "Unless your name is null, please go back and fill it in.\n"; } } print end_html();