ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/myhttpd/netgeo.pl
(Generate patch)

Comparing Coro/myhttpd/netgeo.pl (file contents):
Revision 1.17 by root, Sat Sep 17 20:27:47 2005 UTC vs.
Revision 1.18 by root, Sat Dec 8 21:01:16 2007 UTC

4 4
5use Socket; 5use Socket;
6use Fcntl; 6use Fcntl;
7 7
8use Coro; 8use Coro;
9use Coro::Event; 9use Coro::EV;
10use Coro::Semaphore; 10use Coro::Semaphore;
11use Coro::SemaphoreSet; 11use Coro::SemaphoreSet;
12use Coro::Socket; 12use Coro::Socket;
13use Coro::Timer; 13use Coro::Timer;
14 14
15use BerkeleyDB; 15use BerkeleyDB;
16
17$Event::DIED = sub {
18 Event::verbose_exception_handler(@_);
19 #Event::unloop_all();
20};
21 16
22tie %netgeo::whois, BerkeleyDB::Btree, 17tie %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
33package Whois; 28package Whois;
34 29
35use Coro::Event; 30use Coro::EV;
36 31
37sub new { 32sub 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;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines