#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use DBI;
use CGI qw(:standard escapeHTML);

print header();

my $dbh = DBI->connect('DBI:mysql:db3459xtest:mysql3.test.de','testuser','testpasswort', { PrintError => 1});

print "DB connection established\n";

my $url = 'http://www.testsite.com/Prices.txt';

my $counter=0;
my $inet = get($url);
my $sql;
my $sth;


foreach my $line (split(/\n/, $inet)) {
	$counter++;
	if ($counter >= 12) {
		unless ($line =~ /^\n|=|Foil/) {
			if ($line =~ s/Booster/\[BOO\]/) {}
			if ($line =~ /([A-Za-z', ]+)\[(\w+)\]/) {
				$sql = qq{INSERT INTO Karten_ID (ID,Edition,Kartenname) values (NULL,$2,$1)};
				$sth = $dbh->prepare( $sql );
				$sth->execute();
			}
		}
	}
}

$sth->finish();
$dbh->disconnect();

use CGI;
my $cgi = new CGI();
print $cgi->header();

$sql = qq{INSERT INTO Karten_ID (ID,Edition,Kartenname) values (NULL,$2,$1)};
                $sth = $dbh->prepare( $sql );
                $sth->execute();

print "$2 $1<br />";

$sql = qq{INSERT INTO Karten_ID (ID,Edition,Kartenname) values (NULL,?,?)};
                $sth = $dbh->prepare( $sql );
                $sth->execute($2,$1);