X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fofftopic%2Fsru-auth.html;fp=web%2Fhtdocs%2Fofftopic%2Fsru-auth.html;h=ed911c205c7a0be1d38801da2b28fe8308a8eec9;hp=0000000000000000000000000000000000000000;hb=371ee77812670962a721d9ed9c0275a6dc18c712;hpb=1b53cd6f5032d52e0baec0875dc809b07c267ff9

diff --git a/web/htdocs/offtopic/sru-auth.html b/web/htdocs/offtopic/sru-auth.html
new file mode 100644
index 0000000..ed911c2
--- /dev/null
+++ b/web/htdocs/offtopic/sru-auth.html
@@ -0,0 +1,29 @@
+%# $Id: sru-auth.html,v 1.1 2007-08-21 09:48:41 mike Exp $
+<%doc>
+	In order to test the authentication feature of Simple2ZOOM, we
+	need an authenticator script, accessible via HTTP.  The
+	simplest way to provide that is as a simple bit of HTML::Mason
+	running under the conveniently available IRSpy distribution.
+	Since this is only for testing, a hardwired user register is
+	good enough.
+</%doc>
+<%args>
+$user => undef
+$pass => undef
+</%args>
+<%once>
+our %register = (
+    mike => "fish",
+    simon => "frog 123",
+    admin => "Tom&jErry",
+);
+</%once>
+<%perl>
+if (defined $user && defined $pass && $register{$user} eq $pass) {
+    print "OK\n";
+    return;
+} else {
+    $m->clear_buffer;
+    $m->abort(401); # "Authorization Required"
+}
+</%perl>