#!/usr/bin/perl

print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);

if($ENV{'REQUEST_METHOD'} eq "GET")
     {
           $in = $ENV{'QUERY_STRING'};
     }
elsif($ENV{'REQUEST_METHOD'} eq "POST")
     {
           read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
     }

@pairs = split(/&/, $in);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\|/-/;
$value =~ s/&&/&/;
$value =~ s/§§/-/;
$value =~ s/§/-/;
$in{$name} = $value;
}
require "config.cgi";
require "lib.pl"; 

&header;



open (IPS, "ips.dat");
		@logged_ips = <IPS>;
	close(IPS);
		
		foreach $IPEINTRAG (@logged_ips) {
		if ($IPEINTRAG eq "$ENV{'REMOTE_ADDR'}\n") {		
		
		open (DATA, "ips/$ENV{'REMOTE_ADDR'}.dat");
		$userid = <DATA>;
	close(DATA);
		
	(@kat) = split(/\|/,$kategorien);
foreach $folder (@kat){
print " <center><a href=\"shop.cgi?folder=$folder&id=$userid\">$folder</a> ";
}

		}
		}
		
	foreach $IPEINTRAG (@logged_ips) {
		if ($IPEINTRAG ne "$ENV{'REMOTE_ADDR'}\n") {			
		&gen_pass;
$userid = "$temp_pass";

open (LIST,">ips.dat");
print LIST "$ENV{'REMOTE_ADDR'}\n";
close(LIST);

open (DAT,">ips/$ENV{'REMOTE_ADDR'}.dat");
print DAT "$userid";
close(DAT);
		
	(@kat) = split(/\|/,$kategorien);
foreach $folder (@kat){
print "<center> <a href=\"shop.cgi?folder=$folder&id=$userid\">$folder</a> ";
}

}
}
print "<br><br>Bitte wählen Sie in den obenstehenden Kategorien aus.</center>";

&footer;
  sub gen_pass {
@chars=(1..9);
	$temp_pass="";
	for ($i=1;$i<=15;$i++){	#generate a 9 character temporary password
		$temp_pass .= $chars[rand(@chars)];
	}
	$email = $FORM{'email'};
	$salt=substr($email,0,2);
	$en_pword=crypt($temp_pass,$salt);
}