[Sitesampler-submitinfo] sitesampler/SiteSampler AddProject.pm,1.2,1.3 Agent.pm,1.8,1.9 Data.pm,1.2,1.3 Object.pm,1.1.1.1,1.2 RemoveProjects.pm,1.1.1.1,1.2

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

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

Modified Files:
	AddProject.pm Agent.pm Data.pm Object.pm RemoveProjects.pm 
Log Message:
committing what is very close to another rendition of the web stats report

Index: RemoveProjects.pm
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/SiteSampler/RemoveProjects.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** RemoveProjects.pm	22 Jun 2005 01:38:22 -0000	1.1.1.1
--- RemoveProjects.pm	31 Aug 2005 01:59:43 -0000	1.2
***************
*** 31,34 ****
--- 31,37 ----
    my @rem_projs;
    for my $projectid ($cgi->param){
+     $projectid =~ s/^\s*//;
+     $projectid =~ s/\s*$//;
+     next unless $projectid;
      my $project = SiteSampler::Project->new($projectid);
      push(@rem_projs,$project->name);
***************
*** 45,48 ****
--- 48,52 ----
    my($project) = @_;
    my $agent_objs = $project->agent_objs;
+ 
    for my $agentid (keys %$agent_objs){
      my $agent = $agent_objs->{$agentid};

Index: Agent.pm
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/SiteSampler/Agent.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Agent.pm	22 Jul 2005 03:42:16 -0000	1.8
--- Agent.pm	31 Aug 2005 01:59:43 -0000	1.9
***************
*** 423,427 ****
      # this copies the data that is the perl script
      # that produces the javascript that is the agent
!     # which collects stats
      # therefore if the perl representation of
      # the agent is large we could end up using a lot memory
--- 423,428 ----
      # this copies the data that is the perl script
      # that produces the javascript that is the agent
!     # which collects stats.
!     #
      # therefore if the perl representation of
      # the agent is large we could end up using a lot memory

Index: Data.pm
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/SiteSampler/Data.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Data.pm	31 Jul 2005 02:44:13 -0000	1.2
--- Data.pm	31 Aug 2005 01:59:43 -0000	1.3
***************
*** 287,292 ****
--- 287,295 ----
    my $objectClass = shift;
    my $tableName = $self->_getTableName($objectClass);
+   $self->debug("getting the db_object<hr>");
    my $dbObject = $self->db;
+   $self->debug("got the db_object<hr>");
    my $res = $dbObject->objectExists($objectName,$tableName);
+   $self->debug("$res<hr>");
    return($res);
  }

Index: Object.pm
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/SiteSampler/Object.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Object.pm	22 Jun 2005 01:38:22 -0000	1.1.1.1
--- Object.pm	31 Aug 2005 01:59:43 -0000	1.2
***************
*** 13,16 ****
--- 13,31 ----
  }
  
+ sub debug{
+   return(undef);
+   my $self = shift;
+   my $debug_header_printed = ref($self);
+   $debug_header_printed .= '::debug_header';
+   no strict;
+   unless($$debug_header_printed){
+     $$debug_header_printed = 1;
+     use strict;
+     print $self->cgi->header;
+   }
+   use strict;
+   print "@_";
+ }
+ 
  sub init{
    my $self = shift;

Index: AddProject.pm
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/SiteSampler/AddProject.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** AddProject.pm	31 Jul 2005 02:44:13 -0000	1.2
--- AddProject.pm	31 Aug 2005 01:59:43 -0000	1.3
***************
*** 32,35 ****
--- 32,36 ----
    my $account = $self->account;
    my $project_added;
+ 
    if($self->data->objectExists($projectname,'SiteSampler::Project')){
      # if an account with the same name exists, throw an error