From: Tobias Leich <tobias.leich@adckrone.com>
Date: Fri, 13 Nov 2009 20:43:17 +0000 (+0100)
Subject: added tools
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f2fff271107764d32e8cf8b54adfebaebb413e3;p=sdlgit%2FSDL-Site.git

added tools
---

diff --git a/tools/pod2xhtml.pl b/tools/pod2xhtml.pl
new file mode 100644
index 0000000..4e0edc9
--- /dev/null
+++ b/tools/pod2xhtml.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Pod::Xhtml;
+
+die "Usage: pod2xhtml filename\n" if $#ARGV < 0;
+
+my $parser       = Pod::Xhtml->new(FragmentOnly => 1);
+
+my $file_name    = $ARGV[0];
+$file_name       =~ s/(\.pm|\.pod)$/.html-inc/i;
+$parser->parse_from_file($ARGV[0], $file_name);