From 181ff6e8c4cea9d47f552c4574685cea51abcf34 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 9 Jul 2011 22:18:15 +0200
Subject: [PATCH] return simple table dump sa json

---
 web_ui.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/web_ui.pl b/web_ui.pl
index 0331d68..7fef2fc 100755
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -60,6 +60,13 @@ get '/g/:call/:args' => [ args => qr/.*/ ] => sub {
 	_render_jsonp( $self, $ret );
 };
 
+get '/table/:table' => sub {
+	my $self = shift;
+	my $sql = "select * from " . $self->param('table') . " limit " . ( $self->param('limit') || 1 );
+	my $ret = $gearman->req( 'SUBMIT_JOB', 'Store_sql', '', $sql );
+	_render_jsonp( $self, $ret );
+};
+
 get '/_g/status' => sub {
 	my $self = shift;
 
-- 
2.20.1