perl 5.0 alpha 2
[perl.git] / installperl
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
115 # Install man pages.
116
117 if ($mansrc ne '') {
118     &makedir($mansrc);
119
120     ($mdev,$mino) = stat($mansrc);
121     if ($mdev != $ddev || $mino != $dino) {
122         for (@manpages) {
123             ($new = $_) =~ s/man$/$manext/;
124             $new =~ s#.*/##;
125             print STDERR "  Installing $mansrc/$new\n";
126             next if $nonono;
127             open(MI,$_) || warn "Can't open $_: $!\n";
128             open(MO,">$mansrc/$new") || warn "Can't install $mansrc/$new: $!\n";
129             print MO ".ds RP Release $release Patchlevel $patchlevel\n";
130             while (<MI>) {
131                 print MO;
132             }
133             close MI;
134             close MO;
135         }
136     }
137 }
138
139 # Install library files.
140
141 &makedir($installprivlib);
142 if (chdir "lib") {
143
144     ($pdev,$pino) = stat($installprivlib);
145     ($ldev,$lino) = stat('.');
146
147     if ($pdev != $ldev || $pino != $lino) {
148         foreach $file (<*.pl>) {
149             system "cmp", "-s", $file, "$privlib/$file";
150             if ($?) {
151                 &unlink("$installprivlib/$file");
152                 &cmd("cp $file $installprivlib");
153                 &chmod(0644, "$installprivlib/$file");
154             }
155         }
156     }
157     chdir ".." || die "Can't cd back to source directory: $!\n";
158 }
159 else {
160     warn "Can't cd to lib to install lib files: $!\n";
161 }
162
163 &chmod(0755, "usub/mus");
164
165 print STDERR "  Installation complete\n";
166
167 exit 0;
168
169 ###############################################################################
170
171 sub unlink {
172     local(@names) = @_;
173
174     foreach $name (@names) {
175         next unless -e $name;
176         print STDERR "  unlink $name\n";
177         unlink($name) || warn "Couldn't unlink $name: $!\n" unless $nonono;
178     }
179 }
180
181 sub cmd {
182     local($cmd) = @_;
183     print STDERR "  $cmd\n";
184     unless ($nonono) {
185         system $cmd;
186         warn "Command failed!!!\n" if $?;
187     }
188 }
189
190 sub link {
191     local($from,$to) = @_;
192
193     print STDERR "  ln $from $to\n";
194     link($from,$to) || warn "Couldn't link $from to $to: $!\n" unless $nonono;
195 }
196
197 sub chmod {
198     local($mode,$name) = @_;
199
200     printf STDERR "  chmod %o %s\n", $mode, $name;
201     chmod($mode,$name) || warn sprintf("Couldn't chmod %o %s: $!\n",$mode,$name)
202         unless $nonono;
203 }
204
205 sub makedir {
206     local($dir) = @_;
207     unless (-d $dir) {
208         local($shortdir) = $dir;
209
210         $shortdir =~ s#(.*)/.*#$1#;
211         &makedir($shortdir);
212
213         print STDERR "  mkdir $dir\n";
214         mkdir($dir, 0777) || warn "Couldn't create $dir: $!\n" unless $nonono;
215     }
216 }