# The following exit codes are defined and MUST BE CONSISTENT with the
# error codes the library uses:
$MR_DBMS_ERR = 47836421;
-$MR_OCONFIG = 47836460;
$ENV{PATH} = "/bin:/usr/bin:/sbin:/usr/sbin";
-$outdir = '/moira/dcm/stellar';
-$outfile = '/moira/dcm/stellar.out';
+$outdir = '/moira/dcm/confluence';
umask 022;
use DBI;
$sth0 = $dbh->prepare("SELECT l.list_id, m.name " .
"FROM list l, machine m, serverhosts sh " .
- "WHERE sh.value3 = l.name AND sh.service = 'STELLAR' " .
+ "WHERE sh.value3 = l.name AND sh.service = 'CONFLUENCE' " .
"AND m.mach_id = sh.mach_id") || exit $MR_DBMS_ERR;
$sth0->execute;
close(OUT);
}
-system("cd $outdir && tar cf $outfile .") == 0 || exit $MR_OCONFIG;
-
$dbh->disconnect;
exit 0;