Author: dom Date: 2006-04-04 22:06:14 +0100 (Tue, 04 Apr 2006) New Revision: 752

Modified: trunk/lib/OpenGuides.pm trunk/newpage.cgi trunk/preferences.cgi Log: More mod_perl fixes.

Modified: trunk/lib/OpenGuides.pm =================================================================== --- trunk/lib/OpenGuides.pm 2006-04-01 22:51:07 UTC (rev 751) +++ trunk/lib/OpenGuides.pm 2006-04-04 21:06:14 UTC (rev 752) @@ -178,7 +178,7 @@ if ($args{format} && $args{format} eq 'raw') { print "Content-Type: text/plain\n\n"; print $raw; - exit 0; + return 0; }

my %metadata_vars = OpenGuides::Template->extract_metadata_vars( @@ -224,7 +224,7 @@ my $output = $self->redirect_to_node($redirect, $id); return $output if $return_output; print $output; - exit 0; + return 0; } }

Modified: trunk/newpage.cgi =================================================================== --- trunk/newpage.cgi 2006-04-01 22:51:07 UTC (rev 751) +++ trunk/newpage.cgi 2006-04-04 21:06:14 UTC (rev 752) @@ -29,8 +29,6 @@ show_form(); }

-exit 0; - sub show_form { print OpenGuides::Template->output( wiki => $wiki, config => $config, @@ -56,7 +54,7 @@ deter_robots => 1, message => "Please enter a page name!", return_url => "newpage.cgi" } ); - exit 0; + return 0; }

# Ensure pagename valid. @@ -81,13 +79,13 @@ return_url => "newpage.cgi?pagename=" . uri_escape($pagename) } ); - exit 0; + return 0; }

# Hurrah, we're OK. my $node_param = $wiki->formatter->node_name_to_node_param($pagename); print "Location: ".$config->script_url.$config->script_name."?action=edit;id=$node_param\n\n"; - exit 0; + return 0; }

Modified: trunk/preferences.cgi =================================================================== --- trunk/preferences.cgi 2006-04-01 22:51:07 UTC (rev 751) +++ trunk/preferences.cgi 2006-04-04 21:06:14 UTC (rev 752) @@ -21,8 +21,6 @@ show_form(); }

-exit 0; - sub set_preferences { my $username = $cgi->param("username") || ""; my $gc_link = $cgi->param("include_geocache_link") || 0;