| … | |
… | |
| 5 | use IO::Socket::INET; |
5 | use IO::Socket::INET; |
| 6 | |
6 | |
| 7 | $cf::CFG{metaserver_comment} |
7 | $cf::CFG{metaserver_comment} |
| 8 | or return; |
8 | or return; |
| 9 | |
9 | |
| 10 | our $UPDATE_METASERVER = Event->timer (after => 5, interval => 299, cb => sub { |
10 | our $UPDATE_METASERVER = Event->timer (after => 5, interval => 299, data => cf::WF_AUTOCANCEL, cb => sub { |
| 11 | my $socket = new IO::Socket::INET |
11 | my $socket = new IO::Socket::INET |
| 12 | Proto => 'udp', |
12 | Proto => 'udp', |
| 13 | PeerAddr => $cf::CFG{metaserver_metaserver}, |
13 | PeerAddr => $cf::CFG{metaserver_metaserver}, |
| 14 | LocalAddr => $cf::CFG{metaserver_serveraddr} |
14 | LocalAddr => $cf::CFG{metaserver_serveraddr} |
| 15 | or die "metaserver socket creation error: $!"; |
15 | or die "metaserver socket creation error: $!"; |
