Modwheel 0.3.3

Modwheel Perl module is a tree-based Web framework.

Most web sites are pages categorized by topic. So web sites can be viewed as a tree system where every page is a sub-tree and the page elements are nodes. Page elements can be things like articles, links, ads, news, comments and so on. In Modwheel a page-element is called an object.

You define your own object prototypes and then you define how to display these objects with the representation engine. Objects can be displayed differently in different contexts (pages) by using templates. The only representation engine supported right now is the Template Toolkit, but it wouldnt be much work to add support for others. The project is in beta development stage but already has an admin interface implemented in it and has been tested on Mac OS X, FreeBSD, OpenBSD, NetBSD, Ubuntu Linux, Solaris and Cygwin.

The current development version of Modwheel should work with MySQL, SQLite2 and the Template Toolkit, although porting to other databases or templating systems. shouldnt be much work. (Actually the SQLite2 port took less than 30 minutes).

SYNOPSIS

#!/usr/bin/perl -T
use strict;
use warnings;
use Modwheel::Session;
use IO::Handle;
use CGI;
*STDOUT->autoflush( );

my $modwheel_config = {
site => modwheeltest,
locale => en_EN,
logmode => stderr,
};

my ($modwheel, $db, $user, $object, $template) =
modwheel_session($modwheel_config, qw(db user template object));

$db->connect or exit;

# A user-session can also be created, if there is none, the session is anonymous.
#$user->login($username, $password);

# The page is the page to process, it has to be in the templatedir directory.
my $page = shift @ARGV || index.html;
my $directory_id = $db->path_to_id($directory_path);
$directory_id ||= Modwheel::Object::MW_TREE_ROOT;

my $cgi = new CGI;

$template->init(input => $page, parent => $directory_id, param => $cgi);
print $template->process();

$db->disconnect;