src/Utilities/CVSmodule.pm

# CVS wrapper
# -----------
# Configure the CVSmodule object to access a CVS repository and then
# invokecvs() commands as required.
#
# Interface
# ---------
# new()          : A new cvs modules
# set_base(base) : Set a base from which to read (i.e server name/path)
# set_auth(type) : Set authentication method e.g pserver, kserver, ext etc.
# set_user(username) : set a username for authentication if required
# set_passbase(file) : Override the default CVS_PASSFILE for pserver client
# set_passkey(encrypted) : For pserver method - set a password 
#                          (encrypted)
# invokecvs(@cmds)  : invoke a cvs command supplied in @cmds
# repository            : return a string to indicate the repository
#

package Utilities::CVSmodule;
require Exporter;
use Utilities::AddDir;
require 5.004;
@ISA= qw(Exporter);

sub new {
        my $class=shift;
        my $self={};
        bless $self, $class;
        $self->{myenv}={};
        $self->{cvs}='cvs';
        # Reset All variables
        $self->{auth}="";
        $self->{passkey}="";
        $self->{user}="";
        $self->{base}="";
        $self->set_passbase("/tmp/".$>."CVSmodule/.cvspass");
        return $self;
}

sub set_passbase {
        my $self=shift;
        my $file=shift;

        my $dir;
        ($dir=$file)=~s/(.*)\/.*/$1/;
        AddDir::adddir($dir);
        $self->{passbase}=$file;
        $self->env("CVS_PASSFILE", $file);
}

sub set_passkey {
        use Utilities::SCRAMUtils;
        $self=shift;
        $self->{passkey}=shift;
        my $file=$self->{passbase};
        SCRAMUtils::updatelookup($file,
                $self->{cvsroot}." ", $self->{passkey});
}

sub set_base {
        $self=shift;
        $self->{base}=shift;
        $self->_updatecvsroot();
}

sub get_base {
}

sub set_user {
        $self=shift;
        $self->{user}=shift;
        if ( $self->{user} ne "" ) {
           $self->{user}= $self->{user}.'@';
        }
        $self->_updatecvsroot();
}
sub set_auth {
        $self=shift;
        $self->{auth}=shift;
        $self->{auth}=~s/^\:*(.*)\:*/\:$1\:/;
        
        $self->_updatecvsroot();
}

sub env {
        $self=shift;
        my $name=shift;
        $self->{myenv}{$name}=shift;
}

sub invokecvs {
        $self=shift;
        @cmds=@_;
        # make sure weve got the right environment
        foreach $key ( %{$self->{myenv}} ) {
          $ENV{$key}=$self->{myenv}{$key};
        }
        # now perform the cvs command
        return ( system( "$self->{cvs}" ,"-Q", "-d", "$self->{cvsroot}", @cmds ));
}

sub _updatecvsroot {
        my $self=shift;
        $self->{cvsroot}=$self->{auth}.$self->{user}.$self->{base};
}

sub cvsroot {
        my $self=shift;
        return $self->{cvsroot};
}

sub repository {
        my $self=shift;
        return $self->{base};
}
Revision:	1.8
Committed:	Thu Jul 11 12:53:39 2002 UTC (22 years, 10 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	v102p1, V1_0_1, V1_0_0, V1_pre0, SCRAM_V1, SCRAMV1_IMPORT, V0_19_7, V0_19_6, V0_19_6p1
Branch point for:	V1_pre1, SCRAM_V1_BRANCH
Changes since 1.7:	+3 -1 lines
Log Message:	Some changes to BuidlSystem and URL handling (for local CVS repo installations
#	User	Rev	Content
1	williamc	1.2	# CVS wrapper
2			# -----------
3			# Configure the CVSmodule object to access a CVS repository and then
4			# invokecvs() commands as required.
5	williamc	1.1	#
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	williamc	1.3	# repository : return a string to indicate the repository
17	sashby	1.8	#
18
19	williamc	1.4	package Utilities::CVSmodule;
20	williamc	1.1	require Exporter;
21	williamc	1.4	use Utilities::AddDir;
22			require 5.004;
23	williamc	1.1	@ISA= qw(Exporter);
24
25			sub new {
26			my $class=shift;
27	williamc	1.4	my $self={};
28			bless $self, $class;
29	williamc	1.1	$self->{myenv}={};
30			$self->{cvs}='cvs';
31			# Reset All variables
32			$self->{auth}="";
33			$self->{passkey}="";
34			$self->{user}="";
35			$self->{base}="";
36	williamc	1.5	$self->set_passbase("/tmp/".$>."CVSmodule/.cvspass");
37	williamc	1.1	return $self;
38			}
39
40			sub set_passbase {
41			my $self=shift;
42	williamc	1.4	my $file=shift;
43	williamc	1.1
44	williamc	1.4	my $dir;
45			($dir=$file)=~s/(.)\/./$1/;
46			AddDir::adddir($dir);
47			$self->{passbase}=$file;
48			$self->env("CVS_PASSFILE", $file);
49	williamc	1.1	}
50
51			sub set_passkey {
52			use Utilities::SCRAMUtils;
53			$self=shift;
54			$self->{passkey}=shift;
55			my $file=$self->{passbase};
56			SCRAMUtils::updatelookup($file,
57			$self->{cvsroot}." ", $self->{passkey});
58			}
59
60			sub set_base {
61			$self=shift;
62			$self->{base}=shift;
63			$self->_updatecvsroot();
64			}
65
66			sub get_base {
67			}
68
69			sub set_user {
70			$self=shift;
71			$self->{user}=shift;
72			if ( $self->{user} ne "" ) {
73			$self->{user}= $self->{user}.'@';
74			}
75			$self->_updatecvsroot();
76			}
77			sub set_auth {
78			$self=shift;
79			$self->{auth}=shift;
80			$self->{auth}=~s/^\:(.)\:*/\:$1\:/;
81	sashby	1.8
82	williamc	1.1	$self->_updatecvsroot();
83			}
84
85			sub env {
86			$self=shift;
87			my $name=shift;
88			$self->{myenv}{$name}=shift;
89			}
90
91			sub invokecvs {
92			$self=shift;
93			@cmds=@_;
94	sashby	1.7	# make sure weve got the right environment
95	williamc	1.1	foreach $key ( %{$self->{myenv}} ) {
96	williamc	1.4	$ENV{$key}=$self->{myenv}{$key};
97	williamc	1.1	}
98	sashby	1.7	# now perform the cvs command
99	williamc	1.6	return ( system( "$self->{cvs}" ,"-Q", "-d", "$self->{cvsroot}", @cmds ));
100	williamc	1.1	}
101
102			sub _updatecvsroot {
103			my $self=shift;
104			$self->{cvsroot}=$self->{auth}.$self->{user}.$self->{base};
105	williamc	1.4	}
106
107			sub cvsroot {
108			my $self=shift;
109			return $self->{cvsroot};
110	williamc	1.3	}
111
112			sub repository {
113			my $self=shift;
114			return $self->{base};
115	williamc	1.1	}