From: Rob H. <for...@us...> - 2002-06-19 06:30:39
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository In directory usw-pr-cvs1:/tmp/cvs-serv15477/lib/SandWeb/Repository Modified Files: cvs.pm Log Message: ok, the log object reference is being passed correctly down this path - Repository -> cvs -> Shell Added some very important debugging to the Shell class, going to add alot more Index: cvs.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v retrieving revision 1.19 retrieving revision 1.20 diff -U2 -r1.19 -r1.20 --- cvs.pm 19 Jun 2002 05:38:57 -0000 1.19 +++ cvs.pm 19 Jun 2002 06:30:36 -0000 1.20 @@ -43,4 +43,5 @@ my $system_username = $args{'system_username'} || ''; my $system_password = $args{'system_password'} || ''; + my $log = $args{'log_obj'} || ''; my $self = bless { @@ -56,4 +57,5 @@ 'system_username' => $system_username, 'system_password' => $system_password, + 'log' => $log, }, $class; @@ -419,4 +421,5 @@ my %args = @_; + my $log = $self->get_log(); my %params = @{ $args{'params'}[0] }; my $file = $params{'file'}; @@ -424,4 +427,5 @@ my @param = 'log'; + $log->debug("Performing log operation"); my $output = $self->shell( 'param' => join('', @param), @@ -839,4 +843,5 @@ my $system_username = $self->get_system_username() || ''; my $system_password = $self->get_system_password() || ''; + my $log = $self->get_log() || ''; my $vcs = ''; @@ -855,4 +860,5 @@ } + $log->debug("Creating Shell object"); my $shell = SandWeb::Shell->new( 'vcs_username' => "$vcs_username", @@ -863,4 +869,5 @@ 'system' => "$system", 'vcs' => "$vcs", + 'log_obj' => $log, ); @@ -976,4 +983,14 @@ if ($self->{'system_password'}) { return $self->{'system_password'}; + } + else { + return 0; + } +} + +sub get_log { + my $self = shift; + if ($self->{'log'}) { + return $self->{'log'}; } else { |