--- lib/A3C/View/Strix.pm	2008/06/15 16:10:13	160
+++ lib/A3C/View/Strix.pm	2008/06/15 16:11:17	161
@@ -85,6 +85,44 @@
 
 };
 
+=head2 sql
+
+Execute SQL query on site
+
+=cut
+
+template 'sql' => page {
+
+	title is _('Execute SQL');
+
+	my $action = new_action(
+		class	=> 'StrixSQL',
+		moniker	=> 'strix-sql',
+		sticky_on_success => 1,
+		sticky_on_failure => 1,
+	);
+
+	form {
+		render_action( $action => [ 'strix', 'sql' ] );
+		form_submit( label => _('Execute SQL') );
+	};
+
+	if ( my $sql = $action->result->content('sql') ) {
+		div { _('Found %1 results', $sql->count ) }
+		table {
+			row { map { th { $_ } } $sql->_column_names };
+			while (my $row = $sql->next) {
+				row {
+					foreach my $col ( $sql->_column_names ) {
+						warn "++ $col\n";
+						cell { $row->$col }
+					}
+				}
+			}
+		}
+	}
+};
+
 =head1 REGIONS
 
 =head2 search_sites