$self->render('user');
};
+get '/psql/:command' => sub {
+ my $self = shift;
+ my $command = $self->param('command');
+ $command =~ s/^_/\\/ && warn "internal psql command $command";
+ $command = sprintf "psql -c '%s' apkpm", $command;
+ my $output = `$command`; # FIXME unsecure
+ $self->render_text( "\$ <b><tt>$command</tt></b>\n\n<pre>$output</pre>" );
+};
+
+# create pid file
open(my $pid, '>', '/tmp/apkpm.web_ui.pid');
print $pid "$$\n";
close $pid;