/[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 223 by dpavlin, Mon Nov 23 14:39:40 2009 UTC revision 224 by dpavlin, Mon Nov 23 19:13:33 2009 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  #use lib '/srv/Sack/lib';  #use lib '/srv/Sack/lib';
7    
8    our $stat;
9    
10  sub send_out {  sub send_out {
11          my ( $send, $out, $key, $param ) = @_;          my ( $send, $out, $key, $param ) = @_;
12    
13    
14          my $data;          my $data;
15    
16            $stat = {};
17            sub update_min_max {
18                    my ( $name, $v ) = @_;
19    
20                    $stat->{$name}->{'min'} = $v
21                            if ! defined $stat->{$name}->{'min'}
22                            || $v =~ m{^\d+$}
23                            && $v < $stat->{$name}->{'min'}
24                            || $v lt $stat->{$name}->{'min'}
25                            ;
26    
27                    $stat->{$name}->{'max'} = $v
28                            if ! defined $stat->{$name}->{'max'}
29                            || $v =~ m{^\d+$}
30                            && $v > $stat->{$name}->{'max'}
31                            || $v gt $stat->{$name}->{'max'}
32                            ;
33            }
34    
35          if ( $key =~ m{^date,} ) {          if ( $key =~ m{^date,} ) {
36                  $data->{path} = "/tmp/out.$key.txt";                  $data->{path} = "/tmp/sack.out.$key.txt";
37                  open( $data->{fh}, '>', $data->{path} );                  open( $data->{fh}, '>', $data->{path} );
38                  print {$data->{fh}} "# $key\n";                  print {$data->{fh}} "## out key=$key\n";
39          }          }
40    
41          my $sort  = $param->{sort}  || 'k';          my $sort  = $param->{sort}  || 'k';
# Line 47  sub send_out { Line 69  sub send_out {
69                  my $v = $out->{$key}->{$name};                  my $v = $out->{$key}->{$name};
70                  print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;                  print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;
71    
72                  print {$data->{fh}} "$name $v\n" if $data;                  if ( $data ) {
73                            print {$data->{fh}} "$name $v\n";
74                            update_min_max 'key' => $name;
75                            update_min_max 'val' => $v;
76                    }
77    
78          }          }
79    
80          if ( $data ) {          if ( $data ) {
81                    foreach my $k ( keys %$stat ) {
82                            foreach my $sk ( keys %{ $stat->{$k} } ) {
83                                    print {$data->{fh}} "# $k.$sk=", $stat->{$k}->{$sk}, "\n";
84                            }
85                    }
86                  close($data->{fh});                  close($data->{fh});
87                  warn "data $data->{path} ", -s $data->{path}, " bytes\n";                  warn "data $data->{path} ", -s $data->{path}, " bytes\n";
88    
89          }          }
90    
91          print $send qq|</table>|; # return true          print $send qq|</table>|; # return true
Legend:
Removed from v.223  
changed lines
  Added in v.224
  ViewVC Help
Powered by ViewVC 1.1.26