diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm index 1818746b7..8bdf087ef 100644 --- a/lib/WebGUI.pm +++ b/lib/WebGUI.pm @@ -38,30 +38,29 @@ use Apache2::RequestIO (); use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND); use Apache2::ServerUtil (); - #------------------------------------------------------------------- sub handler { my $r = shift; + $session{site} = shift || $r->dir_config('WebguiConfig'); my $s = Apache2::ServerUtil->server; $session{wguri} = $r->uri; - $session{site} = $r->dir_config('WebguiConfig'); $session{config} = WebGUI::Config::getConfig($s->dir_config('WebguiRoot'),$session{site}); ### Add Apache Request stuff to global session. Yes, I know the global hash will eventually be deprecated. - foreach my $url ($session{config}{extrasURL}, @{$session{config}{passthruUrls}}) { - return Apache2::Const::DECLINED if ($session{wguri} =~ m/^$url/); - } - my $uploads = $session{config}{uploadsURL}; - if ($session{wguri} =~ m/^$uploads/) { +# foreach my $url ($session{config}{extrasURL}, @{$session{config}{passthruUrls}}) { +# return Apache2::Const::DECLINED if ($session{wguri} =~ m/^$url/); +# } +# my $uploads = $session{config}{uploadsURL}; +# if ($session{wguri} =~ m/^$uploads/) { # $r->handler('perl-script'); - $r->set_handlers(PerlAccessHandler => \&uploadsHandler); - } else { +# $r->set_handlers(PerlAccessHandler => \&uploadsHandler); +# } else { $session{requestedUrl} = $session{wguri}; my $gateway = $session{config}{gateway}; $session{requestedUrl} =~ s/^$gateway(.*)$/$1/; # $r->handler('perl-script'); $r->set_handlers(PerlResponseHandler => \&contentHandler); $r->set_handlers(PerlTransHandler => sub { return Apache2::Const::OK }); - } +# } return Apache2::Const::DECLINED; } diff --git a/lib/WebGUI/Operation/WebGUI.pm b/lib/WebGUI/Operation/WebGUI.pm index 07be94b9b..4091eb5f7 100644 --- a/lib/WebGUI/Operation/WebGUI.pm +++ b/lib/WebGUI/Operation/WebGUI.pm @@ -18,6 +18,7 @@ use WebGUI::HTTP; use WebGUI::Session; use WebGUI::Setting; use WebGUI::Style; +use WebGUI::URL; use WebGUI::User; #------------------------------------------------------------------- @@ -40,19 +41,17 @@ sub www_genesis { #------------------------------------------------------------------- sub www_setup { + return "" unless ($session{setting}{specialState} eq "init"); my $i18n = WebGUI::International->new("WebGUI"); - unless ($session{setting}{specialState} eq "init") { - if (rand(10)>5) { - return www_genesis(); - } else { - return www_theWg(); - } - } my $output = ' WebGUI Initial Configuration +

WebGUI Initial Configuration

'; if ($session{form}{step} eq "2") { @@ -61,7 +60,7 @@ sub www_setup { $u->username(WebGUI::FormProcessor::process("username","text","Admin")); $u->profileField("email",WebGUI::FormProcessor::email("email")); $u->identifier(Digest::MD5::md5_base64(WebGUI::FormProcessor::process("identifier","password","123qwe"))); - my $f = WebGUI::HTMLForm->new; + my $f = WebGUI::HTMLForm->new(action=>WebGUI::URL::gateway()); $f->hidden( -name=>"op", -value=>"setup" @@ -91,16 +90,17 @@ sub www_setup { $f->submit; $output .= $f->print; } elsif ($session{form}{step} eq "3") { + WebGUI::Setting::remove('specialState'); WebGUI::Setting::set('companyName',WebGUI::FormProcessor::text("companyName")); WebGUI::Setting::set('companyURL',WebGUI::FormProcessor::url("companyURL")); WebGUI::Setting::set('companyEmail',WebGUI::FormProcessor::email("companyEmail")); - WebGUI::Setting::remove('specialState'); - WebGUI::HTTP::setRedirect("/"); + WebGUI::HTTP::setRedirect(WebGUI::URL::gateway()); return ""; + #$output .= 'Configuration complete. Click here to go to your new site.'; } else { $output .= 'Admin Account'; my $u = WebGUI::User->new('3'); - my $f = WebGUI::HTMLForm->new; + my $f = WebGUI::HTMLForm->new(action=>WebGUI::URL::gateway()); $f->hidden( -name=>"op", -value=>"setup"