--- loncom/build/Attic/postinstall.pl	2000/11/21 15:08:19	1.6
+++ loncom/build/Attic/postinstall.pl	2000/11/21 15:22:29	1.7
@@ -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";