/[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 224 by dpavlin, Mon Nov 23 19:13:33 2009 UTC revision 227 by dpavlin, Mon Nov 23 20:45:02 2009 UTC
# Line 32  sub send_out { Line 32  sub send_out {
32                          ;                          ;
33          }          }
34    
35          if ( $key =~ m{^date,} ) {          $data->{path} = "/tmp/sack.out.$key.txt";
36                  $data->{path} = "/tmp/sack.out.$key.txt";          open( my $fh, '>', $data->{path} );
37                  open( $data->{fh}, '>', $data->{path} );          print $fh "## out key=$key\n";
                 print {$data->{fh}} "## out key=$key\n";  
         }  
38    
39          my $sort  = $param->{sort}  || 'k';          my $sort  = $param->{sort}  || 'k';
40          my $order = $param->{order} || 'd';          my $order = $param->{order} || 'd';
# Line 70  sub send_out { Line 68  sub send_out {
68                  print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;                  print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;
69    
70                  if ( $data ) {                  if ( $data ) {
71                          print {$data->{fh}} "$name $v\n";                          print $fh "$name $v\n";
72                          update_min_max 'key' => $name;                          update_min_max 'key' => $name;
73                          update_min_max 'val' => $v;                          update_min_max 'val' => $v;
74                  }                  }
# Line 80  sub send_out { Line 78  sub send_out {
78          if ( $data ) {          if ( $data ) {
79                  foreach my $k ( keys %$stat ) {                  foreach my $k ( keys %$stat ) {
80                          foreach my $sk ( keys %{ $stat->{$k} } ) {                          foreach my $sk ( keys %{ $stat->{$k} } ) {
81                                  print {$data->{fh}} "# $k.$sk=", $stat->{$k}->{$sk}, "\n";                                  print $fh "# $k.$sk=", $stat->{$k}->{$sk}, "\n";
82                          }                          }
83                  }                  }
84                  close($data->{fh});                  close($data->{fh});
Legend:
Removed from v.224  
changed lines
  Added in v.227
  ViewVC Help
Powered by ViewVC 1.1.26