5 |
|
|
6 |
use IO::Socket; |
use IO::Socket; |
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
use CouchDB; |
use store; |
9 |
use File::Slurp; |
use File::Slurp; |
10 |
|
|
11 |
use server; |
use server; |
67 |
} |
} |
68 |
|
|
69 |
warn "log ",dump( $log ); |
warn "log ",dump( $log ); |
70 |
CouchDB::audit( $log->{tag}, $log ); |
store::audit( $log->{tag}, $log ); |
71 |
} |
} |
72 |
|
|
73 |
sub start { |
sub start { |
78 |
ReuseAddr => 1, |
ReuseAddr => 1, |
79 |
) || die "can't listen to $port: $!"; |
) || die "can't listen to $port: $!"; |
80 |
|
|
81 |
CouchDB::audit('start', { port => $port }); |
store::audit('start', { port => $port }); |
82 |
|
|
83 |
while(1) { |
while(1) { |
84 |
message($sock); |
message($sock); |