fs_selfservice/FS-SelfService/cgi/misc/states.cgi

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use CGI;
   5 use FS::SelfService qw( mason_comp );
   6
   7 my $cgi = new CGI;
   8
   9 my $rv = mason_comp( 'comp'         => '/misc/states.cgi',
  10                      'query_string' => $cgi->query_string, #pass CGI params...
  11                    );
  12
  13 #hmm.
  14 my $output = $rv->{'error'} || $rv->{'output'};
  15
  16 print $cgi->header( '-expires' => 'now' ).
  17       $output;
  18