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
