display and return errors from configuration code

diff --git a/lib/PXElator/config.pm b/lib/PXElator/config.pm
index 99ad0e0..af35fba 100644 (file)
--- a/lib/PXElator/config.pm
+++ b/lib/PXElator/config.pm
@@ -332,7 +332,12 @@ sub for_ip {
        $server = server::as_hash_for $ip;
        $server_ip = $server->{ip} || die "no server ip";
        my $config = client::conf( $ip => 'config' ) || return;
-       eval $config . '($ip)'; # must be last
+       my $ret = eval $config . '($ip)'; # must be last
+       if ( $@ ) {
+               warn "ERROR in executing $config($ip): $@\n";
+               $ret .= qq{<pre style="color:red">$@</pre>};
+       }
+       return $ret;
 }
 
 warn 'loaded';