1 |
% my $self = shift; |
2 |
% my $hostname = $self->param('hostname'); |
3 |
|
4 |
<form method=get> |
5 |
<label for=hostname>hostname |
6 |
<input name=hostname type=text value="<%= $hostname %>"> |
7 |
</label> |
8 |
<input type=submit value=run> |
9 |
</form> |
10 |
|
11 |
<h1><%= $hostname %></h1> |
12 |
|
13 |
% foreach my $cmd ( @{ $self->stash('commands') } ) { |
14 |
% if ( $cmd =~ s{^(#+)\s*}{} ) { |
15 |
% my $l = length($1) + 1; |
16 |
%= "<h$l>$cmd</h$l>" |
17 |
% } else { |
18 |
% my $run = $hostname ? "ssh $hostname $cmd" : $cmd; |
19 |
<b><tt><%= $cmd %></tt></b><br> |
20 |
<pre><%= `$run` %></pre> |
21 |
<table> |
22 |
<tr><th colspan=2><%= $cmd %></td><tr> |
23 |
% foreach my $run ( $self->run( $cmd ) ) { |
24 |
<tr> |
25 |
<th><%= $run->{hostname} %></th> |
26 |
<td> |
27 |
<pre><%= $run->{out} %></pre> |
28 |
</td> |
29 |
</tr> |
30 |
% } |
31 |
</table> |
32 |
% } |
33 |
% } |