use strict;
use Getopt::Std;
use File::Find;
use File::Path;
use File::Copy;
use File::Spec;
use Cwd;
my $PROGRAM = 'tt2inst';
my @INSTDIRS = qw( docs examples images templates );
my $args = { };
getopts('vh', $args);
usage() if $args->{ h };
my $verbose = $args->{ v };
my $tt2inst = shift || usage();
my $tt2dist = getcwd;
die <<EOF unless -d "$tt2dist/$INSTDIRS[0]";
This script should be run from the Template Toolkit distribution directory.
EOF
print STDERR <<EOF if $verbose;
Installing optional components into $tt2inst
EOF
foreach my $dir (@INSTDIRS) {
print STDERR " + $dir\n"
if $verbose;
find(\&install_file, $dir);
}
sub install_file {
my $f = $File::Find::name;
return if $f =~ /\bCVS\b/ || m[^docs/html/(?!README)];
if (-d) {
my $dir = File::Spec->catfile($tt2inst, $f);
mkpath($dir) unless -d $dir;
return;
}
my $dest = File::Spec->catfile($tt2inst, $f);
copy($_, $dest) || die "$dest: $!\n";
}
sub usage {
print STDERR <<EOF;
$PROGRAM: installation script for optional Template Toolkit components.
usage: $PROGRAM [ -v | -h ] /path/to/installation/root
-v verbose mode
-h this help
EOF
exit();
}