svn commit: r1292915 - /httpd/docs-build/trunk/irc_factoids.pl

[rb...@apache.org]

Author: rbowen
Date: Thu Feb 23 19:36:17 2012
New Revision: 1292915

URL: http://svn.apache.org/viewvc?rev=1292915&view=rev
Log:
Generates IRC factoids to feed to the IRC bot. 

Added:
    httpd/docs-build/trunk/irc_factoids.pl   (with props)

Added: httpd/docs-build/trunk/irc_factoids.pl
URL: http://svn.apache.org/viewvc/httpd/docs-build/trunk/irc_factoids.pl?rev=1292915&view=auto
==============================================================================
--- httpd/docs-build/trunk/irc_factoids.pl (added)
+++ httpd/docs-build/trunk/irc_factoids.pl Thu Feb 23 19:36:17 2012
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+use XML::Simple;
+use Getopt::Std;
+use Data::Dumper;
+use strict;
+
+our ( $opt_m, $opt_v );
+our $VERSION = '0.01';
+
+getopts("m:v:");
+HELP_MESSAGE('The -m option is required.') unless $opt_m;
+
+$opt_m =~ s/\.xml$//;
+HELP_MESSAGE('File '. $opt_m . '.xml not found.') unless -f $opt_m . '.xml';
+
+my $file = $opt_m . '.xml';
+my $v = $opt_v ? $opt_v : 'current';
+
+my $xs = XML::Simple->new();
+my $xml = $xs->XMLin( $file );
+
+my @directives;
+foreach my $directive ( sort( keys %{ $xml->{directivesynopsis} } ) ) {
+    print $directive . "\n";
+    print 'http://httpd.apache.org/docs/' . $v . '/mod/' . $opt_m .  '.html#' . lc( $directive ) .  "\n";
+
+    my $d = $xml->{directivesynopsis}->{$directive};
+
+    my $desc = $d->{description}; $desc =~ s/[\r\n]/ /gs;
+    print $desc . "\n";
+    print 'Default: ' . $d->{default} . "\n";
+    print 'Override: ' . $d->{override} . "\n";
+    print 'Context: ' . ( join ', ', @{ $d->{contextlist}->{context} } ) . "\n";
+    print "\n\n";
+
+}
+print "\n";
+
+sub HELP_MESSAGE {
+    print shift;
+    print STDERR qq~
+
+Usage: 
+
+cd manual/mod
+../../review_translations.pl -m mod_rewrite
+
+Outputs IRC factoids for the directives in this module, which can then
+be fed to the IRC bot.
+
+-m mod_foo - Run for mod_foo.
+
+-v version - Generate URLs for this version. Defaults to "current"
+
+~;
+
+    exit();
+}
+
+

Propchange: httpd/docs-build/trunk/irc_factoids.pl
------------------------------------------------------------------------------
    svn:executable = *