2 In order to test the authentication feature of Simple2ZOOM, we
3 need an authenticator script, accessible via HTTP. The
4 simplest way to provide that is as a simple bit of HTML::Mason
5 running under the conveniently available IRSpy distribution.
6 Since this is only for testing, a hardwired user register is
21 if (defined $user && defined $pass && $register{$user} eq $pass) {
26 $m->abort(401); # "Authorization Required"