332 |
$server = server::as_hash_for $ip; |
$server = server::as_hash_for $ip; |
333 |
$server_ip = $server->{ip} || die "no server ip"; |
$server_ip = $server->{ip} || die "no server ip"; |
334 |
my $config = client::conf( $ip => 'config' ) || return; |
my $config = client::conf( $ip => 'config' ) || return; |
335 |
eval $config . '($ip)'; # must be last |
my $ret = eval $config . '($ip)'; # must be last |
336 |
|
if ( $@ ) { |
337 |
|
warn "ERROR in executing $config($ip): $@\n"; |
338 |
|
$ret .= qq{<pre style="color:red">$@</pre>}; |
339 |
|
} |
340 |
|
return $ret; |
341 |
} |
} |
342 |
|
|
343 |
warn 'loaded'; |
warn 'loaded'; |