dgaudet 98/04/17 15:05:35
Modified: . index.html Added: . fetch-from-cvs.txt Log: add doug's perl script for fetching from-cvs Revision Changes Path 1.18 +4 -0 apache-devsite/index.html Index: index.html =================================================================== RCS file: /export/home/cvs/apache-devsite/index.html,v retrieving revision 1.17 retrieving revision 1.18 diff -u -r1.17 -r1.18 --- index.html 1998/02/26 07:53:20 1.17 +++ index.html 1998/04/17 22:05:34 1.18 @@ -115,6 +115,10 @@ with <SAMP>gzip</SAMP>. Not guaranteed to do anything, especially not compile or work. </LI> + <LI>Doug MacEachern wrote <a href="fetch-from-cvs.txt">a perl script</a> + which you can use to automate fetching from the above from-cvs + location. + </LI> </UL> <P> 1.1 apache-devsite/fetch-from-cvs.txt Index: fetch-from-cvs.txt =================================================================== From [EMAIL PROTECTED] Fri Apr 17 15:07:32 1998 Date: Tue, 03 Feb 1998 09:00:23 +1300 From: Doug MacEachern <[EMAIL PROTECTED]> Organization: SITEL Telebusiness NZ, Ltd. To: new-httpd@apache.org Subject: Re: Help me? The build isn't working. Reply-To: new-httpd@apache.org 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? -Doug #!/opt/perl5/bin/perl -w use strict; use URI::URL (); use HTML::LinkExtor (); use LWP::Simple; use File::Path; my $dir = shift || "/tmp/apache_1.3-dev"; my $cvs = "http://dev.apache.org/from-cvs/"; 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} =~ /apache_/; return unless ++$cnt == 4; my $file = URI::URL->new($links{href})->rel; warn "mirror $links{href} => $file\n"; mirror $links{href} => $file; system "gunzip < $file | tar -xvf -"; unlink $file; } $p->parse(get $cvs);