Author: moritz Date: 2009-05-03 21:17:38 +0200 (Sun, 03 May 2009) New Revision: 26647
Removed: docs/Perl6/Spec/update docs/Perl6/Spec/update.bat Log: [docs] remove update scripts Those are now unnecessary after the syn documents moved from perl.org to the pugs repo Deleted: docs/Perl6/Spec/update =================================================================== --- docs/Perl6/Spec/update 2009-05-03 19:17:32 UTC (rev 26646) +++ docs/Perl6/Spec/update 2009-05-03 19:17:38 UTC (rev 26647) @@ -1,89 +0,0 @@ -#!/usr/bin/env perl - -exit; -use strict; -use warnings; - -use FindBin; -use File::Path; - -refresh_specs(); - -sub refresh_specs { - my $BaseURI = 'http://svn.perl.org/perl6/doc/trunk/design/syn'; - my %Spec = qw( - 01 Overview 02 Syntax 03 Operator 04 Block - 05 Rule 06 Subroutine 09 Structure 10 Package - 11 Module 12 Object 13 Overload - ); - my $naming_rule = sub { "S$_[0].pod" }; - my $logfile = "$FindBin::Bin/.spec-revision"; - refresh_specs_from_source($BaseURI, \%Spec, $naming_rule, $logfile); - - my $PugsBaseURI = 'http://svn.pugscode.org/pugs/docs/Perl6/Spec'; - my %SpecInPugs = qw( - 17 Concurrency 22 CPAN 26 Documentation 29 Functions - ); - $naming_rule = sub { "$SpecInPugs{$_[0]}.pod" }; - $logfile = "$FindBin::Bin/.pugs-spec-revision"; - refresh_specs_from_source($PugsBaseURI, \%SpecInPugs, $naming_rule, - $logfile); -} - -sub refresh_specs_from_source { - my ($BaseURI, $Spec, $naming_rule, $logfile) = @_; - my %Spec = %$Spec; - - # okay, we are at author side - refresh Synopses - if (!eval { require LWP; require LWP::Simple; 1 }) { - warn "LWP or LWP::Simple not installed: $...@\n"; - return; - } - - our $ua; - LWP::Simple->import('$ua'); - - local $| = 1; - print "==> Refreshing specs from $BaseURI...\n"; - $ua->timeout(10); - - my $request = HTTP::Request->new(HEAD => $BaseURI); - my $response = $ua->request($request); - - $response->is_success or return; - - $ua->timeout(60); - - my $etags = $response->header('ETag') or return; - ($etags =~ /(\d+)/) or return; - - my $remote_revision = $1; - my $local_revision = -1; - - if ( defined($logfile) and open(my $in, $logfile) ) { - chomp($local_revision = <$in>); - close $in; - } - - if ($local_revision == $remote_revision) { - print "==> No changes at $BaseURI.\n"; - return; - } - - print "==> Synchronizing to revision $remote_revision of $BaseURI:\n"; - - for my $num (sort keys %Spec) { - my $file = $Spec{$num}; - print " $num --> Spec/$file\n"; - my $remote_file = $naming_rule->($num); - LWP::Simple::mirror( - "$BaseURI/$remote_file" => "$FindBin::Bin/$file.pod" - ); - } - - if(defined($logfile)) { - open my $out, "> $logfile" or return; - print $out $remote_revision, "\n"; - close $out; - } -} Deleted: docs/Perl6/Spec/update.bat =================================================================== --- docs/Perl6/Spec/update.bat 2009-05-03 19:17:32 UTC (rev 26646) +++ docs/Perl6/Spec/update.bat 2009-05-03 19:17:38 UTC (rev 26647) @@ -1,4 +0,0 @@ -...@echo off - -perl update -pause