#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

print $cgi->header;
print $cgi->start_html (
    -title   => "Test",
);

my $database   = "database.dat";

my $eingabefeld  = $cgi->param('eingabefeld');

my $operation = CGI::param('operation') || '';
my $eintragen = 'eintragen';

if ($operation  eq $eintragen) {
    eintragen();
    exit;
}

if (defined $cgi->param('new')) {
    sosenden();
    exit;
}

if (defined $cgi->param('sosenden')) {
    datenlesenschreiben();
}


anzeigen();


sub anzeigen {
    print CGI::a( { -href    => CGI::url() . '?' . "operation=$eintragen" }, 'Eintragen');
    print "<br>";
    open DATABASE, '<', $database or die "$database kann leider nicht geoeffnet werden, weil $!";
    while ( my $inLine = <DATABASE> ) {
        chomp $inLine;
        my ( $eingabefeld ) = split '\|', $inLine;
        print "$eingabefeld";
        $inLine ++;
    }
    close DATABASE;
    exit;
}

sub eintragen {
    print "<form action=# method=post>";
    print "<input type=text name=eingabefeld>";
    print "<input type=submit value=go name=new>";
}

sub sosenden {
    print "<form action=# method=post>";
    print "<input type=submit name=sosenden value=\"Ja, so senden\"><br>";
    print "$eingabefeld";
}

sub datenlesenschreiben {
    open DATABASE, '>', $database or die "$database kann leider nicht geoeffnet werden, weil $!";
    print DATABASE "$eingabefeld\n";
    close DATABASE;
}