#!/usr/bin/perl
use CGI qw(:standard);
$THRU = "0";
$PASSWORD = chomp(param('code'));
$salt = substr $PASSWORD, 0, 2;
$guess = crypt($PASSWORD, $salt);
open(USERLIST, "<users") or die "Can't open user list: $!\n";
while (chop($PWS = <USERLIST>)) {
      if ( $PWS eq $guess ) { $THRU = "1"; };
  }
close USERLIST;
print "Content-type: text/html\n\n";
if ($THRU eq "1") {
  #generierung der html für den geschlossenen bereich ('wilkommen')
 };
if ($THRU eq "0") {
  #generierung der html für 'du kommst net rein'
};
exit (0);