/[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 871 by dpavlin, Wed Dec 17 17:59:59 2008 UTC revision 876 by dpavlin, Thu Dec 18 13:03:22 2008 UTC
# Line 30  sub as_markup { Line 30  sub as_markup {
30                  <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>                  <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>
31          |);          |);
32    
         $self->add_css("$path/layout.css");  
   
33          my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;          my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;
34          #warn $self->dump( $sponge );          #warn $self->dump( $sponge );
35    
# Line 58  sub as_markup { Line 56  sub as_markup {
56                  $dataset->{ $name }->{data} = $by_col->{$nr};                  $dataset->{ $name }->{data} = $by_col->{$nr};
57          }          }
58    
59          my $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";          my $placeholder = qq|<div class="frey-error">no data found</div>|;
60            my $data_js = '';
61            if ( $dataset ) {
62                    $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";
63                    $placeholder = qq|<div id="placeholder" style="width:600px;height:300px;"></div>|;
64            }
65    
66          warn "# $data_js" if $self->debug;          warn "# $data_js" if $self->debug;
67    
# Line 73  sub as_markup { Line 76  sub as_markup {
76    
77          my $flags = `atsar help 2>&1`;          my $flags = `atsar help 2>&1`;
78          $flags =~ s{^.+flags:\s+}{}s;          $flags =~ s{^.+flags:\s+}{}s;
79            $flags =~ s{^\s*-[AS].+$}{}gm; # remove -A and -S flags which doesn't make sense
80            $flags =~ s{^\s+}{}s;
81    
82          foreach my $line ( split(/\s*\n\s*/, $flags ) ) {          foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
83                  my ( $flag, $desc ) = split(/\s+/, $line, 2 );                  my ( $flag, $desc ) = split(/\s+/, $line, 2 );
# Line 91  sub as_markup { Line 96  sub as_markup {
96                  #choices, form { float: left; }                  #choices, form { float: left; }
97          |);          |);
98    
99            return
100          qq|          qq|
         <div id="placeholder" style="width:600px;height:300px;"></div>  
101    
102                  <br><tt>$sar</tt>                  <code>$sar</code>
103    
104                    $placeholder
105    
106                  $form                  $form
107    
108                  <div id="choices"><b>Show</b></div>                  <div id="choices"><b>Show</b></div>
109    
110          | . q|          | . q|
Legend:
Removed from v.871  
changed lines
  Added in v.876
  ViewVC Help
Powered by ViewVC 1.1.26