cgi-bin/bare_mason.pl

   1 use CatalystX::GlobalContext qw( $c );
   2 # this script is called like /bare_mason.pl/path/to/mason.mas, and
   3 # simply executes the mason component with no parameters and returns
   4 # the bare text.
   5
   6 # example usage: provide the site header and footer html as a web service
   7
   8 use strict;
   9 use warnings;
  10 use CGI ();
  11
  12 my $cgi = CGI->new;
  13 if( my $component_name = $cgi->path_info ) {
  14     print "\n\n";
  15     print $c->render_mason( $component_name, bare_render => 1 );
  16 }