/[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 873 by dpavlin, Wed Dec 17 18:15:17 2008 UTC revision 907 by dpavlin, Fri Dec 26 01:32:09 2008 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    
# Line 30  sub as_markup { Line 31  sub as_markup {
31                  <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>                  <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>
32          |);          |);
33    
         $self->add_css("$path/layout.css");  
   
34          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;
35          #warn $self->dump( $sponge );          #warn $self->dump( $sponge );
36    
# Line 62  sub as_markup { Line 61  sub as_markup {
61          my $data_js = '';          my $data_js = '';
62          if ( $dataset ) {          if ( $dataset ) {
63                  $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";                  $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";
64                  $placeholder = qq|<div id="placeholder" style="width:600px;height:300px;"></div>|;                  $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;          warn "# $data_js" if $self->debug;
73    
74          my $sar = $self->sar_command;          my $sar = $self->sar_command;
75          my $c = $sar;          my $c = $sar;
76          $c =~ s{(-n\s*\d+).*}{$1};          $c =~ s{sar\s(-n\s*\d+)?(.*?)$}{sar $1};
77    
78          my $form = qq|          my $form = qq|
79                  <form method="post">                  <form method="post">
# Line 86  sub as_markup { Line 90  sub as_markup {
90                  warn "# $flag | $desc";                  warn "# $flag | $desc";
91                  my $v = "$c $flag";                  my $v = "$c $flag";
92                  my $checked = '';                  my $checked = '';
93                  $checked = " checked" if $v eq $self->sar_command;                  $checked = " checked" if $self->sar_command =~ m{$flag};
94                  $form .= qq|<input type="radio" name="sar_command" value="$v"$checked>$desc<br>\n|;                  $form .= qq|<input type="radio" name="sar_command" value="$v"$checked>$desc<br>\n|;
95          }          }
96    
# Line 101  sub as_markup { Line 105  sub as_markup {
105          return          return
106          qq|          qq|
107    
108                  $placeholder                  <code>$sar</code>
109    
110                  <br><tt>$sar</tt>                  $placeholder
111    
112                  $form                  $form
113    
Legend:
Removed from v.873  
changed lines
  Added in v.907
  ViewVC Help
Powered by ViewVC 1.1.26