/[socialtext-import]/Pod-Simple-Wiki/pod2wiki
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /Pod-Simple-Wiki/pod2wiki

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3 - (hide annotations)
Tue Nov 28 14:15:41 2006 UTC (17 years, 4 months ago) by dpavlin
File size: 3324 byte(s)
import upstream Pod-Simple-Wiki-0.05.tar.gz
1 dpavlin 3 #!/usr/bin/perl -w
2    
3     #######################################################################
4     #
5     # pod2wiki - A utility to convert Pod documents to Wiki format.
6     #
7     # reverse('©'), August 2004, John McNamara, jmcnamara@cpan.org
8     #
9     # Documentation after __END__
10     #
11    
12     use strict;
13     use Pod::Simple::Wiki;
14     use Getopt::Long;
15     use Pod::Usage;
16    
17     my $man = 0;
18     my $help = 0;
19     my $style = 'wiki';
20     my $whine = 1;
21     my $errata = 1;
22     my $complain = 0;
23    
24     GetOptions(
25     'help|?' => \$help,
26     'man' => \$man,
27     'style=s' => \$style,
28     'whine!' => \$whine,
29     'errata!' => \$errata,
30     'complain!' => \$complain,
31     ) or pod2usage(2);
32    
33     pod2usage(1) if $help;
34     pod2usage(-verbose => 2) if $man;
35    
36    
37     # From the Pod::Usage pod:
38     pod2usage() if @ARGV == 0 && -t STDIN;
39    
40    
41     my $parser = Pod::Simple::Wiki->new($style);
42     $parser->no_whining(not $whine);
43     $parser->no_errata_section(not $errata);
44     $parser->complain_stderr($complain);
45    
46     if (defined $ARGV[0]) {
47     open IN, $ARGV[0] or die "Couldn't open $ARGV[0]: $!\n";
48     } else {
49     *IN = *STDIN;
50     }
51    
52     if (defined $ARGV[1]) {
53     open OUT, ">$ARGV[1]" or die "Couldn't open $ARGV[1]: $!\n";
54     $parser->output_fh(*OUT);
55     }
56    
57    
58     $parser->parse_file(*IN);
59    
60    
61     __END__
62    
63     =head1 NAME
64    
65     pod2wiki - A utility to convert Pod documents to Wiki format.
66    
67     =head1 SYNOPSIS
68    
69     pod2wiki [--style --noerrata --help --man] podfile [outfile]
70    
71     Options:
72     --style wiki style (defaults to wiki. See --help)
73     --noerrata don't generate a "POD ERRORS" section
74     --help brief help message
75     --man full documentation
76    
77    
78     =head1 OPTIONS
79    
80     =over 4
81    
82     =item B<podfile>
83    
84     The input file that contains the Pod file to be converted. It can also be stdin.
85    
86     =item B<outfile>
87    
88     The converted output file in wiki format. Defaults to stdout if not specified.
89    
90     =item B<--style or -s>
91    
92     Sets the wiki style of the output. If no C<style> is specified the program defaults to C<wiki>. The available options are:
93    
94     =over 4
95    
96     =item wiki
97    
98     This is the original Wiki format as used on Ward Cunningham's Portland repository of Patterns. The formatting rules are given at http://c2.com/cgi/wiki?TextFormattingRules
99    
100     =item kwiki
101    
102     This is the format as used by Brian Ingerson's CGI::Kwiki: http://search.cpan.org/dist/CGI-Kwiki/
103    
104     =item usemod
105    
106     This is the format used by the Usemod wikis. See: http://www.usemod.com/cgi-bin/wiki.pl?WikiFormat
107    
108     =item twiki
109    
110     This is the format used by TWiki wikis. See: http://www.twiki.org/
111    
112     =item wikipedia or mediawiki
113    
114     This is the format used by Wikipedia and MediaWiki wikis. See: http://www.wikipedia.org/
115    
116     =back
117    
118    
119     =item B<--noerrata or -noe>
120    
121     Don't generate a "POD ERRORS" section at the end of the document. Equivalent to the C<Pod::Simple::no_errata_section()> method.
122    
123    
124     =item B<--help or -h>
125    
126     Print a brief help message and exits.
127    
128    
129     =item B<--man or -m>
130    
131     Prints the manual page and exits.
132    
133    
134     =back
135    
136     =head1 DESCRIPTION
137    
138     This program is used for converting Pod text to Wiki text.
139    
140     Pod is Perl's I<Plain Old Documentation> format. See C<man perlpod> or C<perldoc perlpod>.
141    
142     A Wiki is a user extensible web site. It uses very simple mark-up that is converted to Html.
143    
144     For an introduction to Wikis see: http://c2.com/cgi/wiki?WikiGettingStartedFaq and http://c2.com/cgi/wiki?WikiWikiWebFaq
145    
146     =cut

  ViewVC Help
Powered by ViewVC 1.1.26