svn commit: r1568692 - in /perl/modperl/docs/trunk: bin/site_build src/config.cfg

[ph...@apache.org]

Author: phred
Date: Sat Feb 15 22:04:04 2014
New Revision: 1568692

URL: http://svn.apache.org/r1568692
Log:
Allow command line options for source and destination directories to bin/site_build.

Remove dist entries from the config - those are now generated on apache.org/dist/perl

This will allow us to move to the pubsub distribution approach.

Modified:
    perl/modperl/docs/trunk/bin/site_build
    perl/modperl/docs/trunk/src/config.cfg

Modified: perl/modperl/docs/trunk/bin/site_build
URL: http://svn.apache.org/viewvc/perl/modperl/docs/trunk/bin/site_build?rev=1568692&r1=1568691&r2=1568692&view=diff
==============================================================================
--- perl/modperl/docs/trunk/bin/site_build (original)
+++ perl/modperl/docs/trunk/bin/site_build Sat Feb 15 22:04:04 2014
@@ -1,4 +1,14 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+=head1 NAME
+
+ site_build - builds the mod_perl docs
+
+=head1 SYNOPSIS
+
+ perl bin/site_build --src=/path/to/docs_src --dst=/path/to/pubsub
+
+=cut
 
 #
 # this script does different things depending on how it was named (or
@@ -13,10 +23,27 @@
 # by default it only updates the changed files
 
 use strict;
+use warnings;
+
+use Getopt::Long;
+use Pod::Usage;
+
+# Config options
+my $string = 0;
+my ($src, $dst, $help, $man);
+
+pod2usage(1) unless @ARGV;
+GetOptions(
+    'src=s' => \$src,
+    'dst=s' => \$dst,
+    'help'       => \$help,
+'man'       => \$man,
+) or pod2usage(2);
+
+pod2usage(1) if $help;
+pod2usage( -verbose => 2) if $man;
 
-my $src = "/home/perlwww/apache.org/modperl-docs";
 my $rel = "$src/dst_html";
-my $dst = "/www/perl.apache.org";
 
 my %fs = (
     'minotaur.apache.org' => '/x1',
@@ -24,9 +51,6 @@ my %fs = (
 
 umask 0002;
 
-my $HOME = $ENV{HOME};
-$ENV{PATH} = "/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/bin:/usr/X11R6/bin:$HOME/bin";
-
 chdir $src;
 # Do different things depending on our name
 my ($name) = $0 =~ m|([^/]+)$|;

Modified: perl/modperl/docs/trunk/src/config.cfg
URL: http://svn.apache.org/viewvc/perl/modperl/docs/trunk/src/config.cfg?rev=1568692&r1=1568691&r2=1568692&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/config.cfg (original)
+++ perl/modperl/docs/trunk/src/config.cfg Sat Feb 15 22:04:04 2014
@@ -66,13 +66,6 @@ use vars qw(@c);
         search/apache.org-setup.pl
         search/checkboxes.storable
         search/search_options
-
-        dist/.htaccess
-        dist/KEYS
-        dist/HEADER.html
-        dist/win32-bin/.htaccess
-        dist/win32-bin/README.html
-        dist/win32-bin/HEADER.html
     )],
 
     copy_skip => [



---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org