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;
}

##</code><code>##


$VAR1 = {
          'User1' => {
                       '7' => {
                                'HOST' => 'foobar.baz.com',
                                'REMOTE_DIRECTORY' => '/tmp/user1_test',
                                'JOB_ID' => '7',
                                'LOCAL_DIRECTORY' => 'to-user',
                                'MAIL' => 'baz@foobar.com',
                                'SITE' => 'user1',
                                'PORT' => '21'
                              },
                       '2' => {
                                'HOST' => 'foobar.baz.com',
                                'REMOTE_DIRECTORY' => '/tmp/user1_test',
                                'JOB_ID' => '7',
                                'LOCAL_DIRECTORY' => 'to-user',
                                'MAIL' => 'baz1@foobar.com',
                                'SITE' => 'user1',
                                'PORT' => '21'
                              }
                     },
          'User2' => {
                       '6' => {
                                'HOST' => 'foobar.baz.com',
                                'REMOTE_DIRECTORY' => '/tmp/user2_test',
                                'JOB_ID' => '7',
                                'LOCAL_DIRECTORY' => 'to-user',
                                'MAIL' => 'baz2@foobar.com',
                                'SITE' => 'user1',
                                'PORT' => '21'
                              }
                     }
        };

##</code><code>##

    foreach my $site_name (keys %$sitedb) {
	print "Checking $site_name ... \n";

	foreach my $subkey (keys %{$site_db{$site_name}}) {
	    my @jobid = $site_db{$site_name}{$subkey};
	    print Dumper(@jobid);
	    print "Job ID: @jobid\n";
	}
    }