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 |
% } |
22 |
% } |