[Sitesampler-submitinfo] sitesampler/support statd.pl,1.1.1.1,1.2

[Shane H. <sha...@us...>]

Update of /cvsroot/sitesampler/sitesampler/support
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6252/support

Modified Files:
	statd.pl 
Log Message:
this is a big commit related to fixing the report object

Index: statd.pl
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/support/statd.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** statd.pl	22 Jun 2005 01:38:32 -0000	1.1.1.1
--- statd.pl	18 Jul 2005 01:36:40 -0000	1.2
***************
*** 1,5 ****
  #!/usr/bin/perl -w
  use strict;
! no warnings;
  
  use FileHandle;
--- 1,5 ----
  #!/usr/bin/perl -w
  use strict;
! use warnings;
  
  use FileHandle;
***************
*** 12,45 ****
  sub main{
    my $ss = SiteSampler->new;
!   update_stats($ss);
!   # update_queries($ss);
!   # update_query_forms($ss);
  }
  
! sub update_stats{
    my($ss) = @_;
    for my $agent ($ss->core->agents){
      $agent->update_stats;
    }
  }
- 
- sub update_queries{
-   my($ss) = @_;
-   for my $report ($ss->core->reports){
-     my $log = SiteSampler::Log->new($report->query,$report->latest_log_id);
-     if($log->has_entries){
-       $report->parse_log($log);
-       $report->set_report_html;
-       $report->save;
-     }
-   }
- }
- 
- sub update_query_forms{
-   my($ss) = @_;
-   # print "updating query_forms";
-   for my $query_form ($ss->core->query_forms){
-     # print Dumper($query_form),"\n\n";
-     $query_form->refresh_html;
-   }
- }
--- 12,23 ----
  sub main{
    my $ss = SiteSampler->new;
!   update_agent_stats($ss);
  }
  
! sub update_agent_stats{
    my($ss) = @_;
    for my $agent ($ss->core->agents){
+     $agent->process_forked(1);
      $agent->update_stats;
    }
  }