Menu
▾
▴
[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository cvs.pm,1.20,1.21
|
From: Rob H. <for...@us...> - 2002-06-19 06:44:43
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory usw-pr-cvs1:/tmp/cvs-serv20649/lib/SandWeb/Repository
Modified Files:
cvs.pm
Log Message:
added lots o' debugging statements :)
Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- cvs.pm 19 Jun 2002 06:30:36 -0000 1.20
+++ cvs.pm 19 Jun 2002 06:44:41 -0000 1.21
@@ -67,4 +67,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $type = $params{'type'};
@@ -80,4 +81,7 @@
if ($message) { push @param, " -m $message" };
+ $log->debug("Performing add operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -105,4 +109,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $type = $params{'type'};
@@ -132,4 +137,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $date = $params{'type'};
@@ -144,4 +150,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing annotate operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -168,4 +177,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $rev = $params{'rev'};
@@ -179,4 +189,7 @@
if ($date) { push @param, " $date" };
+ $log->debug("Performing checkout operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -204,4 +217,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -223,4 +237,7 @@
} else {
push @param, " -m \"$message\"";
+ $log->debug("Performing commit operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
$output = $self->shell(
'param' => join('', @param),
@@ -249,4 +266,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $date = $params{'date'};
@@ -267,4 +285,7 @@
print "cd \"$sandbox\" && cvs -d $root @param \"$file\" 2>&1";
+ $log->debug("Performing diff operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $raw_output = $self->shell(
'param' => join('', @param),
@@ -297,4 +318,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -307,4 +329,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing edit operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -331,4 +356,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -339,4 +365,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing editors operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -363,4 +392,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $file = $params{'file'};
@@ -368,4 +398,7 @@
my @param = 'history';
+ $log->debug("Performing history operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -392,4 +425,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $file = $params{'file'};
@@ -397,4 +431,7 @@
my @param = 'init';
+ $log->debug("Performing init operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -428,4 +465,6 @@
$log->debug("Performing log operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -452,4 +491,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $password = $params{'password'};
@@ -464,4 +504,7 @@
}
+ $log->debug("Performing login operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -489,4 +532,8 @@
my @param = 'logout';
+ my $log = $self->get_log();
+ $log->debug("Performing logout operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -513,4 +560,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $delete = $params{'delete'};
@@ -521,4 +569,7 @@
if ($delete) { push @param, " -f" };
+ $log->debug("Performing release operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -545,4 +596,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $remove = $params{'remove'};
@@ -556,4 +608,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing remove operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -580,4 +635,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
@@ -591,4 +647,7 @@
if ($verbose) { push @param, " -v" };
+ $log->debug("Performing status operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -615,4 +674,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -633,4 +693,7 @@
if ($name) { push @param, " $name" };
+ $log->debug("Performing tag operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -657,4 +720,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -665,4 +729,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing unedit operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -689,4 +756,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -712,4 +780,7 @@
my @output_lines = ();
+ $log->debug("Performing update operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $raw_output = $self->shell(
'param' => join('', @param),
@@ -764,4 +835,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $set = $params{'set'};
@@ -776,4 +848,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing watch operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
@@ -800,4 +875,5 @@
my %args = @_;
+ my $log = $self->get_log();
my %params = @{ $args{'params'}[0] };
my $recurse = $params{'recurse'};
@@ -808,4 +884,7 @@
if ($recurse) { push @param, " -R" };
+ $log->debug("Performing watchers operation");
+ $log->debug("Params: @param");
+ $log->debug("File: $file");
my $output = $self->shell(
'param' => join('', @param),
|
