100 |
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; |
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; |
101 |
chomp($html); |
chomp($html); |
102 |
} |
} |
103 |
$html = qq|<pre style="display: inline">$html</pre>| |
$html = qq|<tt>$html</tt>| |
104 |
unless |
unless |
105 |
$html =~ s{\b(\S+)\t(\S+)\t(\S+)\b}{<b title="$1/$2">$3</b> }gs; |
$html =~ s{\b(\S+)\t(\S+)\t(\S+)\b}{<b title="$1/$2">$3</b> }gs; |
106 |
|
|
107 |
if ( $format =~ /edit|table/ ) { |
if ( $format =~ /edit|table/ ) { |
108 |
( $name, $html ); |
( $name, $html ); |
109 |
} else { |
} else { |
110 |
qq|<em>$name</em> $html<br>| |
qq|<div class="config $name"><em>$name</em> $html</div>| |
111 |
} |
} |
112 |
} |
} |
113 |
} grep { length($conf->{$_}) > 0 } sort keys %$conf; |
} grep { length($conf->{$_}) > 0 } sort keys %$conf; |