diff options
| -rw-r--r-- | perllib/Cobrands/Fiksgatami/Util.pm | 8 | ||||
| -rwxr-xr-x | web/import.cgi | 3 |
2 files changed, 10 insertions, 1 deletions
diff --git a/perllib/Cobrands/Fiksgatami/Util.pm b/perllib/Cobrands/Fiksgatami/Util.pm index 2abc03d00..eb0146ab2 100644 --- a/perllib/Cobrands/Fiksgatami/Util.pm +++ b/perllib/Cobrands/Fiksgatami/Util.pm @@ -58,5 +58,13 @@ sub area_min_generation { return ''; } +sub admin_base_url { + return 'http://www.fiksgatami.no/admin/'; +} + +sub writetothem_url { + return 'http://www.norge.no/styresmakter/'; +} + 1; diff --git a/web/import.cgi b/web/import.cgi index 371e70f7a..76ac61841 100755 --- a/web/import.cgi +++ b/web/import.cgi @@ -128,6 +128,7 @@ sub main { Page::do_fastcgi(\&main); sub docs { + my $base = mySociety::Config::get('BASE_URL'); print <<EOF; <p>You may inject problem reports into FixMyStreet programatically using this simple interface. Upon receipt, an email will be sent to the address given, @@ -139,7 +140,7 @@ the report has been successfully received, or if not, a list of errors, one per line each starting with <samp>ERROR:</samp>. <p>You may submit the following information by POST to this URL -(i.e. <samp>http://www.fixmystreet.com/import</samp> ):</p> +(i.e. <samp>$base/import</samp> ):</p> <dl> <dt>service <dd> |