projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
default to a session cookie instead of setting an explicit timeout, weird timezone...
[freeside.git]
/
httemplate
/
misc
/
xmlhttp-censustract.html
diff --git
a/httemplate/misc/xmlhttp-censustract.html
b/httemplate/misc/xmlhttp-censustract.html
index
8a76860
..
855e172
100644
(file)
--- a/
httemplate/misc/xmlhttp-censustract.html
+++ b/
httemplate/misc/xmlhttp-censustract.html
@@
-5,10
+5,19
@@
my $DEBUG = 0;
my $conf = new FS::Conf;
my $conf = new FS::Conf;
-my $return = {};
-my $url = "http
://data.fcc.gov/api
/block/find?format=json&censusYear=" . $cgi->param('census_year') . "&latitude=" . $cgi->param('lat') . "&longitude=" . $cgi->param('lon');
+## new api link, see doc https://geo.fcc.gov/api/census/
+my $url = "http
s://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);
-</%init>
\ No newline at end of file
+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>