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