use CGI; my $cgi = CGI->new; my %form = $cgi->Vars; sub member_login { my $username = unpack("H*",lc($form{nick})); if($form{nick} eq "") { &my_error("$language{field23}"); } if($form{pass} eq "") { &my_error("$language{field58}"); } if(!-e "./$config{cards}/$username.dat") { &my_error("$language{field30}"); } open(DAT,"<./$config{cards}/$username.dat") || die $!; my @read = ; close(DAT); chomp @read[0..$#read]; if(crypt($form{pass},'ya') ne $read[1]) { &my_error("$language{field59}"); } print<<"EOT";

ID Card ändern
$language{field32}:	$read[0]
$language{field55}:
$language{field60}:
$language{field35}:
$language{field36}:
$language{field37}:
$language{field38}:
$language{field33}:
$language{field41}:
$language{field39}:
$language{field40}:
$language{field17}:	$read[10]
$language{field18}:	$read[11]
$language{field19}:
$language{field20}:
$language{field61}:
$language{field45}:	$read[14]

EOT open(DAT,">$ENV{DOCUMENT_ROOT}/idcards/images/$read[0].gif") || die $!; binmode DAT; binmode $form{upload}; my $data; while(read $form{upload}, $data, 1024) { print DAT $data; } close(DAT);