/[Frey]/trunk/lib/Frey/Web.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 537 by dpavlin, Wed Nov 26 16:34:25 2008 UTC revision 538 by dpavlin, Wed Nov 26 17:36:02 2008 UTC
# Line 208  sub page { Line 208  sub page {
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')
Legend:
Removed from v.537  
changed lines
  Added in v.538
  ViewVC Help
Powered by ViewVC 1.1.26