- print "$ref removing $mref\n" if $debug;
- my $dir = get_hashname($mref);
- if ( $gSaveOldBugs ) {
- `mkdir -p "archive/$dir"`;
- link( "db-h/$dir/$mref.log", "archive/$dir/$mref.log" ) || copy( "db-h/$dir/$mref.log", "archive/$dir/$mref.log" );
- link( "db-h/$dir/$mref.status", "archive/$dir/$mref.status" ) || copy( "db-h/$dir/$mref.status", "archive/$dir/$mref.status" );
- link( "db-h/$dir/$mref.db", "archive/$dir/$mref.db" ) || copy( "db-h/$dir/$mref.db", "archive/$dir/$mref.db" );
- link( "db-h/$dir/$mref.report", "archive/$dir/$mref.report" ) || copy( "db-h/$dir/$mref.report", "archive/$dir/$mref.report" );
- print("archived $mref to archive/$dir (from $ref)\n") || &quit("output old: $!");
- }
- unlink("db-h/$dir/$mref.log", "db-h/$dir/$mref.status", "db-h/$dir/$mref.db", "db-h/$dir/$mref.report");
- print("deleted $mref (from $ref)\n") || &quit("output old: $!");
- bughook_archive($mref);
+ print "$ref removing $mref\n" if $debug;
+ my $dir = get_hashname($mref);
+ if ($gSaveOldBugs) {
+ mkpath("archive/$dir");
+ link( "db-h/$dir/$mref.log", "archive/$dir/$mref.log" ) || copy( "db-h/$dir/$mref.log", "archive/$dir/$mref.log" );
+ link( "db-h/$dir/$mref.status", "archive/$dir/$mref.status" ) || copy( "db-h/$dir/$mref.status", "archive/$dir/$mref.status" );
+ link( "db-h/$dir/$mref.summary", "archive/$dir/$mref.summary" ) || copy( "db-h/$dir/$mref.summary", "archive/$dir/$mref.summary" );
+ link( "db-h/$dir/$mref.report", "archive/$dir/$mref.report" ) || copy( "db-h/$dir/$mref.report", "archive/$dir/$mref.report" );
+ print("archived $mref to archive/$dir (from $ref)\n") || &quit("output old: $!");
+ }
+ unlink("db-h/$dir/$mref.log", "db-h/$dir/$mref.status", "db-h/$dir/$mref.summary", "db-h/$dir/$mref.report");
+ print("deleted $mref (from $ref)\n") || &quit("output old: $!");
+ bughook_archive($mref);