
system("clear");

use DBI;
use strict;

use Data::Dumper;

my $VERSION = '0.17';

### later: alles aus config lesen  
my $HOST	= "87.106.63.182";	# bitjoe.de
my $DB		= "bitjoe";
my $USER	= "bitjoe7724717820";
my $PASS	= "bj236xw23571sdGdhS4522dSfH2";


my $SQLQuery	= "SELECT `web_up_MD5`,`hc_contingent_volume_success`,`hc_contingent_volume_overall`,`web_mobilephone`,`web_flatrate_validUntil`,`web_servicetype`,`hc_sec1_MD5`,`hc_sec2_MD5`,`hc_sec3_MD5`,`hc_sec4_MD5`,`hc_sec5_MD5`,`web_testaccount` FROM `bjparis` WHERE `web_up_MD5` = '68035c85bcfd0de0970c142d4ed8d866' AND `hc_abuse` = '0' LIMIT 1;";


#my $drh		= DBI->install_driver("mysql");
my $dbh		= DBI->connect("DBI:mysql:database=$DB;host=$HOST", "$USER", "$PASS", {'RaiseError' => 1});

my $sth = $dbh->prepare( qq { $SQLQuery } );
	$sth->execute;
	my $ResultHashRef = $sth->fetchrow_hashref;
	$sth->finish;


print Dumper $ResultHashRef;