[Libcvs-perl-cvs] libcvs-perl/VCS/LibCVS Repository.pm

[Alexander Taler]

CVSROOT:        /cvsroot/libcvs-perl
Module name:    libcvs-perl
Branch:         
Changes by:     Alexander Taler <address@hidden>        06/03/20 21:11:45

Modified files:
        VCS/LibCVS     : Repository.pm 

Log message:
        Add an initialize() routine, which allows the creation
        of new repositories.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/libcvs-perl/libcvs-perl/VCS/LibCVS/Repository.pm.diff?tr1=1.19&tr2=1.20&r1=text&r2=text

Patches:
Index: libcvs-perl/VCS/LibCVS/Repository.pm
diff -u libcvs-perl/VCS/LibCVS/Repository.pm:1.19 
libcvs-perl/VCS/LibCVS/Repository.pm:1.20
--- libcvs-perl/VCS/LibCVS/Repository.pm:1.19   Mon Oct 10 12:52:11 2005
+++ libcvs-perl/VCS/LibCVS/Repository.pm        Mon Mar 20 21:11:45 2006
@@ -26,7 +26,7 @@
 # Class constants
 ###############################################################################
 
-use constant REVISION => '$Header: 
/cvsroot/libcvs-perl/libcvs-perl/VCS/LibCVS/Repository.pm,v 1.19 2005/10/10 
12:52:11 dissent Exp $ ';
+use constant REVISION => '$Header: 
/cvsroot/libcvs-perl/libcvs-perl/VCS/LibCVS/Repository.pm,v 1.20 2006/03/20 
21:11:45 dissent Exp $ ';
 
 ###############################################################################
 # Class variables
@@ -134,6 +134,25 @@
 
 =head1 INSTANCE ROUTINES
 
+=head2 B<initialize()>
+
+$repo->initialize()
+
+This routine is used to create a new repository.  It calls the "cvs init"
+command, which creates the administrative files in the CVSROOT directory, or
+upgrades them to the newest structure.  See the documentation of the CVS server
+for more information.
+
+=cut
+
+sub initialize {
+  my $self = shift;
+  my $conn = VCS::LibCVS::Client::Connection->new($self->{Root});
+  my $client = VCS::LibCVS::Client->new($conn, $self->{Root}->{RootDir});
+  $client->init_repository();
+  return;
+}
+
 =head2 B<get_root()>
 
 $root = $repo->get_root()