| … | |
… | |
| 9 | $cf::CFG{metaserver2_urls} |
9 | $cf::CFG{metaserver2_urls} |
| 10 | or return; |
10 | or return; |
| 11 | |
11 | |
| 12 | our $UPDATE_METASERVER2 = Event->timer ( |
12 | our $UPDATE_METASERVER2 = Event->timer ( |
| 13 | reentrant => 0, |
13 | reentrant => 0, |
| 14 | after => 0, |
14 | after => 37, |
| 15 | interval => 299, # crossfire itself uses 60something as interval |
15 | interval => 299, # crossfire itself uses 60something as interval |
| 16 | hard => 1, |
16 | hard => 1, |
| 17 | data => cf::WF_AUTOCANCEL, |
17 | data => cf::WF_AUTOCANCEL, |
| 18 | cb => Coro::unblock_sub { |
18 | cb => Coro::unblock_sub { |
| 19 | my %form = ( |
19 | my %form = ( |
| … | |
… | |
| 39 | |
39 | |
| 40 | my $content = |
40 | my $content = |
| 41 | join "&", |
41 | join "&", |
| 42 | map "$_=" . (URI::Escape::uri_escape_utf8 $form{$_}), |
42 | map "$_=" . (URI::Escape::uri_escape_utf8 $form{$_}), |
| 43 | keys %form; |
43 | keys %form; |
| 44 | |
|
|
| 45 | $content .= "\015\012"; # for good form |
|
|
| 46 | |
44 | |
| 47 | # this is a bit hacky, but hey, invoking LWP on something so trivial feels like a sin |
45 | # this is a bit hacky, but hey, invoking LWP on something so trivial feels like a sin |
| 48 | |
46 | |
| 49 | for my $url (@{ $cf::CFG{metaserver2_urls} || [] }) { |
47 | for my $url (@{ $cf::CFG{metaserver2_urls} || [] }) { |
| 50 | $url = new URI $url |
48 | $url = new URI $url |
