diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2022-04-27 13:50:36 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2022-04-27 13:50:36 -0700 |
| commit | 850f7e02ff0ca9f3514989d7d6c2a0ab96ac4e06 (patch) | |
| tree | c42f601e8ba2bc6faf2d108e714ea1f14995be6f /httemplate/misc/xmlhttp-censustract.html | |
| parent | bf9b266acafce57cfa532801c00d45dc4eab765c (diff) | |
restore correct workflow when no census match is found: offer map-based picker, RT#86245, RT#76968
Diffstat (limited to 'httemplate/misc/xmlhttp-censustract.html')
| -rw-r--r-- | httemplate/misc/xmlhttp-censustract.html | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/httemplate/misc/xmlhttp-censustract.html b/httemplate/misc/xmlhttp-censustract.html index 985fb90e5..855e172e2 100644 --- a/httemplate/misc/xmlhttp-censustract.html +++ b/httemplate/misc/xmlhttp-censustract.html @@ -5,12 +5,19 @@ my $DEBUG = 0; my $conf = new FS::Conf; -my $return = {}; - ## new api link, see doc https://geo.fcc.gov/api/census/ my $url = "https://geo.fcc.gov/api/census/block/find?format=json&censusYear=" . $cgi->param('census_year') . "&latitude=" . $cgi->param('lat') . "&longitude=" . $cgi->param('lon'); -use LWP::Simple; -my $return = get $url; +my $ua = new LWP::UserAgent; +$ua->agent('Freeside/'. $FS::VERSION); #libwww* elicits "403 Forbidden" +my $res = $ua->get($url); + +my $return = ''; +if ( $res->is_success ) { + $return = $res->decoded_content; +} else { + #better error handling? well, hopefully the site is reliable enough + warn 'Error from geo.fcc.gov: '. $res->status_line. "\n"; +} -</%init>
\ No newline at end of file +</%init> |