oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added initial configuration wizard

Browse source
This commit is contained in:
JT Smith 2005-03-02 04:08:21 +00:00
parent a9faaee730
commit 393fdc1dea
6 changed files with 116 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI.pm
View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "6.3.0";
our $VERSION = "6.4.0";
our $STATUS = "beta";
#-------------------------------------------------------------------
@ -53,6 +53,15 @@ sub _processOperations {
return $output;
}
#-------------------------------------------------------------------
sub _setup {
require WebGUI::Operation::WebGUI;
my $output = WebGUI::Operation::WebGUI::www_setup();
$output = WebGUI::HTTP::getHeader().$output;
WebGUI::Session::close();
return $output;
}
#-------------------------------------------------------------------
sub _upgrading {
my $webguiRoot = shift;
@ -76,6 +85,7 @@ sub page {
my $fastcgi = shift;
WebGUI::Session::open($webguiRoot,$configFile,$fastcgi) unless ($useExistingSession);
return _upgrading($webguiRoot) if ($session{setting}{specialState} eq "upgrading");
return _setup() if ($session{setting}{specialState} eq "init");
my $output = _processOperations();
if ($output eq "") {
my $asset = WebGUI::Asset->newByUrl($assetUrl);