Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 79 lines (62 sloc) 1.91 KB
#!/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();
}
Something went wrong with that request. Please try again.