#!/usr/bin/perl -w

$| = 1; # Pufferung de Ausgabe ausschalten 

use strict;
use warnings;

use CGI qw( :all *form );
use CGI::Carp qw( fatalsToBrowser );

my $cgi = new CGI;

print $cgi->header(),
    $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();

print $cgi->end_html();


sub anzeigen {
   print $cgi->a( { -href    => $cgi->url() . '?' . "operation=$eintragen" }, 'Eintragen' );
   print $cgi->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 $cgi->start_form( -action=>url() ), 
    $cgi->textfield( -name=>'eingabefeld' ),
    $cgi->submit( -name=>'new', -value=>'go'),
    $cgi->end_form();
}

sub sosenden {
   print $cgi->start_form(  -action=>url() ),
    $cgi->submit( -name=>'sosenden', value=>'Ja, so senden'), $cgi->br(),
    $cgi->hidden( -name=> 'eingabefeld', -value=>$eingabefeld, -override=>1),
    "$eingabefeld",
    $cgi->end_form();
}

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

1;