Original release 20160919

[fex.git] / install

diff --git a/install b/install
index 9c49c06cf4d54193ba27a1ebc6aec17ddfadeec1..c300815685cafff88ce63e82f0cd9ca5b3dd18d1 100755 (executable)
--- a/install
+++ b/install
@@ -7,6 +7,8 @@ use Socket;
 use IO::Socket::INET;
 use Digest::MD5        'md5_hex';
 
 use IO::Socket::INET;
 use Digest::MD5        'md5_hex';
 

+our (@local_rdomains,@local_rhosts);
+

 $ENV{PATH} .= ':/sbin:/usr/sbin';
 
 $usage = "usage: $0 [-p port] [IP-address]\n";
 $ENV{PATH} .= ':/sbin:/usr/sbin';
 
 $usage = "usage: $0 [-p port] [IP-address]\n";


@@ -23,6 +25,9 @@ if (system("host $fex >/dev/null") != 0) {
   die "host $fex is not resolvable - check /etc/resolv.conf\n";
 }
 
   die "host $fex is not resolvable - check /etc/resolv.conf\n";
 }
 

+# $fexupdate = '/root/bin/fexupdate';
+# die "found $fexupdate\n" if -x $fexupdate;
+

 $opt_p = 80;
 
 if (open $xinetd,$xinetd) {
 $opt_p = 80;
 
 if (open $xinetd,$xinetd) {


@@ -63,8 +68,10 @@ if (not $ip and open P,'host $(hostname)|') {
     }
   }
   close P;
     }
   }
   close P;

-  print "Your IP [$guessed_ip] : ";
-  chomp($ip = <STDIN>);
+  unless (-f $xinetd) {
+    print "Your IP [$guessed_ip] : ";
+    chomp($ip = <STDIN>);
+  }

   $ip ||= $guessed_ip;
 }
 
   $ip ||= $guessed_ip;
 }
 


@@ -119,7 +126,14 @@ print "prerequisites checked, ok\n";
 
 unless (getpwnam('fex')) {
   print "creating user fex\n";
 
 unless (getpwnam('fex')) {
   print "creating user fex\n";

-  system 'useradd -s /bin/bash -c "File EXchange" -m fex';
+  system 'groupadd --system fex 2>/dev/null || groupadd fex';
+  my @g = getgrnam('fex') or die "$0: cannot groupadd fex\n";
+  my $gid = $g[2];
+  if (getpwuid($gid)) {
+    system "useradd -s /bin/bash -c 'File EXchange' -g $gid -m fex"
+  } else {
+    system "useradd -s /bin/bash -c 'File EXchange' -u $gid -g $gid -m fex"
+  }

   exit $? if $?;
 }
 
   exit $? if $?;
 }
 


@@ -149,6 +163,12 @@ if ($FEXHOME !~ /fex/) {
   exit unless /^y/i;
 }
 
   exit unless /^y/i;
 }
 

+# old bug fix
+if (-d "$FEXHOME/htdocs/locale") {
+  chmod 0755,"$FEXHOME/htdocs/locale";
+  chmod 0755,grep { -d $_ } glob("$FEXHOME/locale/*/htdocs");
+}
+

 print "Installing:\n";
 
 $pecl = "$FEXHOME/perl/Encode/ConfigLocal.pm";
 print "Installing:\n";
 
 $pecl = "$FEXHOME/perl/Encode/ConfigLocal.pm";


@@ -161,7 +181,7 @@ unless (-f $pecl) {
     "1;\n";
   close $pecl;
   print $pecl,"\n";
     "1;\n";
   close $pecl;
   print $pecl,"\n";

-  chownr('fex:root',"$FEXHOME/perl");
+  chownr('fex:0',"$FEXHOME/perl");

 }
 
 @save = (
 }
 
 @save = (


@@ -209,8 +229,20 @@ if (-d "$FEXHOME/spool") {
   mkdir "$FEXHOME/spool",0700 or die "cannot mkdir $FEXHOME/spool - $!\n";
   mkdir "$FEXHOME/spool/.error",0700;
 }
   mkdir "$FEXHOME/spool",0700 or die "cannot mkdir $FEXHOME/spool - $!\n";
   mkdir "$FEXHOME/spool/.error",0700;
 }

+foreach my $dir (qw'.dkeys .ukeys .akeys .skeys .gkeys .xkeys .locks') {
+  mkdir "$FEXHOME/spool/$dir",0700;
+}
+  

 chownr('fex',"$FEXHOME/spool/.");
 
 chownr('fex',"$FEXHOME/spool/.");
 

+# fex-VM?
+if (open my $setup,'/root/bin/setup') {
+  while (<$setup>) {
+    exit if /#.*X-VM/;  
+  }
+  close $setup;
+}
+

 system(qw'perl -p -i -e',
   's:href="/?FAQ.html":href="/FAQ/FAQ.html":',
   "$FEXHOME/lib/fup.pl"
 system(qw'perl -p -i -e',
   's:href="/?FAQ.html":href="/FAQ/FAQ.html":',
   "$FEXHOME/lib/fup.pl"


@@ -226,7 +258,8 @@ close $fph;
 
 eval $conf;
 
 
 eval $conf;
 

-die "no \$spooldir in $fph\n" unless $spooldir;
+# die "no \$spooldir in $fph\n" unless $spooldir;
+$spooldir ||= '/home/fex/spool';

 die "\$spooldir=$spooldir is not a directory, see $fph\n" unless -d $spooldir;
 symlink $spooldir,"$FEXHOME/spool" unless -e "$FEXHOME/spool";
 @sds1 = stat "$spooldir/.";
 die "\$spooldir=$spooldir is not a directory, see $fph\n" unless -d $spooldir;
 symlink $spooldir,"$FEXHOME/spool" unless -e "$FEXHOME/spool";
 @sds1 = stat "$spooldir/.";


@@ -256,6 +289,7 @@ if ($newinstall or not -s $aa) {
     last if $admin =~ /.\@./;
     print "admin must be a valid email address!\n";
   }
     last if $admin =~ /.\@./;
     print "admin must be a valid email address!\n";
   }

+  $aa = "$spooldir/$admin/@";

   while (not $admin_pw) {
     print "F*EX admin password: ";
     $admin_pw = <STDIN>;
   while (not $admin_pw) {
     print "F*EX admin password: ";
     $admin_pw = <STDIN>;


@@ -302,6 +336,7 @@ if (@locales = glob "locale/*/lib/fup.pl") {
       chownr('fex',"$FEXHOME/locale/$locale");
       $hl = "$FEXHOME/htdocs/locale/$locale";
       symlink "$FEXHOME/locale/$locale/htdocs",$hl unless -l $hl;
       chownr('fex',"$FEXHOME/locale/$locale");
       $hl = "$FEXHOME/htdocs/locale/$locale";
       symlink "$FEXHOME/locale/$locale/htdocs",$hl unless -l $hl;

+      chownr('fex',"$FEXHOME/htdocs/locale/$locale");

     } else { 
       push @nlocales,"./install $1\n";
     }
     } else { 
       push @nlocales,"./install $1\n";
     }


@@ -353,12 +388,13 @@ unless (-f $xinetd) {
   if ($crontab !~ /fex_cleanup/) {
     open $crontab,">fex.cron" or die "cannot create fex.cron - $!\n";
     print {$crontab} $crontab,"\n";
   if ($crontab !~ /fex_cleanup/) {
     open $crontab,">fex.cron" or die "cannot create fex.cron - $!\n";
     print {$crontab} $crontab,"\n";

+    print {$crontab} " 3 2 * * * exec $FEXHOME/bin/backup\n";

     print {$crontab} " 3 3 * * * exec $FEXHOME/bin/fex_cleanup\n";
     close $crontab;
     print {$crontab} " 3 3 * * * exec $FEXHOME/bin/fex_cleanup\n";
     close $crontab;

-    system qw(crontab -u fex fex.cron);
+    system qw'crontab -u fex fex.cron';

   }
 
   }
 

-  chownr('fex:root',"$FEXHOME $FEXHOME/spool/.");
+  chownr('fex:0',$FEXHOME,"$FEXHOME/spool/.","$FEXHOME/htdocs/.");

   chmodr('go-r',"$FEXHOME/lib","$FEXHOME/cgi-bin","$FEXHOME/spool/.");
 
   print "\n";
   chmodr('go-r',"$FEXHOME/lib","$FEXHOME/cgi-bin","$FEXHOME/spool/.");
 
   print "\n";


@@ -378,12 +414,12 @@ unless (-f $xinetd) {
 
 if (@local_rdomains and not @local_rhosts) {
   print "\nWARNING:\n";
 
 if (@local_rdomains and not @local_rhosts) {
   print "\nWARNING:\n";

-  print "In $fph you have @local_rdomains but not @local_rhosts!\n";
+  print "In $fph you have \@local_rdomains but not \@local_rhosts!\n";

   print "Selfregistrating of external users will not work!\n";
   print "See ${fph}_new/\n";
 }
 
   print "Selfregistrating of external users will not work!\n";
   print "See ${fph}_new/\n";
 }
 

-if (`$sendmail -h 2>&1` =~ /exim/ and 
+if (`$sendmail -h 2>&1 </dev/null` =~ /exim/ and 

     `grep trusted_users /etc/exim4/exim4.conf 2>/dev/null` !~ /\bfex\b/) {
   print "\nWARNING:\n";
   print "$sendmail is exim\n";
     `grep trusted_users /etc/exim4/exim4.conf 2>/dev/null` !~ /\bfex\b/) {
   print "\nWARNING:\n";
   print "$sendmail is exim\n";