package crs;

sub new {
	my $objekt = shift;
	my $referenz = {};
	bless($referenz,$objekt);
	return($referenz);
}

sub datum {
	my $objekt = shift;
	my $schluessel = shift;
	
	my $zeit = localtime(time);
	my ($wochentag, $monat, $tag, $uhrzeit, $jahr) = split(/ +/,$zeit);
	
	$monat = $objekt->monatzahl($monat);
	
	$objekt->{wochentag} = $wochentag;
	$objekt->{tag} = $tag;
	$objekt->{monat} = $monat;
	$objekt->{jahr} = $jahr;
	$objekt->{uhrzeit} = $uhrzeit;
	
	return($objekt->{$schluessel});
}

sub monatzahl {
	my $objekt = shift;
	my $monat = shift;
	
	$monat =~ s/Jan/1/;
	$monat =~ s/Feb/2/;
	$monat =~ s/Mar/3/;
	$monat =~ s/Apr/4/;
	$monat =~ s/May/5/;
	$monat =~ s/Jun/6/;
	$monat =~ s/Jul/7/;
	$monat =~ s/Aug/8/;
	$monat =~ s/Sep/9/;
	$monat =~ s/Oct/10/;
	$monat =~ s/Nov/11/;
	$monat =~ s/Dec/12/;
	
	return($monat);
}

1;