Mailing List Archive

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