#!/usr/bin/perl

#Einleitung

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use POSIX;
$q = new CGI;

$page = $q->param("page");

require "../hpm_einstellungen.cgi";
require "../templates_login/$logintemplate/daten.cgi";

if ($page eq "index")
{
   #Eingaben einlesen

   $username = $q->param("user");
   $passwort = $q->param("pass");
   $lng = $q->param("lng");

   $username = lc($username);

   if ($username eq "") { print "Location: $maindir/index.php?lng=$lng&page=fehler&er=29\n\n"; exit(); }
   if ($passwort eq "") { print "Location: $maindir/index.php?lng=$lng&page=fehler&er=30\n\n"; exit(); }

   if (!(-e "../$internmaindir/userdaten/main/$username.dat")) { print "Location: $maindir/index.php?lng=$lng&page=fehler&er=31\n\n"; }

   open(FILE, "../$internmaindir/userdaten/main/$username.dat");
   chomp(@userdata = <FILE>);
   close(FILE);

   $userid = $userdata[0];
   $sollpass = $userdata[2];
   $lng = $userdata[3];

   $passwortc = crypt $passwort, 12;
   $pass = $passwort;

   if (!($passwortc eq $sollpass)) { print "Location: $maindir/index.php?lng=$lng&page=fehler&er=31\n\n"; }

   #Session anlegen

   $time = time();
   $zf .= ("a".."z","A".."Z",0..9)[int rand 62] foreach 1..8;
   $uid = $time . "_" . $zf;

   open(FILE, ">sessions/$uid");
   print FILE $username . "\n";
   print FILE $lng . "\n";
   print FILE $userid . "\n";
   close(FILE);
}
else
{
   $uid = $q->param("uid");

   #Session vorhanden?

   if (-e "sessions/$uid")
   {
      open(FILE, "sessions/$uid");
      chomp(@sessfile = <FILE>);
      close(FILE);

      ($username, $lng, $userid) = @sessfile;
   }
   else
   {
      print "Location: $maindir/index.php?lng=$lng&page=fehler&er=31\n\n";

   }

   $bilderdir = "$maindir/sprache/$lng/bilder";
}

require $page . ".cgi";

exit();