17 |
<input type=submit value=run> |
<input type=submit value=run> |
18 |
</form> |
</form> |
19 |
|
|
20 |
|
<h1><%= $hostname %></h1> |
21 |
|
|
22 |
% foreach my $cmd ( @{ $self->stash('commands') } ) { |
% foreach my $cmd ( @{ $self->stash('commands') } ) { |
23 |
% my $run = $hostname ? "ssh $hostname $cmd" : $cmd; |
% if ( $cmd =~ s{^(#+)\s*}{} ) { |
24 |
|
% my $l = length($1) + 1; |
25 |
|
%= "<h$l>$cmd</h$l>" |
26 |
|
% } else { |
27 |
|
% my $run = $hostname ? "ssh $hostname $cmd" : $cmd; |
28 |
<b><tt><%= $cmd %></tt></b><br> |
<b><tt><%= $cmd %></tt></b><br> |
29 |
<pre><%= `$run` %></pre> |
<pre><%= `$run` %></pre> |
30 |
|
% } |
31 |
% } |
% } |