<(common.inc.plp)><:
-if ($Request and $Request =~ s{^edit/?}{}) {
- Include 'writer.plp';
- exit;
+if ($Request and $Request =~ m{\A([^/]+)}) {
+ my $page = "word/$1.plp";
+ utf8::downgrade($page); # unicode filename breaks contents encoding
+ if (-e $page) {
+ Include $page;
+ exit;
+ }
}
my $lang = $get{lang} || 'en';