From 80f265ee8f2603f0e3f7f5ad6c6c0cf704f98cb8 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sat, 7 Nov 2015 12:31:42 -0800
Subject: [PATCH] fix 404 cities.cgi / self-service dynamic addresses

---
 FS/FS/ClientAPI/MasonComponent.pm                 |  1 +
 fs_selfservice/FS-SelfService/cgi/misc/cities.cgi | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100755 fs_selfservice/FS-SelfService/cgi/misc/cities.cgi

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;
+
-- 
2.11.0