#!/usr/bin/perl -w
#
use CGI::Carp qw( fatalsToBrowser );
use strict;
use CGI;
use DBI;
my $eingabe;
my $schluessel;
my $wert;
my $paar;
my @paare;
my $cgi_obj = new CGI;
my $dbh = DBI->connect( 'dbi:mysql:...','root', '...') ||
die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";
print $cgi_obj->header( -type=>'text/html',
-expires=>'+1h');
print $cgi_obj->start_html(-title=>'cds',
-author=>'Simon k',
-BGCOLOR=>'#FFFFFF',
-LINK=>'#0000AA',
-VLINK=>'#0000AA',
-ALINK=>'#CC0000',
-DTD=>'-//W3C//DTD HTML 3.2//EN'
);
print $cgi_obj->h1('CD Suche:');
print "<p></p>";
print $cgi_obj->h4('Suchbegriff:');
print $cgi_obj->start_form(-method=>'POST',
-action=>'cds1',
-enctype=>'application/x-www-form-urlencoded');
print $cgi_obj->textfield(-name=>'suche',
-default=>'',
-size=>30,
-maxlength=>30);
print "<p></p>";
print $cgi_obj->submit(-name=>'search',
-value=>'suchen');
print $cgi_obj->endform;
print $cgi_obj->end_html;
if($ENV{'REQUEST_METHOD'}eq'GET'){
$eingabe=$ENV{'QUERY_STRING'};
}else{
read(STDIN,$eingabe,$ENV{'CONTENT_LENGTH'});
}
@paare=split(/&/,$eingabe);
foreach $paar(@paare)
{
($schluessel,$wert)=split(/=/,$paar);
$wert=~tr/+/ /;
$wert=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
my $FORM{'$schluessel'}=$wert;
}