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;

#!perl -w

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

my $crs = crs -> new();
print $crs->datum("tag").".".$crs->datum("monat").".".$crs->datum("jahr");