html2wiki

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # html2wiki
   5 # File ID: 236cf176-5d3d-11df-a10d-90e6ba3022ac
   6 # Konverterer HTML til MediaWiki-dialekt.
   7 #
   8 # Character set: UTF-8
   9 # ©opyleft 2004– Øyvind A. Holm <sunny@sunbase.org>
  10 # License: GNU General Public License, see end of file for legal stuff.
  11 #=======================================================================
  12
  13 use strict;
  14 use warnings;
  15 use Getopt::Std;
  16 use HTML::WikiConverter;
  17
  18 $| = 1;
  19
  20 our ($opt_h) =
  21     (     0);
  22 getopts('h') || die("Option error. Use -h for help.\n");
  23
  24 my $VERSION = "0.0";
  25
  26 our $progname = $0;
  27 $progname =~ s#^.*/(.*?)$#$1#;
  28
  29 $opt_h && usage(0);
  30
  31 my $html = join("", <>);
  32 my $wc = new HTML::WikiConverter( dialect => 'MediaWiki' );
  33 print $wc->html2wiki($html);
  34
  35 sub usage {
  36     # Send the help message to stdout {{{
  37     my $Retval = shift;
  38     print(<<END);
  39
  40 $progname v$VERSION
  41
  42 Usage: $progname [options] [file [files [...]]]
  43
  44 Options:
  45
  46 -h  Show this help.
  47
  48 END
  49     exit($Retval);
  50     # }}}
  51 }
  52
  53 __END__
  54
  55 # Plain Old Documentation (POD) {{{
  56
  57 =pod
  58
  59 =head1 NAME
  60
  61
  62
  63 =head1 SYNOPSIS
  64
  65
  66
  67 =head1 DESCRIPTION
  68
  69
  70
  71 =head1 OPTIONS
  72
  73 =over 4
  74
  75 =item B<-h>
  76
  77 Print a brief help summary.
  78
  79 =back
  80
  81 =head1 BUGS
  82
  83
  84
  85 =head1 AUTHOR
  86
  87 Made by Øyvind A. Holm S<E<lt>sunny _AT_ sunbase.orgE<gt>>.
  88
  89 =head1 COPYRIGHT
  90
  91 Copyleft © Øyvind A. Holm &lt;sunny@sunbase.org&gt;
  92 This is free software; see the file F<COPYING> for legalese stuff.
  93
  94 =head1 LICENCE
  95
  96 This program is free software; you can redistribute it and/or modify it
  97 under the terms of the GNU General Public License as published by the
  98 Free Software Foundation; either version 2 of the License, or (at your
  99 option) any later version.
 100
 101 This program is distributed in the hope that it will be useful, but
 102 WITHOUT ANY WARRANTY; without even the implied warranty of
 103 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 104 See the GNU General Public License for more details.
 105
 106 You should have received a copy of the GNU General Public License along
 107 with this program; if not, write to the Free Software Foundation, Inc.,
 108 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 109
 110 =head1 SEE ALSO
 111
 112 =cut
 113
 114 # }}}
 115
 116 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :
 117 # End of file html2wiki