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