#!/usr/bin/perl -w

use CGI;
use Session;
use Community;
use CGI::Carp;



main();

sub main {
 my $query = new CGI;
 my $uri = 'www.moonfruit.com';
 setup($uri, $query);
}


sub setup {
	my ($uri, $query) = @_;
	my $dbh = db_connect();

	my $session= new Session($dbh, $query, "guest", $uri);
	my $community = new Community($session);

print $query->header();
return;
}