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   unless (-f $xinetd) {
  67     print "Your IP [$guessed_ip] : ";
  68     chomp($ip = <STDIN>);
  69   }
  70   $ip ||= $guessed_ip;
  71 }
  72
  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 $ENV{HOME} = $FEXHOME; # needed for later eval fex.ph
 145
 146 die "no HOME directory for user fex\n" unless -d $FEXHOME;
 147 if ($FEXHOME !~ /fex/) {
 148   print "HOME=$FEXHOME for user fex does not contain \"fex\"\n";
 149   print "REALLY continue?! ";
 150   $_ = <STDIN>;
 151   exit unless /^y/i;
 152 }
 153
 154 print "Installing:\n";
 155
 156 $pecl = "$FEXHOME/perl/Encode/ConfigLocal.pm";
 157 unless (-f $pecl) {
 158   mkdir "$FEXHOME/perl";
 159   mkdir "$FEXHOME/perl/Encode";
 160   open $pecl,'>',$pecl or die "$0: cannot write $pecl - $!\n";
 161   print {$pecl}
 162     "# hack for broken Perl in SuSe and Solaris, used via \@INC in fexsrv\n",
 163     "1;\n";
 164   close $pecl;
 165   print $pecl,"\n";
 166   chownr('fex:root',"$FEXHOME/perl");
 167 }
 168
 169 @save = (
 170   "lib/fex.ph",
 171   "lib/fup.pl",
 172   "lib/reactivation.txt",
 173   "etc/mime.types",
 174   "htdocs/index.html",
 175   "htdocs/robots.txt",
 176   "htdocs/FAQ/local.faq",
 177 );
 178
 179 foreach $s (@save) {
 180   $f = "$FEXHOME/$s";
 181   if (-e $f) {
 182     $fs = $f.'_save';
 183     rename $f,$fs and print "$f --> $fs\n";
 184   }
 185 }
 186
 187 cpav(qw'bin cgi-bin lib etc htdocs doc',$FEXHOME);
 188 unlink "$FEXHOME/doc/License";
 189 unlink "$FEXHOME/htdocs/License";
 190
 191 $hl = "$FEXHOME/htdocs/locale";
 192 unless (-d $hl) { mkdir $hl or die "$0: cannot mkdir $hl - $!\n" }
 193
 194 foreach $s (@save) {
 195   $f = "$FEXHOME/$s";
 196   $fs = $f.'_save';
 197   $fn = $f.'_new';
 198   if (-e $fs) {
 199     unlink $fn;
 200     rename $f,$fn and print "$f --> $fn\n";
 201     rename $fs,$f and print "$fs --> $f\n";
 202   }
 203 }
 204
 205 if (-d "$FEXHOME/spool") {
 206   warn "checking $FEXHOME/spool ...\n";
 207   &convert_spool;
 208 } else {
 209   $newinstall = $FEXHOME;
 210   chmod 0700,$FEXHOME;
 211   mkdir "$FEXHOME/spool",0700 or die "cannot mkdir $FEXHOME/spool - $!\n";
 212   mkdir "$FEXHOME/spool/.error",0700;
 213 }
 214 chownr('fex',"$FEXHOME/spool/.");
 215
 216 # fex-VM?
 217 if (open my $setup,'/root/bin/setup') {
 218   while (<$setup>) {
 219     exit if /#.*X-VM/;
 220   }
 221   close $setup;
 222 }
 223
 224 system(qw'perl -p -i -e',
 225   's:href="/?FAQ.html":href="/FAQ/FAQ.html":',
 226   "$FEXHOME/lib/fup.pl"
 227 );
 228
 229 $fph = "$FEXHOME/lib/fex.ph";
 230 open $fph,$fph or die "cannot read $fph - $!\n";
 231 while (<$fph>) {
 232   s/'MYHOSTNAME.MYDOMAIN'/'$hostname'/;
 233   $conf .= $_;
 234 }
 235 close $fph;
 236
 237 eval $conf;
 238
 239 # die "no \$spooldir in $fph\n" unless $spooldir;
 240 $spooldir ||= '/home/fex/spool';
 241 die "\$spooldir=$spooldir is not a directory, see $fph\n" unless -d $spooldir;
 242 symlink $spooldir,"$FEXHOME/spool" unless -e "$FEXHOME/spool";
 243 @sds1 = stat "$spooldir/.";
 244 @sds2 = stat "$FEXHOME/spool/.";
 245 if ("@sds1" ne "@sds2") {
 246   die "$FEXHOME/spool is not a symbolic link to \$spooldir=$spooldir\n";
 247 }
 248
 249 $fid = "$FEXHOME/.fex/id";
 250 $aa = "$spooldir/$admin/@";
 251
 252 if ($newinstall or not -s $aa) {
 253   print "\n";
 254   for (;;) {
 255     print "Server hostname [$hostname] : ";
 256     $_ = <STDIN>;
 257     s/\s//g;
 258     $hostname = $_ if $_;
 259     last if gethostbyname($hostname);
 260     print "No DNS for $hostname\n";
 261   }
 262   for (;;) {
 263     print "F*EX admin [$admin] : ";
 264     $_ = <STDIN>;
 265     s/\s//g;
 266     $admin = $_ if $_;
 267     last if $admin =~ /.\@./;
 268     print "admin must be a valid email address!\n";
 269   }
 270   $aa = "$spooldir/$admin/@";
 271   while (not $admin_pw) {
 272     print "F*EX admin password: ";
 273     $admin_pw = <STDIN>;
 274     $admin_pw =~ s/\s//g;
 275   }
 276   mkfid();
 277   print "(admin password is in $aa)\n";
 278   $conf =~ s/^\s*\$hostname\s*=.*/\$hostname = '$hostname';/m;
 279   $conf =~ s/^\s*\$admin\s*=.*/\$admin = '$admin';/m;
 280 } else {
 281   if ($admin_pw) {
 282     print "\nFound old \$admin_pw in $fph !\n";
 283     print "This is no longer supported for security reason.\n";
 284     if (open $aa,$aa) {
 285       $_ = <$aa>||'';
 286       chomp;
 287       close $aa;
 288       if ($_ ne $admin_pw) {
 289         print "\nYou have to delete \$admin_pw in $fph and run\n";
 290         print "$FEXHOME/bin/fac -u $admin $admin_pw\n";
 291         print "\nThen rerun $0\n";
 292         exit 2;
 293       }
 294     }
 295     mkfid();
 296     print "\$admin_pw is transfered to auth-ID in $aa\n\n";
 297     $conf =~ s/^\s*(\$admin_pw)\s*=.*/# $1 is now auth_ID of user \$admin/m;
 298   }
 299 }
 300
 301 open $fph,">$fph.new" or die "$0: cannot write $fph.new - $!\n";
 302 print {$fph} $conf;
 303 close $fph;
 304 system "chown fex $fph.new";
 305 rename "$fph.new",$fph or die "$0: cannot rename $fph.new to $fph - $!\n";
 306
 307 do $fph or die "$0: error in new $fph - $!\n";
 308
 309 if (@locales = glob "locale/*/lib/fup.pl") {
 310   foreach (@locales) {
 311     m{locale/(.+?)/} and $locale = $1;
 312     if (-f "$FEXHOME/$_") {
 313       system 'locale/translate',$locale;
 314       chownr('fex',"$FEXHOME/locale/$locale");
 315       $hl = "$FEXHOME/htdocs/locale/$locale";
 316       symlink "$FEXHOME/locale/$locale/htdocs",$hl unless -l $hl;
 317     } else {
 318       push @nlocales,"./install $1\n";
 319     }
 320   }
 321   if (@nlocales) {
 322     if (glob "$FEXHOME/locale/*/lib/fup.pl") {
 323       print "\nTo install another localized version, type:\n";
 324     } else {
 325       print "\nTo install a localized version, type:\n";
 326     }
 327     print @nlocales;
 328   }
 329 }
 330
 331 $fph = "$FEXHOME/lib/fex.ph";
 332 do $fph;
 333
 334 unless (-f $xinetd) {
 335   my $xc = '/etc/xinetd.conf';
 336   if (open $xc,$xc) {
 337     while (<$xc>) {
 338       if (/^\s*only_from/) {
 339         print "WARNING: found \"only_from\" in $xc : fexsrv is restricted!\n";
 340       }
 341     }
 342     close $xc;
 343   }
 344   if (-d '/etc/xinetd.d') {
 345     unless (-f $xinetd) {
 346       open $xinetd,">$xinetd" or die "cannot write $xinetd - $!\n";
 347       open F,'etc/xinetd_fex' or die "cannot read etc/xinetd_fex - $!\n";
 348       while (<F>) {
 349         s/FEXHOME/$FEXHOME/;
 350         s/PORT/$opt_p/;
 351         s/ADDRESS/$ip/;
 352         print {$xinetd} $_;
 353       }
 354       close F;
 355       close $xinetd;
 356       system qw'/etc/init.d/xinetd restart';
 357       print "WARNING: cannot restart xinetd\n" if $?;
 358     }
 359   } else {
 360     print "WARNING: No /etc/xinetd.d found.\n";
 361     print "WARNING: You have to install etc/xinetd_fex manually.\n";
 362   }
 363
 364   $crontab = `crontab -u fex -l 2>/dev/null`;
 365   if ($crontab !~ /fex_cleanup/) {
 366     open $crontab,">fex.cron" or die "cannot create fex.cron - $!\n";
 367     print {$crontab} $crontab,"\n";
 368     print {$crontab} " 3 2 * * * exec $FEXHOME/bin/backup\n";
 369     print {$crontab} " 3 3 * * * exec $FEXHOME/bin/fex_cleanup\n";
 370     close $crontab;
 371     system qw'crontab -u fex fex.cron';
 372   }
 373
 374   chownr('fex:root',$FEXHOME,"$FEXHOME/spool/.");
 375   chmodr('go-r',"$FEXHOME/lib","$FEXHOME/cgi-bin","$FEXHOME/spool/.");
 376
 377   print "\n";
 378   print "Now check configuration file $FEXHOME/lib/fex.ph and run\n";
 379   print "$FEXHOME/bin/fac for further configuration and user management.\n";
 380   print "(You can do this as user \"fex\")\n";
 381 } else {
 382
 383   chmodr('go-r',"$FEXHOME/lib","$FEXHOME/cgi-bin");
 384
 385   print "\n";
 386   print "F*EX update installed.\n";
 387   print "You can inform your users about the new features with:\n";
 388   print "$FEXHOME/bin/fexwall 'new F*EX features on $hostname' ".
 389         "< $FEXHOME/doc/newfeatures\n";
 390 }
 391
 392 if (@local_rdomains and not @local_rhosts) {
 393   print "\nWARNING:\n";
 394   print "In $fph you have @local_rdomains but not @local_rhosts!\n";
 395   print "Selfregistrating of external users will not work!\n";
 396   print "See ${fph}_new/\n";
 397 }
 398
 399 if (`$sendmail -h 2>&1` =~ /exim/ and
 400     `grep trusted_users /etc/exim4/exim4.conf 2>/dev/null` !~ /\bfex\b/) {
 401   print "\nWARNING:\n";
 402   print "$sendmail is exim\n";
 403   print "You MUST set in your exim4.conf:\n";
 404   print "trusted_users = mail : uucp : fex\n";
 405 }
 406
 407 exit;
 408
 409 sub mkfid {
 410   my $ad = dirname($aa);
 411   mkdir $ad;
 412   open $aa,'>',$aa or die "$0: cannot create $aa - $!\n";
 413   print {$aa} "$admin_pw\n";
 414   close $aa;
 415   my $fd = dirname($fid);
 416   mkdir $fd;
 417   rename $fid,$fid.'_save';
 418   open $fid,'>',$fid or die "$0: cannot create $fid - $!\n";
 419   print {$fid} "$hostname:$opt_p\n";
 420   print {$fid} "$admin\n";
 421   print {$fid} "$admin_pw\n";
 422   close $fid;
 423   chownr('fex',$ad,$fd);
 424   chmod 0700,$ad,$fd;
 425 }
 426
 427 sub chownr {
 428   my $user = shift;
 429   local $_;
 430   foreach (@_) {
 431     if (m:^/*(lib|usr|home)?/*$:) {
 432       die "ERROR: short path in chownr $user @_\n";
 433     }
 434   }
 435   system qw'chown -R',$user,@_;
 436 }
 437
 438 sub chmodr {
 439   my $mod = shift;
 440   local $_;
 441   foreach (@_) {
 442     if (m:^/*(lib|usr|home)?/*$:) {
 443       die "ERROR: short path in chmodr $mod @_\n";
 444     }
 445   }
 446   system qw'chmod -R',$mod,@_;
 447 }
 448
 449 sub convert_spool {
 450   my ($f,$d,$to,$from,$link);
 451
 452   local $) = $FEX[3];
 453   local $> = $FEX[2];
 454
 455   our ($spooldir,$skeydir,$gkeydir);
 456   $ENV{FEXLIB} = $FEXLIB = "$FEXHOME/lib";
 457   require "$FEXLIB/fex.pp" or die "$0: cannot load $FEXLIB/fex.pp - $!\n";
 458   die "no \$spooldir in $FEXLIB/fex.pp\n" unless $spooldir;
 459   die "\$spooldir=$spooldir/" if $spooldir =~ m:^/*(root)?$:;
 460
 461   # User --> user@maildomain
 462   if ($mdomain) {
 463     foreach $f (glob "$spooldir/.dkeys/*") {
 464       if ($link = readlink $f) {
 465         (undef,$to,$from,$file) = split('/',$link);
 466         if ($file) {
 467           $to   .= '@'.$mdomain if $to   !~ /@/;
 468           $from .= '@'.$mdomain if $from !~ /@/;
 469           if ($link ne "../$to/$from/$file") {
 470             symlink "../$to/$from/$file",$f;
 471           }
 472         }
 473       }
 474     }
 475   }
 476
 477   # fix spool layout: FROM and TO must have domains and must be lower case
 478   foreach $d ((glob "$spooldir/*/*"),(glob "$spooldir/*")) {
 479     if (not -l $d and -d $d and $d =~ m:(.+)/(.+):) {
 480       $p = $1;
 481       $b = $2;
 482       if ($b !~ /^@/ and $b !~ /^[A-Z_-]+$/) {
 483         if ($mdomain and $b !~ /@/) {
 484           rename $d,sprintf("%s/%s@%s",$p,lc($b),$mdomain);
 485         } elsif ($b ne lc($b)) {
 486           rename $d,sprintf("%s/%s",$p,lc($b));
 487         }
 488       }
 489     }
 490   }
 491
 492   # split auth-ID and subuser file: @ --> @ @SUBUSER
 493   foreach my $u (glob "$spooldir/*@*") {
 494     next if -f "$u/\@SUBUSER";
 495     open my $idf,"$u/\@" or next;
 496     $id = <$idf>;
 497     if (defined ($su = <$idf>) and $su =~ /\w/
 498         and open my $suf,">$u/\@SUBUSER") {
 499       print {$suf} $su;
 500       while (defined ($su = <$idf>)) { print {$suf} $su }
 501       close $suf;
 502       close $idf;
 503       if (open my $idf,">$u/\@") {
 504         print {$idf} $id;
 505         close $idf;
 506       }
 507     }
 508   }
 509
 510   # create new SKEYs
 511   foreach my $sf (glob "$spooldir/*/\@SUBUSER") {
 512     $user = (split '/',$sf)[-2];
 513     if (open $sf,$sf) {
 514       while (<$sf>) {
 515         s/#.*//;
 516         if (/(.+\@.+):(.+)/) {
 517           ($subuser,$id) = ($1,$2);
 518           next if $subuser =~ /\*/;
 519           $skey = md5_hex("$user:$subuser:$id");
 520           if (open $skey,'>',"$skeydir/$skey") {
 521             print {$skey} "from=$subuser\n",
 522                           "to=$user\n",
 523                           "id=$id\n";
 524             close $skey;
 525           }
 526           mkdirp("$spooldir/$subuser/\@MAINUSER");
 527           symlink $skey,"$spooldir/$subuser/\@MAINUSER/$user";
 528         }
 529       }
 530     }
 531     close $sf;
 532   }
 533
 534   # create new GKEYs
 535   foreach my $gf (glob "$spooldir/*/\@GROUP/*") {
 536     next unless -f $gf;
 537     # normalize group name
 538     if ($gf =~ m:(.+)/(.+):) {
 539       my $gd = $1;
 540       my $g1 = $2;
 541       my $g2 = $2;
 542       $g2 =~ s/[^\w\*%^+=:,.!-]/_/g;
 543       if ($g1 ne $g2) {
 544         rename "$gd/$g1","$gd/$g2" and $gf = "$gd/$g2";
 545       }
 546     }
 547     $group = (split '/',$gf)[-1];
 548     $user  = (split '/',$gf)[-3];
 549     if (open $gf,$gf) {
 550       while (<$gf>) {
 551         s/#.*//;
 552         if (/(.+\@.+):(.+)/) {
 553           ($gm,$id) = ($1,$2);
 554           $gkey = md5_hex("$user:$group:$gm:$id");
 555           if (open $gkey,'>',"$gkeydir/$gkey") {
 556             print {$gkey} "from=$gm\n",
 557                           "to=\@$group\n",
 558                           "user=$user\n",
 559                           "id=$id\n";
 560             close $gkey;
 561           }
 562           mkdirp("$spooldir/$gm/\@GROUP");
 563           symlink "../../$user/\@GROUP/$group","$spooldir/$gm/\@GROUP/$group";
 564         }
 565       }
 566     }
 567     close $gf;
 568   }
 569 }
 570
 571 sub cpav {
 572   my $dd = pop @_;
 573   local *P;
 574
 575   die "cpav: $dd is not a directory" unless -d $dd;
 576   open P,"tar cf - @_ | su -c 'cd $dd; umask 022; tar xvf - 2>&1' fex |"
 577     or die "cpav: cannot tar - $!\n";
 578   while (<P>) {
 579     chomp;
 580     print "$_ --> $dd/$_\n" unless /\/$/;
 581   }
 582   close P;
 583 }