Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv20430/lib/SandWeb
Modified Files:
Repository.pm
Log Message:
hmm, "watchers" wasn't implemented. odd, it used to be there.
Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -U2 -r1.21 -r1.22
--- Repository.pm 19 Feb 2002 09:09:13 -0000 1.21
+++ Repository.pm 20 Feb 2002 04:49:49 -0000 1.22
@@ -566,4 +566,30 @@
}
+sub watchers {
+ my $self = shift;
+ my %args = @_;
+
+ my $recurse = $args{'recurse'};
+ my $set = $args{'set'};
+ my $notify = $args{'notify'};
+ my $file = $args{'file'};
+ my $repo_type = $self->get_repo_type();
+ my $root = $self->get_root();
+ my $sandbox = $self->get_sandbox();
+ my %return = {};
+ my $vcs = SandWeb::Repository::CVS->new(root => $root,
+ sandbox => $sandbox);
+
+ if ($repo_type eq 'CVS') {
+ %return = $vcs->watchers(recurse => $recurse,
+ date => $date,
+ set => $set,
+ notify => $notify,
+ file => $file );
+ }
+
+ return %return;
+}
+
sub get_repo_type {
my $self = shift;
|