1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
|
#!/usr/bin/perl -w # -*- perl -*-
#
# tt2inst (bin/tt2inst)
#
# This script installs the optional Template Toolkit components from the
# 'docs', 'examples', 'images' and 'templates' distribution directories
# into the corresponding installation directories. The root directory
# for the installation should be specified as an argument to the
# script, e.g. 'tt2inst /usr/local/tt2'
#
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
#------------------------------------------------------------------------
# install files
#------------------------------------------------------------------------
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";
}
#------------------------------------------------------------------------
# usage
#------------------------------------------------------------------------
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();
}
|