--- loncom/build/Attic/postinstall.pl	2000/11/21 15:08:19	1.6
+++ loncom/build/Attic/postinstall.pl	2000/11/21 15:43:53	1.8
@@ -23,7 +23,23 @@ system('sh','./remove_extra.sh');
 
 # download FinalRPMS and install
 system('wget','-r','http://install.lon-capa.org/3.1/FinalRPMS');
-system('rpm','-Uvh','--force','install.lon-capa.org/3.1/FinalRPMS/*.rpm');
+system('rpm -Uvh --force install.lon-capa.org/3.1/FinalRPMS/*.rpm');
+
+my $okay=0;
+DEV: while ($okay==0) {
+    print "\n\nWill this machine be used to develop future LON-CAPA software? (y/n)\n";
+    my $input=<>;
+    if ($input=~/^y/i) {
+        $okay=1;
+    }
+    elsif ($input=~/^n/i) {
+	last DEV;
+    }
+}
+if (!$okay) {
+    system('wget','http://install.lon-capa.org/3.1/scripts/remove_extra_dev.sh');
+    system('sh','./remove_extra_dev.sh');
+}
 
 # allow entry of new access.conf parameters
 my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
@@ -65,7 +81,7 @@ instructors, or any other class of user.
 END
 	     );
 my $template=`/bin/cat /etc/httpd/conf/access.conf`;
-my $okay=0;
+$okay=0;
 while ($okay==0) {
     foreach my $psv (@perlsetvars) {
         print "\n";
@@ -195,7 +211,7 @@ print OUT <<END;
 AFPD_MAX_CLIENTS=5
 # Change this to set the machine's atalk name:
 # ATALK_NAME=`echo \${HOSTNAME}|cut -d. -f1`
-ATALK_NAME=`grep '^PerlSetVar.*lonHostID' /etc/httpd/conf/access.conf | perl -e '\$_=<>; split(/\s+/); print "LONCAPA_\$_[2]";
+ATALK_NAME=`grep '^PerlSetVar.*lonHostID' /etc/httpd/conf/access.conf | perl -e '\$_=<>; split(/\\s+/); print "LONCAPA_\$_[2]";
 '`
 # Set which daemons to run:
 PAPD_RUN=no