#!/usr/bin/perl -T

$|++;
use strict;

use lib qw( /home/httpd/sec-cgi );
use RealmFile_DB;

use CGI qw(:standard *table );
use CGI::Carp qw(fatalsToBrowser);
use HTTPD::RealmManager;

my $template_dir = '/home/httpd/template/';
my $docroot = "/home/httpd/sec-html/";
my $user = remote_user();

print header();
#$ENV{SCRIPT_FILENAME} =~ /\/home\/httpd\/sec\-html\/(.*?)\//;
$ENV{SCRIPT_FILENAME} =~ /${docroot}(.*?)\//;
my $realm = $1;
if (is_tainted($realm)) { print "realm: $realm is tainted in main0!<P>"; }