/[Sack]/trunk/lib/Sack/Server/HTML.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/Sack/Server/HTML.pm

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

revision 222 by dpavlin, Sun Nov 22 20:48:08 2009 UTC revision 223 by dpavlin, Mon Nov 23 14:39:40 2009 UTC
# Line 3  package Sack::Server::HTML; Line 3  package Sack::Server::HTML;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use lib '/srv/Sack/lib';  #use lib '/srv/Sack/lib';
 use Sack::Server::Gnuplot;  
7    
8  sub send_out {  sub send_out {
9          my ( $send, $out, $key, $param ) = @_;          my ( $send, $out, $key, $param ) = @_;
10    
11          my ( @x, @y );          my $data;
12    
13            if ( $key =~ m{^date,} ) {
14                    $data->{path} = "/tmp/out.$key.txt";
15                    open( $data->{fh}, '>', $data->{path} );
16                    print {$data->{fh}} "# $key\n";
17            }
18    
19          my $sort  = $param->{sort}  || 'k';          my $sort  = $param->{sort}  || 'k';
20          my $order = $param->{order} || 'd';          my $order = $param->{order} || 'd';
# Line 42  sub send_out { Line 47  sub send_out {
47                  my $v = $out->{$key}->{$name};                  my $v = $out->{$key}->{$name};
48                  print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;                  print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;
49    
50                  if ( $key =~ m/^date/ ) {                  print {$data->{fh}} "$name $v\n" if $data;
51                          push @x, $name;  
                         push @y, $v;  
                 }  
52          }          }
         print $send qq|</table>|;  
53    
54          Sack::Server::Gnuplot::date( \@x, \@y, "/tmp/$key.png" ) if @x;          if ( $data ) {
55                    close($data->{fh});
56                    warn "data $data->{path} ", -s $data->{path}, " bytes\n";
57            }
58    
59            print $send qq|</table>|; # return true
60    
61  }  }
62    
63  1;  1;
Legend:
Removed from v.222  
changed lines
  Added in v.223
  ViewVC Help
Powered by ViewVC 1.1.26