END
exit(0);
}
- $suburl= $_;
- $suburl =~ s,^..,$&/$&,;
- $suburl.= '.html';
+ $suburl= "bugreport.cgi?bug=$_";
} elsif ($in{'type'} eq 'package') {
$_= $in{'package'};
s/^\s+//; s/\s+$//; y/A-Z/a-z/;
END
exit(0);
}
- $suburl= "pa/l$_.html";
+ $suburl= "pkgreport.cgi?pkg=$_";
} else {
print <<END;
Content-Type: text/plain
exit(0);
}
-$base= $ENV{'HTTP_REFERER'};
-if ($base =~ s:/${gWebHostBugDir}/.*$::) {
- for $y (keys %map) {
- $base= $map{$y} if $base eq $y;
- }
-} else {
- $base= $in{'base'};
-}
+$base= $gCGIDomain;
-$newurl= "$base/${gWebHostBugDir}/db/$suburl";
+$newurl= "http://$base/$suburl";
print <<END;
Status: 301 Redirect
Location: $newurl