use constant {
STATIC_PAGE => 0,
DYNAMIC_PAGE => 1,
+ REDIRECT_PAGE => 2,
PAGE_TYPE => 0,
- PAGE_TT => 1,
+ PAGE_TT => 1, PAGE_TO => 1,
PAGE_TITLE => 2,
PAGE_DESCRIPTION => 3,
};
our %page = (
- '' => [ STATIC_PAGE, '404', '404 Not Found', '404 Not Found' ],
- '/' => [ STATIC_PAGE, 'index', '3chen', 'Forum Index' ],
- '/c/' => [ DYNAMIC_PAGE, 'img', '/c/', 'Chen Tech' ],
- '/sys/' => [ DYNAMIC_PAGE, 'img', '/sys/', 'Site Info' ],
+ '' => [ STATIC_PAGE, '404', '404 Not Found', '404 Not Found' ],
+ '/' => [ STATIC_PAGE, 'index', '3chen', 'Forum Index' ],
+ '/c/' => [ DYNAMIC_PAGE, 'img', '/c/', 'Chen Tech' ],
+ '/sys/' => [ DYNAMIC_PAGE, 'img', '/sys/', 'Site Info' ],
+ '/c' => [ REDIRECT_PAGE, '/c/' ],
+ '/sys' => [ REDIRECT_PAGE, '/sys/' ],
);
our %static;
next if $status ne '';
+ {
+ my @search = @{$page{$vars->{uri}}};
+ $vars->{uri} = $search[PAGE_TO] if $search[PAGE_TYPE] == REDIRECT_PAGE;
+ }
my $page = $static{$vars->{uri}};
if (not $page) {
+ if (@{$page{$vars->{uri}}}[PAGE_TO]) {
+ }
my $dynamic = $page{$vars->{uri}};
if ($dynamic) {
my @set = @{$dynamic};
};
foreach my $key (keys %page) {
my @set = @{$page{$key}};
- next if $set[PAGE_TYPE] != STATIC_PAGE;
+ next if $set[PAGE_TYPE] != STATIC_PAGE;
+ if ($set[PAGE_TYPE] != STATIC_PAGE) {
+ next if $set[PAGE_TYPE] == DYNAMIC_PAGE;
+ if $set
+ }
syslog("info", "Marking Static '$key'");
$vars->{"uri"} = "$key";
$vars->{"title"} = "$set[PAGE_TITLE]";