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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/perl -w
#
# Program Summary:
#
# Name: install.pl
# Description: installs dailystrips
# Author: Andrew Medico <amedico@amedico.dhs.org>
# Created: 13 Jul 2001, 11:34 EST
# Last Modified: 29 May 2003, 21:15 EDT
# Current Revision: 1.0.5
#
# Set up
use strict;
# Misc vars
my (%options, $prog_version);
$prog_version = "1.0.28";
# Not for Win32
if ($^O =~ /Win32/ ) {
die "install.pl is not for use on Win32 systems. Please see INSTALL file.\n";
}
# Editable paths
$options{'sharedir'} = "/usr/share/dailystrips";
$options{'docdir'} = "/usr/share/doc/dailystrips-$prog_version";
$options{'scriptdir'} = "/usr/bin";
# Help overrides anything else
for (@ARGV) {
if (/^(--help|-h)$/) {
print <<END_HELP;
Usage: $0 [OPTION]
This program installs dailystrips. Options are as follows:
Options:
-q --quiet turn off progress messages
--verbose turn on extra progress information, overrides -q
--sharedir=DIR install shared files to DIR instead of
/usr/share/dailystrips/
--scriptdir=DIR install scripts to DIR instead of /usr/bin/
--docdir=DIR install documentation to DIR/dailystrips-$prog_version
instead of /usr/share/doc/dailystrips-$prog_version
Bugs and comments to amedico\@amedico.dhs.org
END_HELP
exit;
}
}
# Parse options
for (@ARGV)
{
if (/^--sharedir=(.+)$/)
{
$options{'sharedir'} = $1;
}
elsif (/^--scriptdir=(.+)$/)
{
$options{'scriptdir'} = $1;
}
elsif (/^--docdir=(.+)$/)
{
$options{'docdir'} = "$1/dailystrips-$prog_version";
}
elsif (/^(--quiet|-q)$/)
{
$options{'quiet'} = 1;
}
elsif (/^--verbose$/)
{
$options{'verbose'} = 1;
}
else {
die "Unknown option: $_\n";
}
}
# verbose overrides quiet
if ($options{'verbose'} and $options{'quiet'}) {undef $options{'quiet'}}
# Install:
# defs:
if ($options{'verbose'}) { warn "Installing definitions files to directory $options{'sharedir'}\n" }
if (system("install -d $options{'sharedir'}")) {
die "Error creating install directory. See above for reason.\n";
}
if (system("install strips.def archive.def $options{'sharedir'}/")) {
die "Error installing definition files. See above for reason.\n";
}
# docs:
if ($options{'verbose'}) { warn "Installing docs to directory $options{'docdir'}\n" }
if (system("install -d $options{'docdir'}")) {
die "Error creating documentation directory. See above for reason.\n";
}
if (system("install BUGS CHANGELOG CONTRIBUTORS COPYING INSTALL README README.DEFS README.LOCAL TODO $options{'docdir'}")) {
die "Error installing documentation files. See above for reason.\n";
}
# scripts:
if ($options{'verbose'}) { warn "Installing scripts to directory $options{'scriptdir'}\n" }
if (system("install -d $options{'scriptdir'}")) {
die "Error creating scripts directory. See above for reason.\n";
}
if (system("install dailystrips dailystrips-clean dailystrips-update $options{'scriptdir'}")) {
die "Error installing script. See above for reason.\n";
}
unless ($options{'quiet'}) {warn "dailystrips $prog_version installed successfully.\n" }
|
