1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: 404.pl,v 1.5.2.5 2001/10/31 00:14:09 brian Exp $
use strict;
use Slash;
use Slash::Display;
use Slash::Utility;
sub main {
my $constants = getCurrentStatic();
my $form = getCurrentForm();
$ENV{REQUEST_URI} ||= '';
# catch old .shtml links ... need to check for other schemes, too?
if ($ENV{REQUEST_URI} =~ m|^/?\w+/(\d\d/\d\d/\d\d/\d+)\.shtml$|) {
redirect("$constants->{rootdir}/article.pl?sid=$1");
return;
}
my $url = strip_literal(substr($ENV{REQUEST_URI}, 1));
my $admin = $constants->{adminmail};
header('404 File Not Found', $form->{section});
my($new_url, $errnum) = fixHref($ENV{REQUEST_URI}, 1);
if ($errnum && $errnum !~ /^\d+$/) {
slashDisplay('main', {
url => $new_url,
origin => $url,
message => $errnum,
});
} else {
slashDisplay('main', {
error => $errnum,
url => $new_url,
origin => $url,
});
}
writeLog($url);
footer();
}
createEnvironment();
main();
1;
|
