/[Frey]/trunk/lib/Frey/jQuery/flot.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/jQuery/flot.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 869 by dpavlin, Tue Dec 16 23:03:21 2008 UTC revision 870 by dpavlin, Wed Dec 17 14:23:35 2008 UTC
# Line 13  use lib 'lib'; Line 13  use lib 'lib';
13  use Frey::Shell::sar;  use Frey::Shell::sar;
14  use JSON;  use JSON;
15    
16  has skeleton => (  has sar_command => (
17          is => 'rw',          is => 'rw',
18          isa => 'Str',          isa => 'Str',
19          required => 1,          required => 1,
20          default => 'skeleton',          default => 'ssh www.rot13.org sar -n 1',
21  );  );
22    
23  sub as_markup {  sub as_markup {
# Line 32  sub as_markup { Line 32  sub as_markup {
32    
33          $self->add_css("$path/layout.css");          $self->add_css("$path/layout.css");
34    
35          my $sponge = Frey::Shell::sar->new( sar_command => 'sar -n 1' )->as_sponge;          my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;
36          warn $self->dump( $sponge );          #warn $self->dump( $sponge );
37    
38          my $by_col;          my $by_col;
39    
# Line 54  sub as_markup { Line 54  sub as_markup {
54    
55          my $data_js = 'var datasets = ' . to_json( $dataset ) . ';';          my $data_js = 'var datasets = ' . to_json( $dataset ) . ';';
56    
57          warn "# $data_js";          warn "# $data_js" if $self->debug;
58    
59          q|          my $c = $self->sar_command;
60          <div id="placeholder" style="width:600px;height:300px;"></div>          $c =~ s{(-n\s*\d+).*}{$1};
61    
62            my $form = qq|
63                    <form method="post">
64                    <select name="sar_command">
65            |;
66    
67            my $flags = `atsar help 2>&1`;
68            $flags =~ s{^.+flags:\s+}{}s;
69    
70            foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
71                    my ( $flag, $desc ) = split(/\s+/, $line );
72                    warn "# $flag | $desc";
73                    my $v = "$c $flag";
74                    my $selected = '';
75                    $selected = " selected" if $v eq $self->sar_command;
76                    $form .= qq|<option value="$v"$selected>$desc</option>|;
77            }
78    
79            $form .= qq|
80                    </select>
81                    <input type="submit" value="reload">
82                    </form>
83            |;
84    
85            $self->add_css(q|
86                    #choices { float: right }
87            |);
88    
89            qq|
90    
91                  <div id="choices">Show:</div>                  <div id="choices">Show $form</div>
92    
93            <div id="placeholder" style="width:600px;height:300px;"></div>
94    
95            | . q|
96                  <script id="source" language="javascript" type="text/javascript">                  <script id="source" language="javascript" type="text/javascript">
97                  $(function () {                  $(function () {
98                          var options = {                          var options = {
99                                  //selection: { mode: "x" },                                  selection: { mode: "x" },
100                                  //yaxis: { min: 0, max: 100 },                                  //yaxis: { min: 0, max: 100 },
101                                  xaxis: { mode: "time" }                                  xaxis: { mode: "time" }
102                          };                          };
# Line 77  sub as_markup { Line 109  sub as_markup {
109    
110                  });                  });
111                  </script>                  </script>
112    
113          |;          |;
114  }  }
115    
Legend:
Removed from v.869  
changed lines
  Added in v.870
  ViewVC Help
Powered by ViewVC 1.1.26