/[Sack]/trunk/lib/Sack/Server.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/Sack/Server.pm

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

revision 263 by dpavlin, Sun Jan 31 18:18:38 2010 UTC revision 264 by dpavlin, Mon Feb 1 22:03:02 2010 UTC
# Line 229  while (1) { Line 229  while (1) {
229    
230  |;  |;
231    
232                                    my $out = Sack::Merge->out;    
233                                    if ( my $li = join("\n", map { qq|<li><input type=checkbox name=filter value="$_"><a href="/out/$_" target="$_">$_</a>| } keys %$out ) ) {
234                                            print $send qq|<h1>Results</h1><form method="get" target="gnuplot" action="/gnuplot/"><ul>$li</ul><input type=submit value="Show checked"></form><img src="/gnuplot/">\n|;
235                                    }
236    
237                                  print $send qq|<h1>Views</h1><ul>|                                  print $send qq|<h1>Views</h1><ul>|
238                                          , join("\n", map {                                          , join("\n", map {
239                                                  my $view = $_;                                                  my $view = $_;
# Line 260  while (1) { Line 265  while (1) {
265                                          , qq|</ul>|                                          , qq|</ul>|
266                                          ;                                          ;
267    
                                 my $out = Sack::Merge->out;      
                                 if ( my $li = join("\n", map { qq|<li><input type=checkbox name=filter value="$_"><a href="/out/$_" target="$_">$_</a>| } keys %$out ) ) {  
                                         print $send qq|<h1>Results</h1><form method="get" target="gnuplot" action="/gnuplot/"><ul>$li</ul><input type=submit value="Show checked"></form><img src="/gnuplot/">\n|;  
                                 }  
   
268                                  print $send qq|<h1>Nodes</h1>|;                                  print $send qq|<h1>Nodes</h1>|;
269                                  foreach my $node ( keys %{ $info->{node} } ) {                                  foreach my $node ( keys %{ $info->{node} } ) {
270                                          my $class = join(' '                                          my $class = join(' '
Legend:
Removed from v.263  
changed lines
  Added in v.264
  ViewVC Help
Powered by ViewVC 1.1.26