49 |
our $static_pids; |
our $static_pids; |
50 |
use progress_bar; |
use progress_bar; |
51 |
use config; |
use config; |
52 |
|
use client; |
53 |
|
use log; |
54 |
|
|
55 |
sub static { |
sub static { |
56 |
my ($client,$path) = @_; |
my ($client,$path) = @_; |
229 |
; |
; |
230 |
} elsif ( $path =~ m{^/client} ) { |
} elsif ( $path =~ m{^/client} ) { |
231 |
my $ip = $client->peerhost; |
my $ip = $client->peerhost; |
232 |
my $hostname = server::shared( "hostname/$ip", $param->{hostname} ); |
my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} ); |
233 |
my $deploy = server::shared( "deploy/$ip", $param->{deploy} ); |
my $deploy = client::conf( $ip, 'deploy' => $param->{deploy} ); |
234 |
print $client $ok |
print $client $ok |
235 |
, menu() |
, menu() |
236 |
, qq|<form method=get>| |
, qq|<form method=get>| |