#!/usr/bin/perl
#
#
use strict;
my $error = 0;
my %domains;

my $bennouser = <>; chomp $bennouser;
my $bennopass = <>; chomp $bennopass;

my $type       = $ENV{REQUEST_TYPE};
my $domainlist = $ENV{domain_list};

exit 0               unless ($type =~ /^metadata/);
#print "AUTH ALLOW\n" unless $domainlist;
print "LIST:$domainlist\n";
open my $dh, $domainlist or $error = $!;
if ($error) {
    print STDERR "Cannot access domainlist file: $!\n";
    exit 1;
}

my ($uprefix,$udomain) = split /\@/, $bennouser;
while (my $line = <$dh>) {
    next if $line =~ /^#/;
    next if $line =~ /^$/;
    chomp $line;
    if ($udomain =~ /^$line$/) {
        print "AUTH ALLOW\n";
        exit;
    }
}
close $dh;
print "WARN Domain \"$udomain\" not in $domainlist\n";
