<%doc>
############################################################################
###    (C)opyright 2003 - 2008 RIPE NCC
###    This file is part of DNSMon
###
###    DNSMon is free software: you can redistribute it and/or modify
###    it under the terms of the GNU General Public License as published by
###    the Free Software Foundation, either version 3 of the License, or
###    (at your option) any later version.
###
###    DNSMon is distributed in the hope that it will be useful,
###    but WITHOUT ANY WARRANTY; without even the implied warranty of
###    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
###    GNU General Public License for more details.
###
###    You should have received a copy of the GNU General Public License
###    along with DNSMon.  If not, see <http://www.gnu.org/licenses/>.
############################################################################
</%doc>
<%args>
    $group => undef
    $user => undef
    $password => undef
    $forward_success => undef
    $forward_fail => undef
</%args>
<%init>
	if (not $TICKET) {
		if ($r->uri ne '/dns-servmon/auth/login') {
			$m->comp( '/lib/redirect',
				path => '/dns-servmon/auth/login',
				query => { 
				error => "This area requires a logged in user.",
				success_url  => $r->uri,
				success_args => { $m->request_args },
				},
			);
		} elsif (defined($user) && defined($password)) {
			# authenticate user, set cookie, bail out
			$m->comp( '/lib/authenticate:login',
				%ARGS
				);
		}
	}
    # we have a paying customer
    $m->call_next;
</%init>
