50 |
use browser; |
use browser; |
51 |
use network; |
use network; |
52 |
|
|
53 |
|
use CouchDB; |
54 |
|
|
55 |
sub static { |
sub static { |
56 |
my ($client,$path) = @_; |
my ($client,$path) = @_; |
62 |
if ( my $pid = fork ) { |
if ( my $pid = fork ) { |
63 |
# parent |
# parent |
64 |
close($client); |
close($client); |
|
print "http static child $pid\n"; |
|
65 |
$static_pids->{$pid} = $path; |
$static_pids->{$pid} = $path; |
66 |
|
CouchDB::audit('static', 'parent', { pid => $pid, path => $path }); |
67 |
return 1; |
return 1; |
68 |
} |
} |
69 |
|
|
82 |
my $buff; |
my $buff; |
83 |
my $pos = 0; |
my $pos = 0; |
84 |
|
|
85 |
warn "static $path $type $size block: $block\n"; |
CouchDB::audit( 'static', 'child', { pid => $$, path => $path, type => $type, size => $size, block => $block }); |
86 |
|
|
87 |
progress_bar::start; |
progress_bar::start; |
88 |
|
|
97 |
|
|
98 |
print STDERR "\n"; |
print STDERR "\n"; |
99 |
|
|
100 |
warn "exit static child"; |
CouchDB::audit( 'static', 'child', 'exit', { pid => $$ } ); |
101 |
|
|
102 |
exit(0); |
exit(0); |
103 |
} |
} |
117 |
|
|
118 |
server->refresh; |
server->refresh; |
119 |
|
|
120 |
warn "get_request $path ", $param ? dump( $param ) : '', "\n"; |
CouchDB::audit( 'request', { path => $path, param => $param } ); |
121 |
|
|
122 |
if ( my $found = static( $client,$path ) ) { |
if ( my $found = static( $client,$path ) ) { |
123 |
warn "static $found" if $debug; |
warn "static $found" if $debug; |