#!/usr/bin/perl

use strict;
use CGI;
use CGI qw(:standart);
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;
use Digest::MD5 qw(md5_hex);
require("config.pl");

my $cgi = CGI->new();
my $template = HTML::Template->new(filename => "template/check.tmpl");

my $user_input = CGI::param();
my $pass_input = CGI::param();



if((!defined($user_input)) || (!defined($pass_input))) { 
$template->param(
		weiterleitung => "index.pl",
		        farbe => "red",
		 checkausgabe => "Please insert your Username and Password"
		);
}

elsif((defined($user_input)) && (defined($pass_input))) {
my $user = md5_hex($user_input);
my $pass = md5_hex($pass_input);
	if(($user eq $config{'login_user'}) && ($pass eq $config{'login_pass'})) {
	$template->param(
			weiterleitung => "online.pl",
				farbe => "green",
			 checkausgabe => "Welcome <b>admin</b>"			
			);	
	}
	else {
	$template->param(
			weiterleitung => "index.pl",
				farbe => "red",
			 checkausgabe => "Wrong Username or Password! Please try again ..."
			);
	}
}

else {
$template->param(
			weiterleitung => "index.pl",
				farbe => "red",
			 checkausgabe => "OH MY GOD «ERROR» "
			);
}

print $cgi->header();
print $template->output();