#!/usr/bin/perl

use warnings;
use strict;
use CGI;
use DBI;

my $zeile;
my $obj = new CGI;

open ( FH ,"</var/www/db/db.txt" ) or die "Kann Datei nicht oeffnen!\n";
my $db_name = <FH>;
my $db_user    = <FH>;
my $db_passwd  = <FH>;


close (FH);
chomp for $db_name, $db_user, $db_passwd;

my $dbh = DBI->connect ( "DBI:Pg:dbname=$db_name", "$db_user", "$db_passwd" )
   or die "Keine Verbindung mit der DB!\n";

my $result = $dbh->prepare ( "SELECT * from kunden" ) or die "Vorbereitung nicht durchfuehrbar!\n";

$result->execute() or die "Abfrage nicht ausfuehrbar!\n";

   
print $obj->header ( "text/html" ),
      $obj->start_html ( -title => "alle User" );
      
print $obj->h3 ( "Auflistung aller User \n" );

while ( $zeile = $result->fetchrow_arrayref )
{
  print $obj->h4 ( "$zeile->[0] , $zeile->[1] , $zeile->[2] , $zeile->[3], $zeile->[4], $zeile->[5] \n" );
}  
print $obj->end_html; 
   
$dbh->disconnect();

exit;