#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;

#Variabeln Deklarierung
my $dbname="cdliste";
my $username="root";
my $pw="123";
my $db = "DBI:mysql:$dbname";

#Die Verbindung zur Datenbank wird hergestellt
my $dbh = DBI->connect($db, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");




sub selecthashref{
 my ($statement,@array) = @_;
 unless(my $sth = $dbh->prepare( $statement)){
   die $dbh->err().": ".$dbh->errstr();
 }
 $sth->execute() or die $dbh->errstr();
 while(my $hashref = $sth->fetchrow_hashref()){
   push(@array,$hashref);
 }
 return \@array;
}


#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";

foreach my $row_ref(@{selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC")}){

    print "$row_ref->{ordnerid}\n";

}