208 |
|
|
209 |
$status_line .= $self->warnings_html; |
$status_line .= $self->warnings_html; |
210 |
|
|
211 |
$status_line .= $self->popup( INC => { %INC }, 1 ); |
my $inc_html; |
212 |
|
{ |
213 |
|
my $inc; |
214 |
|
map { |
215 |
|
s{.pm$}{}; |
216 |
|
my $class = $_; |
217 |
|
s[/][}->{]g; |
218 |
|
$class =~ s[/][::]g; |
219 |
|
eval '$inc->{' . $_ . '} = $class'; |
220 |
|
} sort keys %INC; |
221 |
|
$inc_html = dump( $inc ); |
222 |
|
$inc_html =~ s{\s+=>\s+\d+}{}gs; |
223 |
|
$inc_html =~ s{(['"]?)(\w+)\1\s+=>\s+(['"]?)([\w:]*\2)\3}{<a target="$4" href="/$4" title="$4">$2</a>}gs; |
224 |
|
$inc_html =~ s{\s+=>\s+}{ }gs; |
225 |
|
$inc_html =~ s{,}{}gs; |
226 |
|
} |
227 |
|
|
228 |
|
$status_line .= $self->popup( INC => "<small>$inc_html</small>" ); |
229 |
|
|
230 |
my ($exit,$description) = ('exit','stop server'); |
my ($exit,$description) = ('exit','stop server'); |
231 |
($exit,$description) = ('restart','restart server') |
($exit,$description) = ('restart','restart server') |