X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f0e54f5c656399310da44b5d226931f7e150f19d:/writer.plp..30bf0fcde3f7e44f1ec7bcfc8253dfce8f81e8e6:/word/edit.plp

diff --git a/writer.plp b/word/edit.plp
similarity index 97%
rename from writer.plp
rename to word/edit.plp
index cd2e2bf..d8de602 100644
--- a/writer.plp
+++ b/word/edit.plp
@@ -1,12 +1,13 @@
-<(common.inc.plp)><:
+<(../common.inc.plp)><:
 
+s{\Aedit(/|\z)}{} for $Request // ();
 Html({
 	title => 'words cheat sheet admin',
 	version => '1.0',
 	nocache => 1,
 	raw => <<'EOT',
-<link rel="stylesheet" type="text/css" media="all" href="/editor.css" />
-<script src="/writer.js"></script>
+<link rel="stylesheet" type="text/css" media="all" href="/word/editor.css" />
+<script src="/word/editor.js"></script>
 EOT
 });
 
@@ -20,7 +21,7 @@ my $db = eval {
 } or Abort('Database error', 501, $@);
 
 my $user = eval {
-	my $rootpath = ($ENV{REQUEST_URI} // '/writer') =~ s{(?<!^)/.+}{}r;
+	my $rootpath = '/word/edit';
 	if (defined $post{username}) {
 		$cookie{login} = EncodeURI(join ':', @post{qw( username pass )});
 	}