#!/usr/bin/perl

use strict;

eval {
	require Foobar;
	my $self = Foobar->new;
	$SIG{__WARN__} = sub { die @_ };
	$self->run;
};
if ($@) {
	print "content-type: text/html\n\nError: $@";
	exit;
}

##</code><code>##

package Foobar;
use strict;

sub new {
	my $self = bless {}, shift;
	$self->init;
}

sub init {
	my $self = shift;
	$self->{build} = 1;
	$self->{version} = '1.0 alpha';
	require CGI;
	$CGI::HEADERS_ONCE = 1;
	$self->{cgi} = CGI->new;
	require fbconfig;
	$self->{cfg} = fbconfig->get; # this is where I load the config from fbconfig.pm (saved by the sub save_config)
	return $self;
}

sub run {
	# A page handler would go here
}

sub save_config {
	my $self = shift;
	use Data::Dumper;
	$Data::Dumper::Terse = 1;
	open XCFG, '>fbconfig.pm';
	print XCFG "package fbconfig;\n\n";
	print XCFG "sub get {\n	return ", Dumper($self->{cfg}), ";\n\n}\n\n1;";
	close XCFG;
}

1;

##</code><code>##

package fbconfig;

sub get {
	return {
          'key' => 'value'
        }
;

}

1;