234 |
; |
; |
235 |
|
|
236 |
my $out = Sack::Merge->out; |
my $out = Sack::Merge->out; |
237 |
if ( my $li = join("\n", map { qq|<li><a href="/out/$_" target="$_">$_</a>| } keys %$out ) ) { |
if ( my $li = join("\n", map { qq|<li><input type=checkbox name=filter value="$_"><a href="/out/$_" target="$_">$_</a>| } keys %$out ) ) { |
238 |
print $send qq|<h1>Results</h1><ul>$li</ul><img src="/gnuplot/">\n|; |
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|; |
239 |
} |
} |
240 |
|
|
241 |
print $send qq|<h1>Nodes</h1> |
print $send qq|<h1>Nodes</h1> |