Change default group from 1 (daemon) to something more sensible: 100
[mspang/plceo2.git] / getbooks.pl
1 #!/usr/bin/perl -w
2
3 use lib './modules';
4 use strict;
5
6 require Books;
7
8 open BOOKLIST, ">>booklist" or die "Cannot open book list\n";
9
10 while (my $code = <STDIN>) {
11     if (!($code =~ /[0-9]{13}/) || !&Books::CheckBarcode($code)) {
12         print "Invalid bar code!\a\n";
13     } else {
14         print BOOKLIST $code;
15     }
16 }