SysIface/templates/commands.html.epl

% my $self = shift;
% my $hostname = $self->param('hostname');

<form method=get>
<label  for=hostname>hostname
<input name=hostname type=text value="<%= $hostname %>">
</label>
<input type=submit value=run>
</form>

<h1><%= $hostname %></h1>

% foreach my $cmd ( @{ $self->stash('commands') } ) {
%       if ( $cmd =~ s{^(#+)\s*}{} ) {
%               my $l = length($1) + 1;
%= "<h$l>$cmd</h$l>"
%       } else {
%               my $run = $hostname ? "ssh $hostname $cmd" : $cmd;
<b><tt><%= $cmd %></tt></b><br>
<pre><%= `$run` %></pre>
<table>
<tr><th colspan=2><%= $cmd %></td><tr>
%               foreach my $run ( $self->run( $cmd ) ) {
<tr>
<th><%= $run->{hostname} %></th>
<td>
<pre><%= $run->{out} %></pre>
</td>
</tr>
%               }
</table>
%       }
% }
1	dpavlin	6	% 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	dpavlin	7	<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	dpavlin	6	% }
33			% }