templates/example/welcome.html.epl

% my $self = shift;
<h2><%= $self->stash('message') %></h2>
This page was generated from the template
"templates/example/welcome.html.epl" and the layout
"templates/layouts/default.html.epl",
<a href="<%= $self->url_for %>">click here</a>
to reload the page or
<a href="/index.html">here</a>
to move forward to a static page.

% 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>
%       }
% }
1	dpavlin	1	% my $self = shift;
2			<h2><%= $self->stash('message') %></h2>
3			This page was generated from the template
4			"templates/example/welcome.html.epl" and the layout
5			"templates/layouts/default.html.epl",
6			<a href="<%= $self->url_for %>">click here</a>
7			to reload the page or
8			<a href="/index.html">here</a>
9			to move forward to a static page.
10	dpavlin	4
11			% my $hostname = $self->param('hostname');
12
13			<form method=get>
14			<label for=hostname>hostname
15			<input name=hostname type=text value="<%= $hostname %>">
16			</label>
17			<input type=submit value=run>
18			</form>
19
20	dpavlin	5	<h1><%= $hostname %></h1>
21
22	dpavlin	4	% foreach my $cmd ( @{ $self->stash('commands') } ) {
23	dpavlin	5	% 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	dpavlin	4	<b><tt><%= $cmd %></tt></b><br>
29			<pre><%= `$run` %></pre>
30	dpavlin	5	% }
31	dpavlin	4	% }