#!/usr/bin/perl


use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use HTML::Entities;



my $db_config_file = "db.cfg";
my %db_config = ();
open CONFIG, ("< $db_config_file") or die "Konnte Datenbank Konfigurations Datei nicht &ouml;ffnen! $!";
my @config_pairs = <CONFIG>;
close CONFIG;
foreach (@config_pairs) {
    chomp $_;
    my ($key, $value) = split/:/, $_;
    $db_config{$key} = $value;
}
my $database = $db_config{'database'};
my $db_server = $db_config{'db_server'};
my $db_user = $db_config{'db_user'};
my $db_pass = $db_config{'db_pass'};

my $query = new CGI;

print $query->header();
print $query->start_html();
print $database . "<br>";
print $db_server . "<br>";
print $db_user . "<br>";
print $db_pass . "<br>";

print $query->end_html();