| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105 |
- #! /usr/bin/perl
- # Copyright (C) 2007 Alex Schroeder <alex@gnu.org>
- #
- # This program is free software; you can redistribute it and/or modify
- # it under the terms of the GNU General Public License as published by
- # the Free Software Foundation; either version 3 of the License, or
- # (at your option) any later version.
- #
- # This program is distributed in the hope that it will be useful,
- # but WITHOUT ANY WARRANTY; without even the implied warranty of
- # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- # GNU General Public License for more details.
- #
- # You should have received a copy of the GNU General Public License
- # along with this program. If not, see <http://www.gnu.org/licenses/>.
- =head1 wiki2html
- This program converts text in markup from stdin to HTML on stdout. As
- Oddmuse has a render engine that can be extended by plugins, you need
- to pass the Oddmuse script and all its modules on the command line.
- Example:
- wiki2html ~/WebServer/CGI-Executables/current \
- ~/WebServer/Oddmuse/modules/*.pl \
- < in.txt > out.html
- =head2 Options
- =over
- =item --title
- Use this option to provide a title for the resulting HTML.
- =item --css
- Use this option to provide an URL or a filename for the CSS file.
- =item --links
- The presence of this option enables the linking of local pages. The
- presence of local pages is determined using the C<pageidx> file in the
- default data directory, ie. C</tmp/oddmuse/pageidx>.
- =back
- =cut
- package OddMuse;
- $RunCGI = 0;
- $title = "wiki2html output";
- $css = "http://www.oddmuse.org/oddmuse.css";
- use Getopt::Long;
- GetOptions("title=s" => \$title, "css=s" => \$css, "links" => \$links);
- =head2 Code
- The important part is to understand the calling convetion of
- C<ApplyRules>. The first parameter is the URL-encoded input, the
- second parameter is a boolean saying whether local links should be
- rendered, and the last one is the opening tag with which to start.
- Also note that the C<Init> call is necessary to initialize the CGI
- object.
- The code as it stands will try to read pages and config files from the
- default data directory. The easiest way to provide your own config
- file is probably to just add your config file to the list of files to
- be loaded:
- wiki2html ~/WebServer/CGI-Executables/current \
- ~/WebServer/Oddmuse/config \
- ~/WebServer/Oddmuse/modules/*.pl \
- < in.txt > out.html
- =cut
- foreach my $f (@ARGV) { do $f; }
- local $/;
- my $input = <STDIN>;
- if (not $input) {
- print STDERR "Please supply raw wiki text as input on stdin.\n";
- exit 1; # die() will print HTML...
- }
- print (qq(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"),
- qq( "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">\n),
- qq(<html>\n<head>\n),
- qq(<title>$title</title\n>),
- qq(<meta http-equiv="Content-Type" content="text/html;charset=$HttpCharset" />\n),
- qq(<link type="text/css" rel="stylesheet" href="$css" />\n),
- qq(</head><body>\n),
- qq(<div class="header"><h1>$title</h1></div>\n),
- qq(<div class="wrapper">\n),
- qq(<div class="content browse">));
- Init();
- ApplyRules(QuoteHtml($input), $links, undef, undef, 'p');
- print (qq(\n</div>\n</div>\n</body>\n</html>\n));
|
