Re: Re: Re: CVS repository via Perl

Hi again,
I think I have the solution I needed.
Using Apache::CVS::* modules directly seems to give me exactly what I need.

See the code below that brings me the last revision of a file:

use Apache::CVS::RcsConfig();
use Apache::CVS::PlainFile();
use Apache::CVS::Directory();
use Apache::CVS::File();
use Apache::CVS::Revision();

# /tmp/remote/ is the directory of my CVS module in the repository
my $PATH = "/tmp/remote//VC_DB/utilities/pack_conf.pl";
my $RCSCONFIG = Apache::CVS::RcsConfig->new();

my $file = Apache::CVS::File->new($PATH, $RCSCONFIG);
my $LAST = $file->revision('prev');
print $LAST->content;
[download]

In addition, all of the Apache::CVS::* modules can give a nice and working direct access to the CVS repository.
The main idea is - you don't need to know how it is done !

I believe those modules should be moved from below Apache.

Have a nice day,
shushu

Comment on Re: Re: Re: CVS repository via Perl Download Code

Replies are listed 'Best First'.

Maybe a bug in Apache::CVS::Directory
by shushu (Scribe) on Nov 07, 2002 at 09:50 UTC

Can't call method "extension" on an undefined value at
        /usr/lib/perl5/site_perl/5.6.1/Apache/CVS/File.pm line 231 (#1
+)
    (F) You used the syntax of a method call, but the slot filled by t
+he
    object reference or package name contains an undefined value.  Som
+ething
    like this will reproduce the error:
[download]

    foreach my $path ( @directories ) {
        $self->push('directory',
                    Apache::CVS::Directory->new($self->path() . "/$pat
+h"));
    }
[download]

    foreach my $path ( @files ) {
        if ( $path =~ /,v$/ ) {
            $self->push('file',
                        Apache::CVS::File->new($self->path() . "/$path
+",
                                                      $self->rcs_confi
+g()));
        } else {
            $self->push('plain_file',
                        Apache::CVS::PlainFile->new($self->path() . "/
+$path"));
        }
    }
[download]

[reply]
[d/l]
[select]


Don't ask to ask, just ask
	PerlMonks