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 }