/[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 926 by dpavlin, Mon Jan 5 22:10:59 2009 UTC
# Line 6  with 'Frey::Web'; Line 6  with 'Frey::Web';
6  #with 'Frey::Storage';  #with 'Frey::Storage';
7  with 'Frey::jQuery';  with 'Frey::jQuery';
8  with 'Frey::File'; # FIXME inline on demand?  with 'Frey::File'; # FIXME inline on demand?
9    with 'Frey::Web::IFrame';
10    
11  use DateTimeX::Easy;  use DateTimeX::Easy;
12    
13  use lib 'lib';  use lib 'lib';
 use Frey::Shell::sar;  
14  use JSON;  use JSON;
15    
16  has skeleton => (  has 'sponge' => (
17          is => 'rw',          is => 'rw',
18          isa => 'Str',          isa => 'Sponge',
19          required => 1,          required => 1,
         default => 'skeleton',  
20  );  );
21    
22  sub as_markup {  sub as_markup {
# Line 30  sub as_markup { Line 29  sub as_markup {
29                  <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>                  <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>
30          |);          |);
31    
32          $self->add_css("$path/layout.css");          my $sponge = $self->sponge;
   
         my $sponge = Frey::Shell::sar->new( sar_command => 'sar -n 1' )->as_sponge;  
         warn $self->dump( $sponge );  
33    
34          my $by_col;          my $by_col;
35            my $unit_by_col;
36    
37          foreach my $row ( @{ $sponge->{rows} } ) {          foreach my $row ( @{ $sponge->{rows} } ) {
38                  my $x = DateTimeX::Easy->new( $row->[0] )->epoch * 1000; # ms                  my $time = eval {
39                  foreach my $col ( 2 .. 8 ) {                          DateTimeX::Easy->new( $row->[0] )->epoch * 1000; # ms
40                          push @{ $by_col->{$col} }, [ $x, $row->[$col] ];                  };
41                    die "FATAL: sponge first column ", $self->dump( $row->[0] ), " isn't valid time because of: $@" if $@;
42                    foreach my $col ( 1 .. $#$row ) {
43                            my $v = $row->[$col];
44                            $unit_by_col->{$col} = $1 if $v =~ s{([M%])$}{};
45                            push @{ $by_col->{$col} }, [ $time, $v ];
46                  }                  }
47          }          }
48    
# Line 48  sub as_markup { Line 50  sub as_markup {
50          my @names;          my @names;
51          foreach my $nr ( keys %$by_col ) {          foreach my $nr ( keys %$by_col ) {
52                  my $name = $sponge->{NAME}->[$nr];                  my $name = $sponge->{NAME}->[$nr];
53                  $dataset->{ $name }->{label} ||= $name;                  $dataset->{ $name }->{label}
54                            ||= $name
55                              . ( $unit_by_col->{$nr} ? ' [' . $unit_by_col->{$nr} . ']' : '' )
56                              ;
57                  $dataset->{ $name }->{data} = $by_col->{$nr};                  $dataset->{ $name }->{data} = $by_col->{$nr};
58          }          }
59    
60          my $data_js = 'var datasets = ' . to_json( $dataset ) . ';';          my $placeholder = qq|<div class="frey-error">no data found</div>|;
61            my $data_js = '';
62            if ( $dataset ) {
63                    $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";
64                    $placeholder = qq|
65                            <div id="placeholder" style="width:600px;height:300px;"></div>
66                            <div id="selection">no selection</div>
67                    |
68                    . $self->iframe_html
69                    ;
70            }
71    
72            warn "# $data_js" if $self->debug;
73    
74            my $form = '<!-- no sar_command in sponge -->';
75            my $sar_command = $sponge->{sar_command} || warn "no sar_command in spunge";
76            if ( my $c = $sar_command ) {
77                    $c =~ s{sar\s(-n\s*\d+)?(.*?)$}{sar $1};
78    
79                    $form = qq|
80                            <form method="post">
81                            <b>From</b> <input type="submit" value="refresh"><br>
82                    |;
83    
84                    my $flags = `atsar help 2>&1`;
85                    $flags =~ s{^.+flags:\s+}{}s;
86                    $flags =~ s{^\s*-[AS].+$}{}gm; # remove -A and -S flags which doesn't make sense
87                    $flags =~ s{^\s+}{}s;
88    
89                    foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
90                            my ( $flag, $desc ) = split(/\s+/, $line, 2 );
91                            warn "# $flag | $desc" if $self->debug;
92                            my $v = "$c $flag";
93                            my $checked = '';
94                            $checked = " checked" if $sar_command =~ m{$flag};
95                            $form .= qq|<input type="radio" name="sar_command" value="$v"$checked>$desc<br>\n|;
96                    }
97    
98                    $form .= qq|
99                            </form>
100                    |;
101    
102                    $self->add_css(q|
103                            #choices, form { float: left; }
104                    |);
105            }
106    
107            return
108            qq|
109    
110          warn "# $data_js";                  <code>$sar_command</code>
111    
112          q|                  $placeholder
         <div id="placeholder" style="width:600px;height:300px;"></div>  
113    
114                  <div id="choices">Show:</div>                  $form
115    
116                    <div id="choices"><b>Show</b></div>
117    
118            | . q|
119                  <script id="source" language="javascript" type="text/javascript">                  <script id="source" language="javascript" type="text/javascript">
120                  $(function () {                  $(function () {
121                          var options = {                          var options = {
122                                  //selection: { mode: "x" },                                  selection: { mode: "x" },
123                                  //yaxis: { min: 0, max: 100 },                                  //yaxis: { min: 0, max: 100 },
124                                  xaxis: { mode: "time" }                                  xaxis: { mode: "time" }
125                          };                          };
# Line 77  sub as_markup { Line 132  sub as_markup {
132    
133                  });                  });
134                  </script>                  </script>
135    
136          |;          |;
137  }  }
138    
Legend:
Removed from v.869  
changed lines
  Added in v.926
  ViewVC Help
Powered by ViewVC 1.1.26