Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tag: mowyw-0.6.1
Fetching contributors…

Cannot retrieve contributors at this time

executable file 58 lines (47 sloc) 1.926 kb
#!/usr/bin/perl
# mowyw - mowyw writes your websites - Copyright (C) 2006 Moritz Lenz
# For documentation please see the README file
# <moritz@faui2k3.org>
# Snail Mail address:
# Moritz Lenz
# Killingerstr. 92
# 91056 Erlangen
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the Artistic License 2 as published by The Perl
# Foundation.
#
# 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.
use warnings;
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
require 5.008001;
use Mowyw qw(get_config process_file process_dir parse_all_in_dir);
use Getopt::Long;
$Mowyw::config{make_behaviour} = undef;
my $result = GetOptions(
"make" => \$Mowyw::config{make_behaviour},
"postfix=s" => \$Mowyw::config{default}{postfix},
"includes-prefix=s" => \$Mowyw::config{default}{include},
"menu-prefix=s" => \$Mowyw::config{default}{menu},
"destination-prefix=s" => \$Mowyw::config{default}{online},
"source-prefix=s" => \$Mowyw::config{default}{source},
"encoding=s" => \$Mowyw::config{encoding},
"quiet" => \$Mowyw::config{quiet},
);
($Mowyw::config{per_fn}, $Mowyw::config{file_filter}) = get_config();
#use Data::Dumper;
#print Dumper $Mowyw::config{file_filter};
parse_all_in_dir($Mowyw::config{default}{source});
__END__
=head1 NAME
mowyw - macro processor (or offline CMS) for creating static HTML pages
=head1 DESCRIPTION
For more documentation please refer to the manual page in this distribution,
either in HTML (mowyw.1.html) or in asciidoc format (mowyw.1.txt).
=cut
# vim: sw=4 ts=4 expandtab
Jump to Line
Something went wrong with that request. Please try again.