On Jul 11, 2006, at 9:50 AM, cfaust-dougot wrote:
####################################################################pa
ckage SCRIPTS::ParseNav;
use strict;
use vars qw($r);
###### Set some Constants
# Template Path
$ENV{'HTML_TEMPLATE_ROOT'} = xxx";
Perhaps an issue of style, but would that not be better set in
httpd.conf ?
# Our Content Template
my $content = "Navigation.tmpl";
######################################################################
# Main
# Our Mod_Perl Content Handler
sub handler {
$r = shift;
&cgi_nav();
you're not passing $r here into cgi_nav
# As this is being called from a include, set a header and print
it out
$r->send_http_header;
print $content->output;
# Return our header as we are done!!!
return Apache::OK;
} # End of Sub
another personal thing... i'd wrap the cgi_nav -> print in an eval
block. you'd probably want to return Apache::OK in any event, but if
you get some crazy error, why die?
