86 |
$html = qq|<a title="$html" href=http://$ip:16992/logon.htm>logon</a>|; |
$html = qq|<a title="$html" href=http://$ip:16992/logon.htm>logon</a>|; |
87 |
} elsif ( $name eq 'ssh' ) { |
} elsif ( $name eq 'ssh' ) { |
88 |
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; |
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; |
89 |
|
chomp($html); |
90 |
} |
} |
91 |
$html = qq|<pre style="display: inline">$html</pre>| |
$html = qq|<pre style="display: inline">$html</pre>| |
92 |
unless |
unless |
98 |
qq|<em>$name</em> $html<br>| |
qq|<em>$name</em> $html<br>| |
99 |
} |
} |
100 |
} |
} |
101 |
} keys %$conf; |
} sort keys %$conf; |
102 |
|
|
103 |
$format eq 'inline' ? join("\n", @opts) : @opts; |
$format eq 'inline' ? join("\n", @opts) : @opts; |
104 |
} |
} |