my $conf = load_conf();

sub load_conf {
	my $arg= shift;
	$arg->{filename} ||= 'site.conf';
	
	unless( -f cwd."/$$arg{filename}" ){
	
		open(CONF, ">".cwd."/$$arg{filename}") or die($!);	
		
		print CONF define_default_conf();		
		close CONF;	
	}

	read_config( "$$arg{filename}" => my %conf); # line 317

	return \%conf;
}

sub define_default_conf {


	my $defaultconf = <<"DEFAULTCONF";
# config file for site
 
[Paths]
# relative to cgi
content_dir: $ENV{DOCUMENT_ROOT}/content
thumbnails_dir: $ENV{DOCUMENT_ROOT}/.thumbnails
metadata_dir: $ENV{DOCUMENT_ROOT}/.metadata
templates_dir: $ENV{DOCUMENT_ROOT}/templates


[Settings]
main_template_filename: template.html
request_param: section

DEFAULTCONF


	return $defaultconf;

}