]> git.treefish.org Git - fex.git/blob - install
9c49c06cf4d54193ba27a1ebc6aec17ddfadeec1
[fex.git] / install
1 #!/usr/bin/perl -w
2
3 use 5.006;
4 use Getopt::Std;
5 use File::Basename;
6 use Socket;
7 use IO::Socket::INET;
8 use Digest::MD5 'md5_hex';
9
10 $ENV{PATH} .= ':/sbin:/usr/sbin';
11
12 $usage = "usage: $0 [-p port] [IP-address]\n";
13 $xinetd = '/etc/xinetd.d/fex';
14
15 umask 022;
16
17 if ($<) {
18   die "you must be root to install F*EX\n";
19 }
20
21 $fex = 'fex.rus.uni-stuttgart.de';
22 if (system("host $fex >/dev/null") != 0) {
23   die "host $fex is not resolvable - check /etc/resolv.conf\n";
24 }
25
26 $opt_p = 80;
27
28 if (open $xinetd,$xinetd) {
29   while (<$xinetd>) {
30     if (/^\s*port\s*=\s*(\d+)/) {
31       $opt_p = $fexport = $1;
32     }
33     if (/^\s*bind\s*=\s*([\d.]+)$/) {
34       $fexip = $ip = $1;
35     }
36   }
37   close $xinetd;
38 }
39
40 goto INSTALL if $0 =~ /upgrade$/;
41
42 if (`uname` =~ /^SunOS/) {
43   die "Solaris is currently not supported. "
44      ."Please contact framstag\@rus.uni-stuttgart.de for details.\n";
45 }
46
47 getopts('p:') or die $usage;
48
49 $arg = shift;
50 if ($arg and -f "locale/$arg/lib/fup.pl") {
51   exec 'locale/translate',$arg;
52 } else {
53   $ip = $arg || $fexip || 0;
54 }
55
56 # if (not $ip and open P,"ifconfig 2>/dev/null |") {
57 if (not $ip and open P,'host $(hostname)|') {
58   $guessed_ip = 0;
59   while (<P>) {
60     if (/(\d+\.\d+\.\d+\.\d+)/) { 
61       $guessed_ip = $1;
62       last;
63     }
64   }
65   close P;
66   print "Your IP [$guessed_ip] : ";
67   chomp($ip = <STDIN>);
68   $ip ||= $guessed_ip;
69 }
70
71
72 ($hostname) = gethostbyaddr(gethostbyname($ip),AF_INET);
73 die "cannot find hostname for IP $ip\n" unless $hostname;
74
75 print "checking prerequisites\n";
76
77 if (`which xinetd` =~ m{^/}) {
78   print "found xinetd\n";
79 } else {
80   print "xinetd executable NOT found\n";
81   $premiss++;
82 }
83
84 foreach (qw'/usr/lib/sendmail /usr/sbin/sendmail') {
85   if (-x) {
86     $sendmail = $_;
87     print "found $sendmail\n";
88     last;
89   }
90 }
91 unless ($sendmail) {
92   print "sendmail NOT found\n";
93   $premiss++;  
94 }
95
96 if ($premiss) {
97   print "installation aborted, nothing has been touched yet\n";
98   print "what now? ==> see doc/installation\n";
99   exit 1;
100 }
101
102 unless ($fexport) {
103   
104   $SH = IO::Socket::INET->new(
105     PeerAddr => $ip,
106     PeerPort => $opt_p,
107     Proto    => 'tcp',
108   );
109   
110   if ($SH) {
111     print "There is already a tcp-service running on $ip:$opt_p !\n";
112     print "Select another port for F*EX by running $0 -p OTHERPORT $ip\n";
113     print "or an alternative IP-address by running $0 OTHERADDRESS\n";
114     exit 5;
115   }
116 }
117
118 print "prerequisites checked, ok\n";
119
120 unless (getpwnam('fex')) {
121   print "creating user fex\n";
122   system 'useradd -s /bin/bash -c "File EXchange" -m fex';
123   exit $? if $?;
124 }
125
126 if (open F,'/etc/passwd') {
127   while (<F>) {
128     $fexbash = $_ if /^fex:.*\/bash/;
129   }
130   close F;
131 }
132 unless ($fexbash) {
133   die "no bash login shell for user fex\n";
134 }
135
136 INSTALL:
137
138 umask 077;
139
140 @FEX = getpwnam('fex') or die "no user fex\n";
141 $FEXHOME  = $FEX[7];
142 $ENV{HOME} = $FEXHOME; # needed for later eval fex.ph
143
144 die "no HOME directory for user fex\n" unless -d $FEXHOME;
145 if ($FEXHOME !~ /fex/) {
146   print "HOME=$FEXHOME for user fex does not contain \"fex\"\n";
147   print "REALLY continue?! ";
148   $_ = <STDIN>;
149   exit unless /^y/i;
150 }
151
152 print "Installing:\n";
153
154 $pecl = "$FEXHOME/perl/Encode/ConfigLocal.pm";
155 unless (-f $pecl) {
156   mkdir "$FEXHOME/perl";
157   mkdir "$FEXHOME/perl/Encode";
158   open $pecl,'>',$pecl or die "$0: cannot write $pecl - $!\n";
159   print {$pecl} 
160     "# hack for broken Perl in SuSe and Solaris, used via \@INC in fexsrv\n",
161     "1;\n";
162   close $pecl;
163   print $pecl,"\n";
164   chownr('fex:root',"$FEXHOME/perl");
165 }
166
167 @save = (
168   "lib/fex.ph",
169   "lib/fup.pl",
170   "lib/reactivation.txt",
171   "etc/mime.types",
172   "htdocs/index.html",
173   "htdocs/robots.txt",
174   "htdocs/FAQ/local.faq",
175 );
176
177 foreach $s (@save) {
178   $f = "$FEXHOME/$s";
179   if (-e $f) {
180     $fs = $f.'_save';
181     rename $f,$fs and print "$f --> $fs\n";
182   }
183 }
184
185 cpav(qw'bin cgi-bin lib etc htdocs doc',$FEXHOME);
186 unlink "$FEXHOME/doc/License";
187 unlink "$FEXHOME/htdocs/License";
188
189 $hl = "$FEXHOME/htdocs/locale";
190 unless (-d $hl) { mkdir $hl or die "$0: cannot mkdir $hl - $!\n" }
191
192 foreach $s (@save) {
193   $f = "$FEXHOME/$s";
194   $fs = $f.'_save';
195   $fn = $f.'_new';
196   if (-e $fs) {
197     unlink $fn;
198     rename $f,$fn and print "$f --> $fn\n";
199     rename $fs,$f and print "$fs --> $f\n";
200   }
201 }
202
203 if (-d "$FEXHOME/spool") {
204   warn "checking $FEXHOME/spool ...\n";
205   &convert_spool;
206 } else {
207   $newinstall = $FEXHOME;
208   chmod 0700,$FEXHOME;
209   mkdir "$FEXHOME/spool",0700 or die "cannot mkdir $FEXHOME/spool - $!\n";
210   mkdir "$FEXHOME/spool/.error",0700;
211 }
212 chownr('fex',"$FEXHOME/spool/.");
213
214 system(qw'perl -p -i -e',
215   's:href="/?FAQ.html":href="/FAQ/FAQ.html":',
216   "$FEXHOME/lib/fup.pl"
217 );
218   
219 $fph = "$FEXHOME/lib/fex.ph";
220 open $fph,$fph or die "cannot read $fph - $!\n";
221 while (<$fph>) {
222   s/'MYHOSTNAME.MYDOMAIN'/'$hostname'/;
223   $conf .= $_;
224 }
225 close $fph;
226
227 eval $conf;
228
229 die "no \$spooldir in $fph\n" unless $spooldir;
230 die "\$spooldir=$spooldir is not a directory, see $fph\n" unless -d $spooldir;
231 symlink $spooldir,"$FEXHOME/spool" unless -e "$FEXHOME/spool";
232 @sds1 = stat "$spooldir/.";
233 @sds2 = stat "$FEXHOME/spool/.";
234 if ("@sds1" ne "@sds2") {
235   die "$FEXHOME/spool is not a symbolic link to \$spooldir=$spooldir\n";
236 }
237
238 $fid = "$FEXHOME/.fex/id";
239 $aa = "$spooldir/$admin/@";
240
241 if ($newinstall or not -s $aa) {
242   print "\n";
243   for (;;) {
244     print "Server hostname [$hostname] : ";
245     $_ = <STDIN>;
246     s/\s//g;
247     $hostname = $_ if $_;
248     last if gethostbyname($hostname);
249     print "No DNS for $hostname\n";
250   }
251   for (;;) {
252     print "F*EX admin [$admin] : ";
253     $_ = <STDIN>;
254     s/\s//g;
255     $admin = $_ if $_;
256     last if $admin =~ /.\@./;
257     print "admin must be a valid email address!\n";
258   }
259   while (not $admin_pw) {
260     print "F*EX admin password: ";
261     $admin_pw = <STDIN>;
262     $admin_pw =~ s/\s//g;
263   }
264   mkfid();
265   print "(admin password is in $aa)\n";
266   $conf =~ s/^\s*\$hostname\s*=.*/\$hostname = '$hostname';/m;
267   $conf =~ s/^\s*\$admin\s*=.*/\$admin = '$admin';/m;
268 } else {
269   if ($admin_pw) {
270     print "\nFound old \$admin_pw in $fph !\n";
271     print "This is no longer supported for security reason.\n";
272     if (open $aa,$aa) {
273       $_ = <$aa>||'';
274       chomp;
275       close $aa;
276       if ($_ ne $admin_pw) {
277         print "\nYou have to delete \$admin_pw in $fph and run\n";
278         print "$FEXHOME/bin/fac -u $admin $admin_pw\n";
279         print "\nThen rerun $0\n";
280         exit 2;
281       }
282     }
283     mkfid();
284     print "\$admin_pw is transfered to auth-ID in $aa\n\n";
285     $conf =~ s/^\s*(\$admin_pw)\s*=.*/# $1 is now auth_ID of user \$admin/m;
286   }
287 }
288
289 open $fph,">$fph.new" or die "$0: cannot write $fph.new - $!\n";
290 print {$fph} $conf;
291 close $fph;
292 system "chown fex $fph.new";
293 rename "$fph.new",$fph or die "$0: cannot rename $fph.new to $fph - $!\n"; 
294
295 do $fph or die "$0: error in new $fph - $!\n";
296
297 if (@locales = glob "locale/*/lib/fup.pl") {
298   foreach (@locales) {
299     m{locale/(.+?)/} and $locale = $1;
300     if (-f "$FEXHOME/$_") { 
301       system 'locale/translate',$locale;
302       chownr('fex',"$FEXHOME/locale/$locale");
303       $hl = "$FEXHOME/htdocs/locale/$locale";
304       symlink "$FEXHOME/locale/$locale/htdocs",$hl unless -l $hl;
305     } else { 
306       push @nlocales,"./install $1\n";
307     }
308   }
309   if (@nlocales) {
310     if (glob "$FEXHOME/locale/*/lib/fup.pl") {
311       print "\nTo install another localized version, type:\n";
312     } else {
313       print "\nTo install a localized version, type:\n";
314     }
315     print @nlocales;
316   }
317 }
318
319 $fph = "$FEXHOME/lib/fex.ph";
320 do $fph;
321
322 unless (-f $xinetd) {
323   my $xc = '/etc/xinetd.conf';
324   if (open $xc,$xc) {
325     while (<$xc>) {
326       if (/^\s*only_from/) {
327         print "WARNING: found \"only_from\" in $xc : fexsrv is restricted!\n";
328       }
329     }
330     close $xc;
331   }
332   if (-d '/etc/xinetd.d') {
333     unless (-f $xinetd) {
334       open $xinetd,">$xinetd" or die "cannot write $xinetd - $!\n";
335       open F,'etc/xinetd_fex' or die "cannot read etc/xinetd_fex - $!\n";
336       while (<F>) {
337         s/FEXHOME/$FEXHOME/;
338         s/PORT/$opt_p/;
339         s/ADDRESS/$ip/;
340         print {$xinetd} $_;
341       }
342       close F;
343       close $xinetd;
344       system qw'/etc/init.d/xinetd restart';
345       print "WARNING: cannot restart xinetd\n" if $?;
346     }
347   } else {
348     print "WARNING: No /etc/xinetd.d found.\n";
349     print "WARNING: You have to install etc/xinetd_fex manually.\n";
350   }
351
352   $crontab = `crontab -u fex -l 2>/dev/null`;
353   if ($crontab !~ /fex_cleanup/) {
354     open $crontab,">fex.cron" or die "cannot create fex.cron - $!\n";
355     print {$crontab} $crontab,"\n";
356     print {$crontab} " 3 3 * * * exec $FEXHOME/bin/fex_cleanup\n";
357     close $crontab;
358     system qw(crontab -u fex fex.cron);
359   }
360
361   chownr('fex:root',"$FEXHOME $FEXHOME/spool/.");
362   chmodr('go-r',"$FEXHOME/lib","$FEXHOME/cgi-bin","$FEXHOME/spool/.");
363
364   print "\n";
365   print "Now check configuration file $FEXHOME/lib/fex.ph and run\n";
366   print "$FEXHOME/bin/fac for further configuration and user management.\n";
367   print "(You can do this as user \"fex\")\n";
368 } else {
369   
370   chmodr('go-r',"$FEXHOME/lib","$FEXHOME/cgi-bin");
371   
372   print "\n";
373   print "F*EX update installed.\n";
374   print "You can inform your users about the new features with:\n";
375   print "$FEXHOME/bin/fexwall 'new F*EX features on $hostname' ".
376         "< $FEXHOME/doc/newfeatures\n";
377 }
378
379 if (@local_rdomains and not @local_rhosts) {
380   print "\nWARNING:\n";
381   print "In $fph you have @local_rdomains but not @local_rhosts!\n";
382   print "Selfregistrating of external users will not work!\n";
383   print "See ${fph}_new/\n";
384 }
385
386 if (`$sendmail -h 2>&1` =~ /exim/ and 
387     `grep trusted_users /etc/exim4/exim4.conf 2>/dev/null` !~ /\bfex\b/) {
388   print "\nWARNING:\n";
389   print "$sendmail is exim\n";
390   print "You MUST set in your exim4.conf:\n";
391   print "trusted_users = mail : uucp : fex\n";
392 }
393
394 exit;
395
396 sub mkfid {
397   my $ad = dirname($aa);
398   mkdir $ad;
399   open $aa,'>',$aa or die "$0: cannot create $aa - $!\n";
400   print {$aa} "$admin_pw\n";
401   close $aa;
402   my $fd = dirname($fid);
403   mkdir $fd;
404   rename $fid,$fid.'_save';
405   open $fid,'>',$fid or die "$0: cannot create $fid - $!\n";
406   print {$fid} "$hostname:$opt_p\n";
407   print {$fid} "$admin\n";
408   print {$fid} "$admin_pw\n";
409   close $fid;
410   chownr('fex',$ad,$fd);
411   chmod 0700,$ad,$fd;
412 }
413
414 sub chownr {
415   my $user = shift;
416   local $_;
417   foreach (@_) {
418     if (m:^/*(lib|usr|home)?/*$:) {
419       die "ERROR: short path in chownr $user @_\n";
420     }
421   }
422   system qw'chown -R',$user,@_;
423 }
424
425 sub chmodr {
426   my $mod = shift;
427   local $_;
428   foreach (@_) {
429     if (m:^/*(lib|usr|home)?/*$:) {
430       die "ERROR: short path in chmodr $mod @_\n";
431     }
432   }
433   system qw'chmod -R',$mod,@_;
434 }
435
436 sub convert_spool {
437   my ($f,$d,$to,$from,$link);
438   
439   local $) = $FEX[3];
440   local $> = $FEX[2]; 
441
442   our ($spooldir,$skeydir,$gkeydir);
443   $ENV{FEXLIB} = $FEXLIB = "$FEXHOME/lib";
444   require "$FEXLIB/fex.pp" or die "$0: cannot load $FEXLIB/fex.pp - $!\n";
445   die "no \$spooldir in $FEXLIB/fex.pp\n" unless $spooldir;
446   die "\$spooldir=$spooldir/" if $spooldir =~ m:^/*(root)?$:;
447
448   # User --> user@maildomain
449   if ($mdomain) {
450     foreach $f (glob "$spooldir/.dkeys/*") {
451       if ($link = readlink $f) {
452         (undef,$to,$from,$file) = split('/',$link);
453         if ($file) {
454           $to   .= '@'.$mdomain if $to   !~ /@/;
455           $from .= '@'.$mdomain if $from !~ /@/;
456           if ($link ne "../$to/$from/$file") {
457             symlink "../$to/$from/$file",$f;
458           }
459         }
460       }
461     }
462   }
463
464   # fix spool layout: FROM and TO must have domains and must be lower case
465   foreach $d ((glob "$spooldir/*/*"),(glob "$spooldir/*")) {
466     if (not -l $d and -d $d and $d =~ m:(.+)/(.+):) {
467       $p = $1;
468       $b = $2;
469       if ($b !~ /^@/ and $b !~ /^[A-Z_-]+$/) {
470         if ($mdomain and $b !~ /@/) {
471           rename $d,sprintf("%s/%s@%s",$p,lc($b),$mdomain);
472         } elsif ($b ne lc($b)) {
473           rename $d,sprintf("%s/%s",$p,lc($b));
474         }
475       }
476     }
477   }
478
479   # split auth-ID and subuser file: @ --> @ @SUBUSER
480   foreach my $u (glob "$spooldir/*@*") {
481     next if -f "$u/\@SUBUSER";
482     open my $idf,"$u/\@" or next;
483     $id = <$idf>;
484     if (defined ($su = <$idf>) and $su =~ /\w/
485         and open my $suf,">$u/\@SUBUSER") {
486       print {$suf} $su;
487       while (defined ($su = <$idf>)) { print {$suf} $su }
488       close $suf;
489       close $idf;
490       if (open my $idf,">$u/\@") {
491         print {$idf} $id;
492         close $idf;
493       }
494     }
495   }
496
497   # create new SKEYs
498   foreach my $sf (glob "$spooldir/*/\@SUBUSER") {
499     $user = (split '/',$sf)[-2];
500     if (open $sf,$sf) {
501       while (<$sf>) {
502         s/#.*//;
503         if (/(.+\@.+):(.+)/) {
504           ($subuser,$id) = ($1,$2);
505           next if $subuser =~ /\*/;
506           $skey = md5_hex("$user:$subuser:$id");
507           if (open $skey,'>',"$skeydir/$skey") {
508             print {$skey} "from=$subuser\n",
509                           "to=$user\n",
510                           "id=$id\n";
511             close $skey;
512           }
513           mkdirp("$spooldir/$subuser/\@MAINUSER");
514           symlink $skey,"$spooldir/$subuser/\@MAINUSER/$user";
515         }
516       }
517     }
518     close $sf;
519   }
520
521   # create new GKEYs
522   foreach my $gf (glob "$spooldir/*/\@GROUP/*") {
523     next unless -f $gf;
524     # normalize group name
525     if ($gf =~ m:(.+)/(.+):) {
526       my $gd = $1;
527       my $g1 = $2;
528       my $g2 = $2;
529       $g2 =~ s/[^\w\*%^+=:,.!-]/_/g;
530       if ($g1 ne $g2) {
531         rename "$gd/$g1","$gd/$g2" and $gf = "$gd/$g2";
532       }
533     }
534     $group = (split '/',$gf)[-1];
535     $user  = (split '/',$gf)[-3];
536     if (open $gf,$gf) {
537       while (<$gf>) {
538         s/#.*//;
539         if (/(.+\@.+):(.+)/) {
540           ($gm,$id) = ($1,$2);
541           $gkey = md5_hex("$user:$group:$gm:$id");
542           if (open $gkey,'>',"$gkeydir/$gkey") {
543             print {$gkey} "from=$gm\n",
544                           "to=\@$group\n",
545                           "user=$user\n",
546                           "id=$id\n";
547             close $gkey;
548           }
549           mkdirp("$spooldir/$gm/\@GROUP");
550           symlink "../../$user/\@GROUP/$group","$spooldir/$gm/\@GROUP/$group";
551         }
552       }
553     }
554     close $gf;
555   }
556 }
557
558 sub cpav {
559   my $dd = pop @_;
560   local *P;
561   
562   die "cpav: $dd is not a directory" unless -d $dd;
563   open P,"tar cf - @_ | su -c 'cd $dd; umask 022; tar xvf - 2>&1' fex |" 
564     or die "cpav: cannot tar - $!\n";
565   while (<P>) {
566     chomp;
567     print "$_ --> $dd/$_\n" unless /\/$/;
568   }
569   close P;
570 }