# -*- perl -*-
-# $Id: errorlib.in,v 1.16 2002/11/17 21:04:34 cjwatson Exp $
+# $Id: errorlib.in,v 1.17 2002/11/17 22:45:16 cjwatson Exp $
sub F_SETLK { 6; } sub F_WRLCK{ 1; }
$flockstruct= 'sslll'; # And there ought to be something for this too.
&filelock("debbugs.trace.lock");
&appendfile("debbugs.trace","archive $ref\n");
my $line = update_realtime(
- "/org/bugs.debian.org/spool/index.db.realtime",
+ "$gSpoolDir/index.db.realtime",
$ref,
"REMOVE");
- update_realtime("/org/bugs.debian.org/spool/index.archive.realtime",
+ update_realtime("$gSpoolDir/index.archive.realtime",
$ref, $line);
&unfilelock;
}
$firstpkg, $ref, $stuff[1], $whendone, $stuff[0],
$severity, $stuff[5];
- update_realtime("/org/bugs.debian.org/spool/index.db.realtime", $ref, $k);
+ update_realtime("$gSpoolDir/index.db.realtime", $ref, $k);
&unfilelock;
}