sub read_database {
    #my ($dir) = @_;
    
    my $sth = $sql_query{sel_ftpuser}->execute() or die "can't execute the query";
    
    print "CHECK_FTP: configuration seems to be OK\n";
    print "CHECK_FTP: reading information from DB...\n";
    
    my $sitedb;
    my $label;
    my $job_label;
    while (@site_row= $sql_query{sel_ftpuser}->fetchrow_array()) {
	($label) = $site_row[2];
	($job_label) = $site_row[0];
	if($label ne ""){
	    $sitedb->{$label}->{$job_label}->{JOB_ID}  = $site_row[0];
	    $sitedb->{$label}->{$job_label}->{SITE}  = $site_row[2];
	    $sitedb->{$label}->{$job_label}->{HOST}  = $site_row[3];
	    $sitedb->{$label}->{$job_label}->{MAIL} = $site_row[6];
	    $sitedb->{$label}->{$job_label}->{LOCAL_DIRECTORY}  = $site_row[9];
	    $sitedb->{$label}->{$job_label}->{REMOTE_DIRECTORY}  = $site_row[10];
	    $sitedb->{$label}->{$job_label}->{PORT}  = $site_row[8];
	}
    }
    #print Dumper($sitedb);
    print "OK\n" if ($VERBOSE);
    return $sitedb;
}