package WebGUI::Operation::WebGUI;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Digest::MD5;
use strict;
use WebGUI::FormProcessor;
use WebGUI::HTMLForm;
use WebGUI::HTTP;
use WebGUI::Session;
use WebGUI::Setting;
use WebGUI::Style;
use WebGUI::URL;
use WebGUI::User;
#-------------------------------------------------------------------
=head2 www_genesis ( )
The beginning of WebGUI.
=cut
sub www_genesis {
my $session = shift;
$session->style->useEmptyStyle("1")
my $output = 'About WebGUI
And the Internet was without form, and void; and darkness was upon the face of the web. And Plain Black formed WebGUI of the dust of tags and script, and breathed into the web the breath of life; and content became a living soul.
Ruling WebGUI, 2:7
';
return $output;
}
=head2 www_setup ( )
Initial setup for a brand new WebGUI install. Sets the administrator name,
password and email address, as well as some other WebGUI settings.
=cut
#-------------------------------------------------------------------
sub www_setup {
my $session = shift;
return "" unless ($session->setting->get("specialState") eq "init");
my $i18n = WebGUI::International->new("WebGUI");
my $output = '
WebGUI Initial Configuration
WebGUI Initial Configuration
';
return $output;
}
=head2 theWg ( )
The core WebGUI function. All WebGUI Assets, Operations and functions require this
to work, even superseding the session variable.
=cut
#-------------------------------------------------------------------
sub www_theWg {
my $session = shift;
$session->style->useEmptyStyle("1")
my $output = 'WebGUI