#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect("DBI:Pg:dbname=gateDB;host=alice00.physi.uni-heidelberg.de",
			   "alice", 'alice!@#',
			   {'RaiseError' => 1});

    
$sth = $dbh->prepare("SELECT * FROM roc_summary");
    
$sth->execute;

while ( $row = $sth->fetchrow_hashref ) {

    print "DCS Board # ".$row->{'dcs_id'}."\n";
    foreach $f (keys %{$row}) {
	print "    $f=".$row->{$f}."\n";
    }
}


$dbh->disconnect;
