diff options
| -rw-r--r-- | FS/FS/ClientAPI/MasonComponent.pm | 1 | ||||
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/misc/cities.cgi | 18 |
2 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/MasonComponent.pm b/FS/FS/ClientAPI/MasonComponent.pm index 3c3bf4cb3..493e0c0c2 100644 --- a/FS/FS/ClientAPI/MasonComponent.pm +++ b/FS/FS/ClientAPI/MasonComponent.pm @@ -21,6 +21,7 @@ my %allowed_comps = map { $_=>1 } qw( /misc/phonenums.cgi /misc/states.cgi /misc/counties.cgi + /misc/cities.cgi /misc/svc_acct-domains.cgi /misc/part_svc-columns.cgi /edit/elements/svc_forward.html diff --git a/fs_selfservice/FS-SelfService/cgi/misc/cities.cgi b/fs_selfservice/FS-SelfService/cgi/misc/cities.cgi new file mode 100755 index 000000000..07753f3b3 --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/misc/cities.cgi @@ -0,0 +1,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/cities.cgi', + 'query_string' => $cgi->query_string, #pass CGI params... + ); + +#hmm. +my $output = $rv->{'error'} || $rv->{'output'}; + +print $cgi->header( '-expires' => 'now' ). + $output; + |