ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Utilities/CVSmodule.pm

Comparing COMP/SCRAM/src/Utilities/CVSmodule.pm (file contents):
Revision 1.7 by sashby, Thu Jun 13 14:46:22 2002 UTC vs.
Revision 1.9 by sashby, Wed Aug 10 17:27:32 2005 UTC

#	Line 1 | Line 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	<	# ---------
8	<	# new()          : A new cvs modules
9	<	# set_base(base) : Set a base from which to read (i.e server name/path)
10	<	# set_auth(type) : Set authentication method e.g pserver, kserver, ext etc.
11	<	# set_user(username) : set a username for authentication if required
12	<	# set_passbase(file) : Override the default CVS_PASSFILE for pserver client
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	<	#
1	>	=head1 NAME
2	>
3	>	Utilities::CVSmodule - A wrapper around CVS.
4	>
5	>	=head1 SYNOPSIS
6	>
7	>	my $obj = Utilities::CVSmodule->new();
8	>
9	>	=head1 DESCRIPTION
10	>
11	>	Configure the CVSmodule object to access a CVS repository and then
12	>	invokecvs() commands as required.
13	>
14	>	=head1 METHODS
15	>
16	>	=over
17	>
18	>	=item C<new()>
19	>
20	>	A new cvs modules object.
21	>
22	>	=item C<set_base(base)>
23	>
24	>	Set a base from which to read (i.e server name/path).
25	>
26	>	=item C<set_auth(type)>
27	>
28	>	Set authentication method e.g pserver, kserver, ext etc.
29	>
30	>	=item C<set_user(username)>
31	>
32	>	Set a username for authentication if required.
33	>
34	>	=item C<set_passbase(file)>
35	>
36	>	Override the default CVS_PASSFILE for pserver client.
37	>
38	>	=item C<set_passkey(encrypted)>
39	>
40	>	For pserver method - set a password (encrypted).
41	>
42	>	=item C<invokecvs(@cmds)>
43	>
44	>	Invoke a cvs command supplied in @cmds.
45	>
46	>	=item C<repository()>
47	>
48	>	Return a string to indicate the repository.
49	>
50	>	=cut
51	>
52	>	=back
53	>
54	>	=head1 AUTHOR
55	>
56	>	Originally written by Christopher Williams.
57	>
58	>	=head1 MAINTAINER
59	>
60	>	Shaun ASHBY L<mailTo:Shaun.Ashby@cern.ch>
61	>
62	>	=cut
63	>
64		package Utilities::CVSmodule;
65		require Exporter;
66		use Utilities::AddDir;
#	Line 77 | Line 123 | sub set_auth {
123		$self=shift;
124		$self->{auth}=shift;
125		$self->{auth}=~s/^\:*(.*)\:*/\:$1\:/;
126	+
127		$self->_updatecvsroot();
128		}
129

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines