-<%= include( '/elements/header', 'Query Results',
- include( '/elements/menubar', 'Main Menu' => $p )
-%>
-<%= include( 'elements/search.html',
- 'name' => 'rows',
-
-%>
+<& elements/search.html,
+ 'title' => 'Query Results',
+ 'name' => 'rows',
+ 'query' => "SELECT $sql",
+ 'count_query' => $count,
+&>
+<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Raw SQL');
+
+my $sql = $cgi->param('sql') or errorpage('Empty query');
+$sql =~ s/;+\s*$//; #remove trailing ;
+
+my $count = $sql;
+$count =~ s/.* FROM /SELECT COUNT(*) FROM /i;
+
+</%init>