#!/usr/bin/perl

use strict;
use DBI;
use CGI;

use CGI qw(:standard);

use CGI::Carp qw(fatalsToBrowser);


my $dbh = DBI->connect('dbi:mysql:dbi_demo','root','r00t') || die "Keine MySql verbindung : $DBI::errstr<br>";


my $sorte = CGI::param('sorte'); 
 



my $animal = CGI::param('animal'); 



print "Content-type: text/html\n\n";


#my $animal = $dbh->quote($animal); 
#my $sorte = $dbh->quote($sorte);

my $sth = $dbh->prepare("INSERT INTO tbl_bsp SET bsp_artID=?, bsp_text=?") || die "Konnte Statement nicht erstellen : $DBI::errstr<br>";
$sth->execute($sorte,$animal) || die "Konnte Statement nicht ausführen $DBI::errstr<br>";
$sth->finish;



my $sth = $dbh->prepare( 'SELECT * FROM tbl_bsp' ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";

$sth->execute() || die "Error $DBI::errstr<br>";




while ( my @ergebnis = $sth->fetchrow_array() ){

  print "$ergebnis[0] $ergebnis[1] $ergebnis[2]<br>";
}
$sth->finish;
$dbh->disconnect;