#!/usr/bin/perl
use common::sense;
use Getopt::Long;
use Pod::Usage;
use WWW::Scraper::Typo3;
# ------------------------------------------------
my($option_parser) = Getopt::Long::Parser -> new();
my(%option);
if ($option_parser -> getoptions
(
\%option,
'dir=s',
'help',
'verbose=i',
) )
{
pod2usage(1) if ($option{'help'});
exit WWW::Scraper::Typo3 -> new(%option) -> rename_files;
}
else
{
pod2usage(2);
}
__END__
=pod
=head1 NAME
rename.files.pl - Rename Typo3-based web site files.
=head1 SYNOPSIS
rename.files.pl [options]
Options:
-dir aDirName
-help
-verbose #
All switches can be reduced to a single letter.
Exit value: 0 (no error) or 1 (error).
Sample code:
use WWW::Scraper::Typo3;
WWW::Scraper::Typo3 -> new
(
dir => '/dev/shm/homepage/a_project/',
verbose => 1,
) -> rename_files;
=head1 OPTIONS
=over 4
=item -dir aDirName
The directory to work in.
The default value is ''.
This parameter is mandatory.
=item -help
Print help and exit.
=item -verbose #
Display more or less output.
This parameter is optional.
=back
=head1 DESCRIPTION
rename.files.pl - Rename Typo3-based web site files.
=cut