70 |
my ($ip,$conf,$format) = @_; |
my ($ip,$conf,$format) = @_; |
71 |
my @editable = splice(@_,3); |
my @editable = splice(@_,3); |
72 |
|
|
73 |
warn "# conf ",dump( $ip, $conf, $format, [ @editable ] ); |
# warn "# conf ",dump( $ip, $conf, $format, [ @editable ] ); |
74 |
|
|
75 |
$format ||= 'inline'; |
$format ||= 'inline'; |
76 |
|
|
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); |