trunk/clients/perl/OpenXPKI-Client-HTML-Mason/bin/openxpki.cgi

   1 #!/usr/bin/perl
   2
   3 # Written 2006 by Martin Bartosch for the OpenXPKI project
   4 # (C) Copyright 2006 by The OpenXPKI Project
   5
   6 use strict;
   7 use warnings;
   8
   9 use HTML::Mason::CGIHandler;
  10
  11 # switch STDOUT to utf8 to avoid perl guessing incorrectly ...
  12 binmode STDOUT, ':utf8';
  13
  14 # if you use a deployment where your top level is not '/',
  15 # you have to mangle the PATH_INFO environment variable, e.g.
  16 # do something like
  17 # $ENV{PATH_INFO} =~ s{\A /openxpki}{}xms;
  18 # if you want to deploy below /openxpki
  19 # ... and of course insert the correct paths for comp_root and data_dir below.
  20 my $h = HTML::Mason::CGIHandler->new(
  21     comp_root => "$ENV{DOCUMENT_ROOT}",
  22     data_dir => "$ENV{DOCUMENT_ROOT}/../mason-data",
  23     allow_globals => [ qw( $context %session_cache ) ],
  24     );
  25
  26 $h->handle_request();
  27