84 |
} else { |
} else { |
85 |
if ( $name eq 'amt' ) { |
if ( $name eq 'amt' ) { |
86 |
my $amt_ip = amt::ip($ip,$html); |
my $amt_ip = amt::ip($ip,$html); |
87 |
$html = qq|<a title="$html" href=http://$amt_ip:16992/logon.htm target=$amt_ip>$amt_ip</a>|; |
# $html contains password! |
88 |
|
$html = qq|<a href=http://$amt_ip:16992/logon.htm target=$amt_ip>$amt_ip</a>|; |
89 |
|
|
90 |
if ( $format ne 'inline' ) { |
if ( $format ne 'inline' ) { |
91 |
my $power = amt::power_on($ip); |
my $power = amt::power_on($ip); |
101 |
chomp($html); |
chomp($html); |
102 |
} elsif ( $name eq 'kvm' ) { |
} elsif ( $name eq 'kvm' ) { |
103 |
$html = qq|<a href="/start_stop/kvm?nr=$html">$html</a>|; |
$html = qq|<a href="/start_stop/kvm?nr=$html">$html</a>|; |
104 |
|
} elsif ( $name eq 'munin' ) { |
105 |
|
$html = join("\n", map { my $url = $_; $url =~ s/-d\w+\.\w+$/.html/; qq|<a href="$url"><img src="$_"></a>| } split(/\s+/s,$html)); |
106 |
} |
} |
107 |
$html = qq|<tt>$html</tt>| |
$html = qq|<tt>$html</tt>| |
108 |
unless |
unless |