--- trunk/lib/Frey/jQuery/flot.pm	2008/12/16 23:03:21	869
+++ trunk/lib/Frey/jQuery/flot.pm	2008/12/17 14:23:35	870
@@ -13,11 +13,11 @@
 use Frey::Shell::sar;
 use JSON;
 
-has skeleton => (
+has sar_command => (
 	is => 'rw',
 	isa => 'Str',
 	required => 1,
-	default => 'skeleton',
+	default => 'ssh www.rot13.org sar -n 1',
 );
 
 sub as_markup {
@@ -32,8 +32,8 @@
 
 	$self->add_css("$path/layout.css");
 
-	my $sponge = Frey::Shell::sar->new( sar_command => 'sar -n 1' )->as_sponge;
-	warn $self->dump( $sponge );
+	my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;
+	#warn $self->dump( $sponge );
 
 	my $by_col;
 
@@ -54,17 +54,49 @@
 
 	my $data_js = 'var datasets = ' . to_json( $dataset ) . ';';
 
-	warn "# $data_js";
+	warn "# $data_js" if $self->debug;
 
-	q|
-    	<div id="placeholder" style="width:600px;height:300px;"></div>
+	my $c = $self->sar_command;
+	$c =~ s{(-n\s*\d+).*}{$1};
+
+	my $form = qq|
+		<form method="post">
+		<select name="sar_command">
+	|;
+
+	my $flags = `atsar help 2>&1`;
+	$flags =~ s{^.+flags:\s+}{}s;
+
+	foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
+		my ( $flag, $desc ) = split(/\s+/, $line );
+		warn "# $flag | $desc";
+		my $v = "$c $flag";
+		my $selected = '';
+		$selected = " selected" if $v eq $self->sar_command;
+		$form .= qq|<option value="$v"$selected>$desc</option>|;
+	}
+
+	$form .= qq|
+		</select>
+		<input type="submit" value="reload">
+		</form>
+	|;
+
+	$self->add_css(q|
+		#choices { float: right }
+	|);
+
+	qq|
 
-		<div id="choices">Show:</div>
+		<div id="choices">Show $form</div>
 
+    	<div id="placeholder" style="width:600px;height:300px;"></div>
+
+	| . q|
 		<script id="source" language="javascript" type="text/javascript">
 		$(function () {
 			var options = {
-				//selection: { mode: "x" },
+				selection: { mode: "x" },
 				//yaxis: { min: 0, max: 100 },
 				xaxis: { mode: "time" }
 			};
@@ -77,6 +109,7 @@
 
 		});
 		</script>
+
 	|;
 }