root/docs/Perl6/Spec/update

#!/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;
    }
}