]>
Commit | Line | Data |
---|---|---|
abb00e7a | 1 | #!/moira/bin/perl -Tw |
2 | ||
3 | # $Id$ | |
4 | ||
5 | # The following exit codes are defined and MUST BE CONSISTENT with the | |
6 | # error codes the library uses: | |
7 | $MR_DBMS_ERR = 47836421; | |
8 | $MR_OCONFIG = 47836460; | |
9 | ||
10 | $outfile = '/moira/dcm/sapprint.out'; | |
11 | ||
12 | use DBI; | |
13 | ||
14 | $dbh = DBI->connect("dbi:Oracle:moira", "moira", "moira") | |
15 | || exit $MR_DBMS_ERR; | |
16 | ||
17 | $sth = $dbh->prepare("SELECT p.name, p.hwtype, p.location, p.duplexname, p.rp, m.name ". | |
18 | "FROM printers p, machine m ". | |
d5973fab | 19 | "WHERE p.rm=m.mach_id AND p.type='SAP'") |
abb00e7a | 20 | || exit $MR_DBMS_ERR; |
21 | ||
22 | $sth->execute || exit $MR_DBMS_ERR; | |
23 | ||
24 | umask 022; | |
25 | open(OUT, ">$outfile") || exit $MR_OCONFIG; | |
26 | ||
27 | while (($name, $hwtype, $location, $duplexname, $rp, $rm) = | |
28 | $sth->fetchrow_array) { | |
29 | $row = "$name:$hwtype $location:$duplexname:rp=$rp:rm=$rm\n"; | |
30 | $row .= "$duplexname:$name duplex queue:$duplexname:rp=$duplexname:rm=$rm\n" | |
31 | unless ($duplexname eq "\0"); | |
32 | $row =~ s/\0//g; | |
33 | print OUT $row; | |
34 | } | |
35 | ||
36 | close OUT; | |
37 | exit 0; |