… | |
… | |
139 | package conn; |
139 | package conn; |
140 | |
140 | |
141 | use Socket; |
141 | use Socket; |
142 | use HTTP::Date; |
142 | use HTTP::Date; |
143 | use Convert::Scalar 'weaken'; |
143 | use Convert::Scalar 'weaken'; |
144 | use Linux::AIO; |
144 | use IO::AIO; |
145 | |
145 | |
146 | Linux::AIO::min_parallel $::AIO_PARALLEL; |
146 | IO::AIO::min_parallel $::AIO_PARALLEL; |
147 | |
147 | |
148 | Event->io(fd => Linux::AIO::poll_fileno, |
148 | Event->io(fd => IO::AIO::poll_fileno, |
149 | poll => 'r', async => 1, |
149 | poll => 'r', async => 1, |
150 | cb => \&Linux::AIO::poll_cb); |
150 | cb => \&IO::AIO::poll_cb); |
151 | |
151 | |
152 | our %conn; # $conn{ip}{self} => connobj |
152 | our %conn; # $conn{ip}{self} => connobj |
153 | our %uri; # $uri{ip}{uri}{self} |
153 | our %uri; # $uri{ip}{uri}{self} |
154 | our %blocked; |
154 | our %blocked; |
155 | our %mimetype; |
155 | our %mimetype; |