package IIa66da94aed9b371a0ee16b72f938ea09::tag_auth; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my ($realm, $var) = ($attr->{realm}, "#{$attr->{var}}"); $this->evaluate(1) for $realm; $this->evaluate for $var; my $classAuth = II982446f8950cc3dc59e487adba22df54::lIlIIIlIIllIIlIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$IIb39071a48a82a07eeb9256f406abebc5::IllIlIIllIlIIIll},1007,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$IIb39071a48a82a07eeb9256f406abebc5::llIIIIIIlIllIlIl}); $this->addCode("require $classAuth;"); $this->addCode("my \$auth = $classAuth\->get($realm);"); $this->addCode("$var = ") if $attr->{var}; $this->addCode("\$auth->requireUser or exit;"); return; } 1; 