Change default group from 1 (daemon) to something more sensible: 100
[mspang/plceo2.git] / test.pl
1 #!/usr/bin/perl -Imodules
2
3 require Common;
4 require Books;
5
6 &Common::DBConnect();
7 $foo = &Books::GetByISBN("0312041233");
8 if (defined $foo) {
9     print "Already there\n";
10 } else {
11     print "Nonono.\n";
12 }
13