#!/usr/bin/perl

use strict;
use warnings;
use CGI;

# Alle VARs in der globalen Hash-Referenz $main
my $main = {
	CGI => new CGI,
	eingabe => '',     # Wert vom Eingabefeld
	mesg => '',        # Hinweise für den Anwender
};

print "Content-Type: text/html; Charset=UTF-8\n\n";
print out();

exit;
######################################## Funktionen #######################
# Parameter Kontrolle und dann die Ausgabe
sub out{
	if(param()){
		control();	
	}
	else{
		browse();
	}
	return form();
}

# Keine Parameter
sub browse{
	$main->{mesg} = 'Bitte was eingeben';
}

# Parameter
sub control{
	if(param('klick') || param('eingabe')){
		$main->{eingabe} = param('eingabe');
		$main->{mesg} = "Es wurde was eingegeben ($main->{eingabe}) oder geklickt";
		
		# hier kommt der Code 
		# zum Eintragen in die DB
	}
	else{ 
		$main->{mesg} = 'Unbekannter Parameter';
	}
}

# Formular erzeugen
sub form{
	return qq(
		<p>Mesg: $main->{mesg}</p>
		<form action="$ENV{SCRIPT_NAME}">
			<input name="eingabe" value="$main->{eingabe}">
			<input type="submit" name="klick">
		</form>
		<p>
			<a href="$ENV{SCRIPT_NAME}">Seite neu Laden ohne Parameter</a>
		</p>
	);
}


# Delegate CGI::param Method
sub param{ 
	return $main->{CGI}->param(@_);
}