5 use FS::SelfService qw( mason_comp );
9 my $rv = mason_comp( 'comp' => '/misc/svc_acct-domains.cgi',
10 'query_string' => $cgi->query_string, #pass CGI params...
14 my $output = $rv->{'error'} || $rv->{'output'};
16 print $cgi->header( '-expires' => 'now' ).