use Data::Dump qw(dump);
+plugin 'tag_helpers';
# Documentation browser under "/perldoc" (this plugin requires Perl 5.10)
plugin 'pod_renderer';
+app->secret('apkpm');
+
get '/' => sub {
my $self = shift;
$self->render('index');
print $gnuplot "e\n";
close($gnuplot);
- $self->redirect_to("/gnuplot/$name");
+ $self->render('gnuplot', sql => $sql, img => "/gnuplot/$name");
};
app->start;
% layout 'default';
pong: <tt><%= $pong %>
-@@ dump.html.ep
+@@ gnuplot.html.ep
% layout 'default';
-<pre><%= $dump %></pre>
+<%= form_for gnuplot => begin %>
+ <%= text_area 'sql', cols => 80 %>
+ <%= submit_button %>
+<% end %>
+<img src="<%= $img %>">
@@ layouts/default.html.ep
<!doctype html><html>
projects / APKPM.git / commitdiff