fs_selfservice/FS-SelfService/cgi/misc/svc_acct-domains.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl -w

use strict;
use CGI;
use FS::SelfService qw( mason_comp );

my $cgi = new CGI;

my $rv = mason_comp( 'comp'         => '/misc/svc_acct-domains.cgi',
                     'query_string' => $cgi->query_string, #pass CGI params...
                   );

#hmm.
my $output = $rv->{'error'} || $rv->{'output'};

print $cgi->header( '-expires' => 'now' ).
      $output;