package SiteConfig;
use strict;
use XML::Simple;
BEGIN {
use vars qw( @configs );
@configs = qw( site search survey editor );
}
use vars qw( @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT );
require Exporter;
@ISA = qw(Exporter);
%EXPORT_TAGS = ( );
@EXPORT = qw( );
@EXPORT_OK = map ('%'.$_, @configs2);
# Config Starts Here
use vars map ('%'.$_, @configs2);
# Import config files
%site = %{ XMLin('./site.xml') };
%search = %{ XMLin('./search.xml') };
%survey = %{ XMLin('./survey.xml') };
%editor = %{ XMLin('./editor.xml') };
1;
####
use SiteConfig qw( %site %search );
####
no strict;
for (@configs)
{
%{$_} = %{ XMLin("./$_.xml") };
}