You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@httpd.apache.org by Magnus Bodin <ma...@bodin.org> on 1999/07/27 07:21:43 UTC

fetch-from-cvs-script revisited

On Tue, 03 Feb 1998 Doug MacEachern wrote:

> This script will fetch the latest tarball in from-cvs/ and unpack it
> in $dir I posted it a few months ago, maybe it should be made
> available somewhere on dev.apache.org?

Regarding Doug MacEacherns script at
   http://dev.apache.org/fetch-from-cvs.txt

I would propose that it is replaced with this changed version.
I now works (as the directory structure, link names etc has changed)
again. It also features easy change of version.


/magnus


-- %< --- cut here --------- %< ---------------------
#!/usr/bin/perl -w

use strict;
use URI::URL ();
use HTML::LinkExtor ();
use LWP::Simple;
use File::Path;

my $ver = '1.3';
my $dir = shift || "/tmp/apache_$ver-dev";
my $cvs = "http://dev.apache.org/from-cvs/apache-$ver/";
my $filptn = "apache-$ver\_"; 

rmtree $dir;
mkpath $dir, 0755;

chdir $dir;

my $p = HTML::LinkExtor->new(\&cb, $cvs);
my $cnt;

sub cb {
    my($tag, %links) = @_;
    return unless exists $links{href} and $links{href} =~ /$fileptn/;
    return unless ++$cnt == 4;

    my $file = URI::URL->new($links{href})->rel($cvs);
    warn "mirror $links{href} => $file\n";

    mirror $links{href} => $file;
    system "gunzip < $file | tar -xvf -";
    unlink $file;
}

$p->parse(get $cvs);

Re: [CORRECTION/PATCH] Re: fetch-from-cvs-script revisited

Posted by Chris Costello <ch...@calldei.com>.
On Wed, Jul 28, 1999, Magnus Bodin wrote:
> My point was that the one that resides on dev.apache.org DOESN'T WORK.
> THIS DO. It does exactly what dougs original script did before
> directories, links and names changed.

   I was simply suggesting one that could be put up as well as
yours.

-- 
|Chris Costello <ch...@calldei.com>
|Debugger: A tool that substitutes afterthought for forethought.
`---------------------------------------------------------------

[CORRECTION/PATCH] Re: fetch-from-cvs-script revisited

Posted by Magnus Bodin <ma...@bodin.org>.
On Tue, 27 Jul 1999, Chris Costello wrote:

> On Tue, Jul 27, 1999, Magnus Bodin wrote:
> > On Tue, 03 Feb 1998 Doug MacEachern wrote:
> > 
> > > This script will fetch the latest tarball in from-cvs/ and unpack it
> > > in $dir I posted it a few months ago, maybe it should be made
> > > available somewhere on dev.apache.org?
> > 
> > Regarding Doug MacEacherns script at
> >    http://dev.apache.org/fetch-from-cvs.txt
> > 
> > I would propose that it is replaced with this changed version.
> > I now works (as the directory structure, link names etc has changed)
> > again. It also features easy change of version.
> 
>    I've written a simpler shell script to fetch it.  Note that
> the script from dev.apache.org seems not to work properly for me
> (I'll try the new version in a minute).  I'm aware it's not
> absolutely portable due to lynx and fetch, but here's what I've
> written:
>
> [yada yada]


My point was that the one that resides on dev.apache.org DOESN'T WORK.
THIS DO. It does exactly what dougs original script did before
directories, links and names changed.

At least put this corrected one up, please. 
Someone who has taz-access, that is. 

/magnus


-- %< --- cut here --------- %< ---------------------
#!/usr/bin/perl -w
# Script by Doug MacEachern <do...@telebusiness.co.nz>
# minor fix by Magnus Bodin <ma...@bodin.org>

use strict;
use URI::URL ();
use HTML::LinkExtor ();
use LWP::Simple;
use File::Path;

my $ver = '1.3';
my $dir = shift || "/tmp/apache_$ver-dev";
my $cvs = "http://dev.apache.org/from-cvs/apache-$ver/";
my $filptn = "apache-$ver\_"; 

rmtree $dir;
mkpath $dir, 0755;

chdir $dir;

my $p = HTML::LinkExtor->new(\&cb, $cvs);
my $cnt;

sub cb {
    my($tag, %links) = @_;
    return unless exists $links{href} and $links{href} =~ /$fileptn/;
    return unless ++$cnt == 4;

    my $file = URI::URL->new($links{href})->rel($cvs);
    warn "mirror $links{href} => $file\n";

    mirror $links{href} => $file;
    system "gunzip < $file | tar -xvf -";
    unlink $file;
}

$p->parse(get $cvs);

Re: fetch-from-cvs-script revisited

Posted by Chris Costello <ch...@calldei.com>.
On Tue, Jul 27, 1999, Magnus Bodin wrote:
> On Tue, 03 Feb 1998 Doug MacEachern wrote:
> 
> > This script will fetch the latest tarball in from-cvs/ and unpack it
> > in $dir I posted it a few months ago, maybe it should be made
> > available somewhere on dev.apache.org?
> 
> Regarding Doug MacEacherns script at
>    http://dev.apache.org/fetch-from-cvs.txt
> 
> I would propose that it is replaced with this changed version.
> I now works (as the directory structure, link names etc has changed)
> again. It also features easy change of version.

   I've written a simpler shell script to fetch it.  Note that
the script from dev.apache.org seems not to work properly for me
(I'll try the new version in a minute).  I'm aware it's not
absolutely portable due to lynx and fetch, but here's what I've
written:

-------------------------------------------------------
#!/bin/sh
# a script to download the latest apache snapshot

lynx -dump http://dev.apache.org/from-cvs/apache-1.3/ |
tail -1 |
sed 's/^[ 0-9]*\. //g' |
xargs fetch
-------------------------------------------------------

-- 
|Chris Costello <ch...@calldei.com>
|Multitasking:  Screwing up several things at once...
`----------------------------------------------------

Re: Anoncvs / Read-Only cvs access

Posted by Tony Finch <do...@dotat.at>.
Ben Hyde <bh...@pobox.com> wrote:
>
>Rsync is wonderful.
>
>There is also <http://www.apache.org/websrc/cvsweb.cgi>.

Also wonderful :-)

Tony.
-- 
f.a.n.finch    dot@dotat.at    fanf@demon.net    e pluribus unix

Re: Anoncvs / Read-Only cvs access

Posted by Ben Hyde <bh...@pobox.com>.
Manoj wrote:
> Peter Andreasen wrote:
> > Is there a read-only cvs access to the newest apache source?
> 
> Not at the moment, but there is an rsync server at dev.apache.org.
> 
> rsync dev.apache.org::
> 
> to get a listing of the modules and:
> 
> rsync -avz dev.apache.org::module-name local-directory-name
> ...

Rsync is wonderful.

There is also <http://www.apache.org/websrc/cvsweb.cgi>.

 - ben

Re: Anoncvs / Read-Only cvs access

Posted by Manoj Kasichainula <ma...@raleigh.ibm.com>.
On Tue, Jul 27, 1999 at 10:05:29AM +0200, Peter Andreasen wrote:
> Is there a read-only cvs access to the newest apache source?

Not at the moment, but there is an rsync server at dev.apache.org.

rsync dev.apache.org::

to get a listing of the modules and:

rsync -avz dev.apache.org::module-name local-directory-name

to grab the sources or update them.

-- 
Manoj Kasichainula - manojk@raleigh.ibm.com
IBM, Apache Development

Anoncvs / Read-Only cvs access

Posted by Peter Andreasen <pa...@pandr.dk>.
Hello, everyone.

Is there a read-only cvs access to the newest apache source? The document
http://dev.apache.org/anoncvs.txt mentions
:pserver:anoncvs@anoncvs.apache.worldgate.com:/cvs, but it doesn't seem to
work (getting connection refused, for a couple of days now).

I know there are daily tarballs pulled from the cvs, but using those makes
it a bit harder to follow development.

Regards,

 - Peter Andreasen