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();
}
|
