it* hacker news on gopher Err codevoid.de 70 i Err codevoid.de 70 hgit clone git://git.codevoid.de/hn-gopher URL:git://git.codevoid.de/hn-gopher codevoid.de 70 1Log /git/hn-gopher/log.gph codevoid.de 70 1Files /git/hn-gopher/files.gph codevoid.de 70 1Refs /git/hn-gopher/refs.gph codevoid.de 70 i--- Err codevoid.de 70 1commit 5e4345a3d84df25425341020f60ab7385bb8b2a5 /git/hn-gopher/commit/5e4345a3d84df25425341020f60ab7385bb8b2a5.gph codevoid.de 70 1parent 1ad7d93cbdded0dedaa6247afd0503f010aa5731 /git/hn-gopher/commit/1ad7d93cbdded0dedaa6247afd0503f010aa5731.gph codevoid.de 70 hAuthor: Stefan Hagen URL:mailto:sh+git[at]codevoid[dot]de codevoid.de 70 iDate: Mon, 30 Jul 2018 21:53:01 +0200 Err codevoid.de 70 i Err codevoid.de 70 i5 sec delay for real now Err codevoid.de 70 i Err codevoid.de 70 iDiffstat: Err codevoid.de 70 i M hn-scraper.pl | 2 +- Err codevoid.de 70 i Err codevoid.de 70 i1 file changed, 1 insertion(+), 1 deletion(-) Err codevoid.de 70 i--- Err codevoid.de 70 1diff --git a/hn-scraper.pl b/hn-scraper.pl /git/hn-gopher/file/hn-scraper.pl.gph codevoid.de 70 it@@ -43,7 +43,7 @@ sub getTopStories { Err codevoid.de 70 i $REST->{request} = HTTP::Request->new( GET => $REST->{resource} ); Err codevoid.de 70 i $REST->{response} = $REST->{UA}->request( $REST->{request} ); Err codevoid.de 70 i if(not $REST->{response}->is_success()) { Err codevoid.de 70 i- my $delay = 3; Err codevoid.de 70 i+ my $delay = 5; Err codevoid.de 70 i #print "Debug: Got \"", $REST->{response}->status_line, "\" trying again in $delay seconds...\n"; Err codevoid.de 70 i sleep $delay; Err codevoid.de 70 i return getTopStories(); Err codevoid.de 70 .