#!/usr/bin/perl

use strict;
use warnings;
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";
}