… | … | ||
---|---|---|---|
4 | 4 | ||
5 | use Socket; | 5 | use Socket; |
6 | use Fcntl; | 6 | use Fcntl; |
7 | 7 | ||
8 | use Coro; | 8 | use Coro; |
9 | use Coro::Event; | 9 | use Coro::EV; |
10 | use Coro::Semaphore; | 10 | use Coro::Semaphore; |
11 | use Coro::SemaphoreSet; | 11 | use Coro::SemaphoreSet; |
12 | use Coro::Socket; | 12 | use Coro::Socket; |
13 | use Coro::Timer; | 13 | use Coro::Timer; |
14 | 14 | ||
15 | use BerkeleyDB; | 15 | use BerkeleyDB; |
16 | |||
17 | $Event::DIED = sub { | ||
18 | Event::verbose_exception_handler(@_); | ||
19 | #Event::unloop_all(); | ||
20 | }; | ||
21 | 16 | ||
22 | tie %netgeo::whois, BerkeleyDB::Btree, | 17 | tie %netgeo::whois, BerkeleyDB::Btree, |
23 | -Env => $db_env, | 18 | -Env => $db_env, |
24 | -Filename => "whois", | 19 | -Filename => "whois", |
25 | -Flags => DB_CREATE, | 20 | -Flags => DB_CREATE, |
… | … | ||
30 | -Flags => DB_CREATE, | 25 | -Flags => DB_CREATE, |
31 | or die "unable to create/open iprange table"; | 26 | or die "unable to create/open iprange table"; |
32 | 27 | ||
33 | package Whois; | 28 | package Whois; |
34 | 29 | ||
35 | use Coro::Event; | 30 | use Coro::EV; |
36 | 31 | ||
37 | sub new { | 32 | sub new { |
38 | my $class = shift; | 33 | my $class = shift; |
39 | my $name = shift; | 34 | my $name = shift; |
40 | my $ip = shift; | 35 | my $ip = shift; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |