Commit | Line | Data |
c623bd54 |
1 | #!./perl |
2 | |
3 | while (@ARGV) { |
4 | $nonono = 1 if $ARGV[0] eq '-n'; |
5 | $versiononly = 1 if $ARGV[0] eq '-v'; |
6 | shift; |
7 | } |
8 | |
352d5a3a |
9 | @scripts = ('h2ph', 'x2p/s2p', 'x2p/find2perl'); |
10 | @manpages = ('perl.man', 'h2ph.man', 'x2p/a2p.man', 'x2p/s2p.man'); |
c623bd54 |
11 | |
fe14fcc3 |
12 | $version = sprintf("%5.3f", $]); |
13 | $release = substr($version,0,3); |
14 | $patchlevel = substr($version,3,2); |
15 | |
c623bd54 |
16 | # Read in the config file. |
17 | |
18 | open(CONFIG, "config.sh") || die "You haven't run Configure yet!\n"; |
19 | while (<CONFIG>) { |
20 | if (s/^(\w+=)/\$$1/) { |
21 | $accum =~ s/'undef'/undef/g; |
22 | eval $accum; |
23 | $accum = ''; |
24 | } |
25 | $accum .= $_; |
26 | } |
27 | |
28 | # Do some quick sanity checks. |
29 | |
30 | if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; } |
31 | |
fe14fcc3 |
32 | $installbin || die "No installbin directory in config.sh\n"; |
33 | -d $installbin || die "$installbin is not a directory\n"; |
34 | -w $installbin || die "$installbin is not writable by you\n" |
35 | unless $installbin =~ m#^/afs/#; |
c623bd54 |
36 | |
fe14fcc3 |
37 | -x 'perl' || die "perl isn't executable!\n"; |
38 | -x 'taintperl' || die "taintperl isn't executable!\n"; |
39 | -x 'suidperl' || die "suidperl isn't executable!\n" if $d_dosuid; |
c623bd54 |
40 | |
fe14fcc3 |
41 | -x 't/TEST' || warn "WARNING: You've never run 'make test'!!!", |
42 | " (Installing anyway.)\n"; |
c623bd54 |
43 | |
44 | # First we install the version-numbered executables. |
45 | |
46 | $ver = sprintf("%5.3f", $]); |
47 | |
fe14fcc3 |
48 | &unlink("$installbin/perl$ver"); |
49 | &cmd("cp perl $installbin/perl$ver"); |
c623bd54 |
50 | |
fe14fcc3 |
51 | &unlink("$installbin/tperl$ver"); |
52 | &cmd("cp taintperl $installbin/tperl$ver"); |
53 | &chmod(0755, "$installbin/tperl$ver"); # force non-suid for security |
c623bd54 |
54 | |
fe14fcc3 |
55 | &unlink("$installbin/sperl$ver"); |
c623bd54 |
56 | if ($d_dosuid) { |
fe14fcc3 |
57 | &cmd("cp suidperl $installbin/sperl$ver"); |
58 | &chmod(04711, "$installbin/sperl$ver"); |
c623bd54 |
59 | } |
60 | |
61 | exit 0 if $versiononly; |
62 | |
fe14fcc3 |
63 | # Make links to ordinary names if installbin directory isn't current directory. |
c623bd54 |
64 | |
fe14fcc3 |
65 | ($bdev,$bino) = stat($installbin); |
c623bd54 |
66 | ($ddev,$dino) = stat('.'); |
67 | |
68 | if ($bdev != $ddev || $bino != $dino) { |
fe14fcc3 |
69 | &unlink("$installbin/perl", "$installbin/taintperl", "$installbin/suidperl"); |
70 | &link("$installbin/perl$ver", "$installbin/perl"); |
71 | &link("$installbin/tperl$ver", "$installbin/taintperl"); |
72 | &link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid; |
c623bd54 |
73 | } |
74 | |
352d5a3a |
75 | ($bdev,$bino) = stat($installbin); |
76 | ($ddev,$dino) = stat('x2p'); |
77 | |
78 | if ($bdev != $ddev || $bino != $dino) { |
79 | &unlink("$installbin/a2p"); |
80 | &cmd("cp x2p/a2p $installbin/a2p"); |
81 | } |
82 | |
c623bd54 |
83 | # Make some enemies in the name of standardization. :-) |
84 | |
85 | ($udev,$uino) = stat("/usr/bin"); |
86 | |
fe14fcc3 |
87 | if (-w _ && ($udev != $ddev || $uino != $dino) && !$nonono) { |
c623bd54 |
88 | unlink "/usr/bin/perl"; |
fe14fcc3 |
89 | eval 'symlink("$installbin/perl", "/usr/bin/perl")' || |
90 | eval 'link("$installbin/perl", "/usr/bin/perl")' || |
91 | &cmd("cp $installbin/perl /usr/bin"); |
c623bd54 |
92 | } |
93 | |
94 | # Install scripts. |
95 | |
352d5a3a |
96 | &makedir($installscr); |
c623bd54 |
97 | |
98 | for (@scripts) { |
352d5a3a |
99 | &cmd("cp $_ $installscr"); |
100 | s#.*/##; &chmod(0755, "$installscr/$_"); |
c623bd54 |
101 | } |
102 | |
103 | # Install library files. |
104 | |
fe14fcc3 |
105 | &makedir($installprivlib); |
c623bd54 |
106 | |
fe14fcc3 |
107 | ($pdev,$pino) = stat($installprivlib); |
c623bd54 |
108 | |
109 | if ($pdev != $ddev || $pino != $dino) { |
fe14fcc3 |
110 | &cmd("cd lib && cp *.pl $installprivlib"); |
c623bd54 |
111 | } |
112 | |
113 | # Install man pages. |
114 | |
fe14fcc3 |
115 | if ($mansrc ne '') { |
116 | &makedir($mansrc); |
117 | |
118 | ($mdev,$mino) = stat($mansrc); |
119 | if ($mdev != $ddev || $mino != $dino) { |
120 | for (@manpages) { |
121 | ($new = $_) =~ s/man$/$manext/; |
352d5a3a |
122 | $new =~ s#.*/##; |
fe14fcc3 |
123 | print STDERR " Installing $mansrc/$new\n"; |
124 | next if $nonono; |
125 | open(MI,$_); |
126 | open(MO,">$mansrc/$new"); |
127 | print MO ".ds RP Release $release Patchlevel $patchlevel\n"; |
128 | while (<MI>) { |
129 | print MO; |
130 | } |
131 | close MI; |
132 | close MO; |
133 | } |
c623bd54 |
134 | } |
135 | } |
136 | |
137 | print STDERR " Installation complete\n"; |
138 | |
139 | exit 0; |
140 | |
141 | ############################################################################### |
142 | |
143 | sub unlink { |
144 | local(@names) = @_; |
145 | |
146 | foreach $name (@names) { |
147 | next unless -e $name; |
148 | print STDERR " unlink $name\n"; |
149 | unlink($name) || warn "Couldn't unlink $name: $!\n" unless $nonono; |
150 | } |
151 | } |
152 | |
153 | sub cmd { |
154 | local($cmd) = @_; |
155 | print STDERR " $cmd\n"; |
156 | unless ($nonono) { |
157 | system $cmd; |
158 | warn "Command failed!!!\n" if $?; |
159 | } |
160 | } |
161 | |
162 | sub link { |
163 | local($from,$to) = @_; |
164 | |
165 | print STDERR " ln $from $to\n"; |
166 | link($from,$to) || warn "Couldn't link $from to $to: $!\n" unless $nonono; |
167 | } |
168 | |
169 | sub chmod { |
170 | local($mode,$name) = @_; |
171 | |
172 | printf STDERR " chmod %o %s\n", $mode, $name; |
173 | chmod($mode,$name) || warn "Couldn't chmod $mode $name: $!\n" |
174 | unless $nonono; |
175 | } |
176 | |
177 | sub makedir { |
178 | local($dir) = @_; |
179 | unless (-d $dir) { |
180 | local($shortdir) = $dir; |
181 | |
182 | $shortdir =~ s#(.*)/.*#$1#; |
183 | &makedir($shortdir); |
184 | |
185 | print STDERR " mkdir $dir\n"; |
186 | mkdir($dir, 0777) || warn "Couldn't create $dir: $!\n" unless $nonono; |
187 | } |
188 | } |