Change default group from 1 (daemon) to something more sensible: 100
[mspang/plceo2.git] / test_db.pl
1 #!/usr/bin/perl
2
3 use DBI;
4
5 $db_ref = DBI->connect("dbi:Pg:dbname=ceo");
6
7 $st_handle = $db_ref->prepare("SELECT * FROM members");
8 $result = $st_handle->execute();
9
10 LOOP: for(;;) {
11         $hashref = $st_handle->fetchrow_hashref();
12         last LOOP if(!$hashref);
13         print $hashref->{'memberid'}, "\n";
14 }
15
16 $st_handle->finish();
17
18 $db_ref->disconnect();