1 |
< |
# |
1 |
> |
# CVS wrapper |
2 |
> |
# ----------- |
3 |
> |
# Configure the CVSmodule object to access a CVS repository and then |
4 |
> |
# invokecvs() commands as required. |
5 |
|
# |
6 |
|
# Interface |
7 |
|
# --------- |
13 |
|
# set_passkey(encrypted) : For pserver method - set a password |
14 |
|
# (encrypted) |
15 |
|
# invokecvs(@cmds) : invoke a cvs command supplied in @cmds |
16 |
+ |
# repository : return a string to indicate the repository |
17 |
|
# |
18 |
|
package CVSmodule; |
19 |
|
require 5.001; |
99 |
|
my $self=shift; |
100 |
|
$self->{cvsroot}=$self->{auth}.$self->{user}.$self->{base}; |
101 |
|
} |
102 |
+ |
|
103 |
+ |
sub repository { |
104 |
+ |
my $self=shift; |
105 |
+ |
return $self->{base}; |
106 |
+ |
} |