word edit: restrict access by login cookie

[sheet.git] / writer.plp

diff --git a/writer.plp b/writer.plp
index 3f9ed98bc647c1e7b2a909a6f920c3fdf8568c93..fd2fc867ad7fc3677f746d8e2190ccbe95890cea 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -115,6 +115,13 @@ my $db = eval {
 } or Abort('Database error', 501, $@);
 $db->abstract->{array_datatypes}++;
 
+my $user = eval {
+       my $cookiedata = $cookie{login} or return;
+       my ($name, $key) = split /[:\v]/, DecodeURI($cookiedata);
+       my %rowmatch = (username => $name, pass => $key);
+       $db->select(login => '*', \%rowmatch)->hash;
+} or Abort('Login required', 403);
+
 my %lang = (
        nl => ["\N{REGIONAL INDICATOR SYMBOL LETTER N}\N{REGIONAL INDICATOR SYMBOL LETTER L}", 'nederlands'],
        en => ["\N{REGIONAL INDICATOR SYMBOL LETTER G}\N{REGIONAL INDICATOR SYMBOL LETTER B}", 'english'],