--- doc/install/linux/install.pl	2011/03/23 15:01:34	1.5
+++ doc/install/linux/install.pl	2011/04/24 22:44:50	1.10
@@ -72,7 +72,7 @@ if (!open(LOG,">>loncapa_install.log"))
           &mt('Stopping execution.')."\n";
     exit;
 } else {
-    print LOG '$Id: install.pl,v 1.5 2011/03/23 15:01:34 raeburn Exp $'."\n";
+    print LOG '$Id: install.pl,v 1.10 2011/04/24 22:44:50 raeburn Exp $'."\n";
 }
 
 #
@@ -293,7 +293,7 @@ sub check_prerequisites {
             } else {
                 my $line = <PIPE>;
                 chomp($line);
-                if ($line =~ /^LONCAPA-prerequisites\-([\d\-]+)\.(\w+)$/) {
+                if ($line =~ /^LONCAPA\-prerequisites\-([\d\-]+)\.(?:[.\w]+)$/) {
                     $gotprereqs = $1;
                 }
             }
@@ -305,6 +305,50 @@ sub check_prerequisites {
     return $gotprereqs;
 }
 
+sub check_locale {
+    my ($distro) = @_;
+    my ($fh,$langvar,$command);
+    $langvar = 'LANG';
+    if ($distro =~ /^(ubuntu|debian)/) {
+        if (!open($fh,"</etc/default/locale")) {
+            print &mt('Failed to open: [_1], default locale not checked.',
+                      '/etc/default/locale');
+        }
+    } elsif ($distro =~ /^(suse|sles)/) {
+        if (!open($fh,"</etc/sysconfig/language")) {
+            print &mt('Failed to open: [_1], default locale not checked.',
+                      '/etc/sysconfig/language');
+        }
+        $langvar = 'RC_LANG';
+    } else {
+        if (!open($fh,"</etc/sysconfig/i18n")) {
+            print &mt('Failed to open: [_1], default locale not checked.',
+                      '/etc/sysconfig/i18n');
+        }
+    }
+    my @data = <$fh>;
+    chomp(@data);
+    foreach my $item (@data) {
+        if ($item =~ /^\Q$langvar\E=\"([^\"]*)\"/) {
+            my $default = $1;
+            if ($default ne 'en_US.UTF-8') {
+                if ($distro =~ /^debian/) {
+                    $command = 'dpkg-reconfigure locales';
+                } elsif ($distro =~ /^ubuntu/) {
+                    $command = 'sudo set-language-env -E'; 
+                } elsif ($distro =~ /^(suse|sles)/) {
+                    $command = 'yast language'; 
+                } else {
+                    $command = 'system-config-language';
+                }
+            }
+            last;
+        }
+    }
+    close($fh);
+    return $command;
+}
+
 sub check_required {
     my ($instdir,$dsn) = @_;
     my ($distro,$packagecmd,$updatecmd,$installnow) = &get_distro();
@@ -313,7 +357,11 @@ sub check_required {
     }
     my $gotprereqs = &check_prerequisites($packagecmd,$distro); 
     if ($gotprereqs eq '') {
-        return ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow);
+        return ($distro,$gotprereqs);
+    }
+    my $localecmd = &check_locale($distro);
+    unless ($localecmd eq '') {
+        return ($distro,$gotprereqs,$localecmd);
     }
     my ($mysqlon,$mysqlsetup,$dbh,$has_pass,$has_lcdb,%recommended,$downloadstatus,
         $filetouse,$production,$testing,$apachefw,$tostop);
@@ -345,12 +393,12 @@ sub check_required {
         }
     }
     ($recommended{'firewall'},$apachefw) = &chkfirewall($distro);
-    ($recommended{'runlevels'},$tostop) = &chkconfig($distro);
+    ($recommended{'runlevels'},$tostop) = &chkconfig($distro,$instdir);
     $recommended{'apache'} = &chkapache($distro,$instdir);
     $recommended{'stopsrvcs'} = &chksrvcs($distro,$tostop);
     ($recommended{'download'},$downloadstatus,$filetouse,$production,$testing) 
         = &need_download();
-    return ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow,
+    return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
             \%recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,
             $filetouse,$production,$testing,$apachefw);
 }
@@ -361,11 +409,19 @@ sub check_mysql_running {
     if ($distro =~ /^(suse|sles|debian|ubuntu)/) {
         $mysqldaemon = 'mysql';
     }
-    if (open(PIPE,"ps -ef |grep mysqld_safe |grep -v grep 2>&1 |")) {
+    my $process = 'mysqld_safe';
+    my $proc_owner = 'root';
+    if ($distro =~ /^ubuntu(\w+)/) {
+        if ($1 >= 10) {
+            $process = 'mysqld';
+            $proc_owner = 'mysql';
+        }
+    }
+    if (open(PIPE,"ps -ef |grep $process |grep -v grep 2>&1 |")) {
         my $status = <PIPE>;
         close(PIPE);
         chomp($status);
-        if ($status =~ /^root\s+\d+\s+/) {
+        if ($status =~ /^\Q$proc_owner\E\s+\d+\s+/) {
             print_and_log(&mt('MySQL is running.')."\n");
             return 1;
         } else {
@@ -393,55 +449,62 @@ sub check_mysql_running {
 }
 
 sub chkconfig {
-    my ($distro) = @_;
+    my ($distro,$instdir) = @_;
     my (%needfix,%tostop);
     my $checker_bin = '/sbin/chkconfig';
-    my $mysqldaemon ='mysqld';
-    my $webserver = 'httpd';
-    my $cupsdaemon = 'cups';
-    my $ntpdaemon = 'ntpd';
+    my %daemon = (
+                  mysql     => 'mysqld',
+                  apache    => 'httpd',
+                  cups      => 'cups',
+                  ntp       => 'ntpd',
+                  memcached => 'memcached',
+    );
     my @runlevels = qw/3 4 5/;
     my @norunlevels = qw/0 1 6/;
     if ($distro =~ /^(suse|sles)/) {
         @runlevels = qw/3 5/;
         @norunlevels = qw/0 2 1 6/;
-        $mysqldaemon = 'mysql';
-        $webserver = 'apache2';
+        $daemon{'mysql'} = 'mysql';
+        $daemon{'apache'} = 'apache2';
+        $daemon{'ntp'}    = 'ntp';
         if ($distro =~ /^(suse|sles)9/) {
-            $webserver = 'apache';
+            $daemon{'apache'} = 'apache';
         }
-    } elsif ($distro =~ /^(debian|ubuntu)/) {
+    } elsif ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
+        my $version = $1;
         @runlevels = qw/2 3 4 5/;
         @norunlevels = qw/0 1 6/;
         $checker_bin = '/usr/sbin/sysv-rc-conf';
-        $mysqldaemon = 'mysql';
-        $webserver = 'apache2';
-        $ntpdaemon = 'ntp';
+        $daemon{'mysql'}  = 'mysql';
+        $daemon{'apache'} = 'apache2';
+        $daemon{'ntp'}    = 'ntp';
+        if (($distro =~ /^ubuntu/) && ($version <= 8)) {
+            $daemon{'cups'} = 'cupsys';
+        }
     }
     if (! -x $checker_bin) {
-        print &mt('Could not check runlevel status for MySQL or Apache.')."\n";
+        print &mt('Could not check runlevel status for MySQL or Apache')."\n";
         return;
     }
     my $rlstr = join('',@runlevels);
     my $nrlstr = join('',@norunlevels);
-    foreach my $type ('apache','mysql','ntp','cups') {
-        my $service;
-        if ($type eq 'apache') {
-            $service = $webserver;
-        } elsif ($type eq 'mysql') {
-            $service = $mysqldaemon; 
-        } elsif ($type eq 'cups') {
-            $service = $cupsdaemon;
-        } elsif ($type eq 'ntp') {
-            $service = $ntpdaemon;
-        }
+    foreach my $type ('apache','mysql','ntp','cups','memcached') {
+        my $service = $daemon{$type};
         my $command = $checker_bin.' --list '.$service;
+        if ($type eq 'cups') { 
+            if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
+                my $version = $1;
+                if (($distro =~ /^ubuntu/) && ($version <= 8)) {
+                    $command = $checker_bin.' --list cupsys';
+                }
+            }
+        }
         my $results = `$command`;
         my $tofix;
         if ($results eq '') {
-            if (($type eq 'apache') || ($type eq 'mysql')) {
+            if (($type eq 'apache') || ($type eq 'mysql') || ($type eq 'ntp')) {
                 if ($distro  =~ /^(debian|ubuntu)/) {
-                    $tofix = "$checker_bin --level $nrlstr $service off\n";
+                    $tofix = "update-rc.d $type defaults";
                 } else {
                     $tofix = "$checker_bin --add $service\n";
                 }
@@ -479,7 +542,9 @@ sub chkconfig {
             $major = $version;
         }
         if ($major > 10) {
-            $needfix{'insserv'} = &check_SuSEfirewall2_setup();
+            if (&check_SuSEfirewall2_setup($instdir)) {
+                $needfix{'insserv'} = 1;
+            }
         }
     }
     return (\%needfix,\%tostop);
@@ -525,11 +590,11 @@ sub chkapache {
     my ($distro,$instdir) = @_;
     my $fixapache = 1;
     if ($distro =~ /^(debian|ubuntu)/) {
-        if (!-e "$instdir/apache2.conf") {
+        if (!-e "$instdir/debian-ubuntu/apache2.conf") {
             $fixapache = 0;
             print &mt('Warning: No LON-CAPA Apache configuration file found for installation check.')."\n"; 
-        } elsif ((-e "/etc/apache2/sites-available/loncapa") && (-e "$instdir/apache2.conf")) {
-            if (open(PIPE, "diff --brief $instdir/apache2.conf /etc/apache2/sites-available/loncapa |")) {
+        } elsif ((-e "/etc/apache2/sites-available/loncapa") && (-e "$instdir/debian-ubuntu/apache2.conf")) {
+            if (open(PIPE, "diff --brief $instdir/debian-ubuntu/apache2.conf /etc/apache2/sites-available/loncapa |")) {
                 my $diffres = <PIPE>;
                 close(PIPE);
                 chomp($diffres);
@@ -538,16 +603,37 @@ sub chkapache {
                 }
             }
         }
+        if (!$fixapache) {
+            foreach my $module ('headers.load','expires.load') {
+                unless (-l "/etc/apache2/mods-enabled/$module") {
+                    $fixapache = 1;
+                }
+            }
+        }
     } elsif ($distro =~ /^(?:suse|sles)([\d\.]+)$/) {
         my $apache = 'apache';
         if ($1 >= 10) {
-            my $apache = 'apache2';
+            $apache = 'apache2';
+        }
+        if (!-e "$instdir/sles-suse/default-server.conf") {
+            $fixapache = 0;
+            print &mt('Warning: No LON-CAPA Apache configuration file found for installation check.')."\n";
+        } elsif ((-e "/etc/$apache/default-server.conf") && (-e "$instdir/sles-suse/default-server.conf")) {
+            if (open(PIPE, "diff --brief $instdir/sles-suse/default-server.conf /etc/$apache/default-server.conf |")) {
+                my $diffres = <PIPE>;
+                close(PIPE);
+                chomp($diffres);
+                unless ($diffres) {
+                    $fixapache = 0;
+                }
+            }
         }
-        if (!-e "$instdir/default-server.conf") {
+    } elsif ($distro eq 'rhes4') {
+        if (!-e "$instdir/rhes4/httpd.conf") {
             $fixapache = 0;
             print &mt('Warning: No LON-CAPA Apache configuration file found for installation check.')."\n";
-        } elsif ((-e "/etc/$apache/default-server.conf") && (-e "$instdir/default-server.conf")) {
-            if (open(PIPE, "diff --brief $instdir/default-server.conf /etc/$apache/default-server.conf |")) {
+        } elsif ((-e "/etc/httpd/conf/httpd.conf") && (-e "$instdir/rhes4/httpd.conf")) {
+            if (open(PIPE, "diff --brief $instdir/rhes4/httpd.conf /etc/httpd/conf/httpd.conf |")) {
                 my $diffres = <PIPE>;
                 close(PIPE);
                 chomp($diffres);
@@ -557,11 +643,11 @@ sub chkapache {
             }
         }
     } else {
-        if (!-e "$instdir/httpd.conf") {
+        if (!-e "$instdir/centos-rhes-fedora-sl/httpd.conf") {
             $fixapache = 0;
             print &mt('Warning: No LON-CAPA Apache configuration file found for installation check.')."\n";
-        } elsif ((-e "/etc/httpd/conf/httpd.conf") && (-e "$instdir/httpd.conf")) {
-            if (open(PIPE, "diff --brief $instdir/httpd.conf /etc/httpd/conf/httpd.conf |")) {
+        } elsif ((-e "/etc/httpd/conf/httpd.conf") && (-e "$instdir/centos-rhes-fedora-sl/httpd.conf")) {
+            if (open(PIPE, "diff --brief $instdir/centos-rhes-fedora-sl/httpd.conf /etc/httpd/conf/httpd.conf |")) {
                 my $diffres = <PIPE>;
                 close(PIPE);
                 chomp($diffres);
@@ -580,7 +666,7 @@ sub chksrvcs {
     if (ref($tostop) eq 'HASH') {
         %stopsrvcs = %{$tostop};
     }
-    foreach my $service ('cups') {
+    foreach my $service ('cups','memcached') {
         next if (exists($stopsrvcs{$service}));
         my $daemon = $service;
         if ($service eq 'cups') {
@@ -592,10 +678,16 @@ sub chksrvcs {
             chomp($daemonrunning);
             close(PIPE);
             if ($daemonrunning) {
-                $stopsrvcs{$service} = 1;
+                if ($service eq 'memcached') { 
+                    unless ($daemonrunning =~ m{^www[^/]+\Q/usr/sbin/memcached -m 400 -v\E$}) {
+                        $stopsrvcs{$service} = 1;
+                    }
+                } else {
+                    $stopsrvcs{$service} = 1;
+                }
             }
         }
-    } 
+    }
     return \%stopsrvcs;
 }
 
@@ -868,8 +960,8 @@ sub get_mysql_password {
 sub check_SuSEfirewall2_setup {
     my ($instdir) = @_;
     my $need_override = 1;
-    if ((-e "/etc/insserv/overrides/SuSEfirewall2_setup") && (-e "$instdir/SuSEfirewall2_setup")) {
-        if (open(PIPE, "diff --brief $instdir/SuSEfirewall2_setup /etc/insserv/overrides/SuSEfirewall2_setup  |")) {
+    if ((-e "/etc/insserv/overrides/SuSEfirewall2_setup") && (-e "$instdir/sles-suse/SuSEfirewall2_setup")) {
+        if (open(PIPE, "diff --brief $instdir/sles-suse/SuSEfirewall2_setup /etc/insserv/overrides/SuSEfirewall2_setup  |")) {
             my $diffres = <PIPE>;
             close(PIPE);
             chomp($diffres);
@@ -981,7 +1073,7 @@ my %prompts = &texthash(
 print "\n".&mt('Checking system status ...')."\n";
 
 my $dsn = "DBI:mysql:database=mysql";
-my ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow,$recommended,
+my ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$recommended,
     $dbh,$has_pass,$has_lcdb,$downloadstatus,$filetouse,$production,
     $testing,$apachefw) = &check_required($instdir,$dsn);
 if ($distro eq '') {
@@ -992,6 +1084,13 @@ if ($distro eq '') {
           &mt('Stopping execution.')."\n";
     exit;
 }
+if ($localecmd ne '') {
+    print "\n".&mt('Although the LON-CAPA application itself is localized for a number of different languages, the default locale language for the Linux OS on which it runs should be US English.')."\n";
+    print "\n".&mt('Run the following command from the command line to set the default language for your OS, and then run this LON-CAPA installation set-up script again.')."\n\n".
+    $localecmd."\n\n".
+    &mt('Stopping execution.')."\n";
+    exit;
+}
 if (!$gotprereqs) {
     print "\n".&mt('The LONCAPA-prequisites package is not installed.')."\n".
           &mt('The following command can be used to install the package (and dependencies):')."\n\n".
@@ -1011,7 +1110,7 @@ if (!$gotprereqs) {
                           &mt('Stopping execution.')."\n";
                     exit;
                 } else {
-                    ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow,
+                    ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
                      $recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,
                      $filetouse,$production,$testing,$apachefw) = 
                      &check_required($instdir,$dsn);
@@ -1203,7 +1302,7 @@ if ($callsub{'firewall'}) {
 if ($callsub{'stopsrvcs'}) {
     &kill_extra_services($distro,$recommended->{'stopsrvcs'});
 } else {
-    &print_and_log(&mt('Skipping stopping unnecessary service ([_1] daemon).',"'cups'")."\n");
+    &print_and_log(&mt('Skipping stopping unnecessary service ([_1] daemons).',"'cups','memcached'")."\n");
 }
 
 my ($have_tarball,$updateshown);
@@ -1392,19 +1491,27 @@ sub kill_extra_services {
     if (ref($stopsrvcs) eq 'HASH') {
         my @stopping = sort(keys(%{$stopsrvcs}));
         if (@stopping) {
-            my $kill_list = join("',' ",@stopping);
+            my $kill_list = join("', '",@stopping);
             if ($kill_list) {
                 $kill_list = "'".$kill_list."'";
-                &print_and_log("\n".&mt('Killing unneccessary services ([_1] daemon(s)).',$kill_list)."\n");
-                foreach my $daemon (@stopping) {
-                    my $service = $daemon;
-	            &print_and_log(`/etc/init.d/$service stop`);
-	            &print_and_log(&mt('Removing [_1] from startup.',$service)."\n");
-                    if ($daemon eq 'cupsd') {
-                        $service = 'cups';
+                &print_and_log("\n".&mt('Killing unnecessary services ([_1] daemon(s)).',$kill_list)."\n");
+                foreach my $service (@stopping) {
+                    my $daemon = $service;
+                    if ($service eq 'cups') {
+                        $daemon = 'cupsd';
+                        if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
+                            my $version = $1;
+                            if (($distro =~ /^ubuntu/) && ($version <= 8)) {
+                                $daemon = 'cupsys';
+                            }
+                        } elsif ($distro =~ /^(?:suse|sles)/) {
+                            $daemon = 'cups';
+                        }
                     }
+	            &print_and_log(`/etc/init.d/$daemon stop`);
+	            &print_and_log(&mt('Removing [_1] from startup.',$service)."\n");
                     if ($distro =~ /^(debian|ubuntu)/) {
-                        &print_and_log(`/usr/sbin/sysv-rc-conf $service off`);
+                        &print_and_log(`update-rc.d -f $daemon remove`);
                     } else {
 	                &print_and_log(`chkconfig --del $service`);
                     }
@@ -1572,17 +1679,25 @@ sub copy_httpd_conf {
 sub copy_apache2_debconf {
     my ($instdir) = @_;
     print_and_log(&mt('Copying loncapa [_1] config file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'000-default symlink'")."\n");
-    my $apache2_enabled_dir = '/etc/apache2/sites-enabled';
-    my $apache2_available_dir = '/etc/apache2/sites-available';
-    if (-l "$apache2_enabled_dir/000-default") {
-        unlink("$apache2_enabled_dir/000-default");
-    }
-    if (-e "$apache2_available_dir/loncapa") {
-        copy("$apache2_available_dir/loncapa","$apache2_available_dir/loncapa.original");
-    }
-    copy("$instdir/apache2.conf","$apache2_available_dir/loncapa");
-    chmod(0444,"$apache2_available_dir/loncapa");
-    symlink("$apache2_available_dir/loncapa","$apache2_enabled_dir/000-default");
+    my $apache2_sites_enabled_dir = '/etc/apache2/sites-enabled';
+    my $apache2_sites_available_dir = '/etc/apache2/sites-available';
+    if (-l "$apache2_sites_enabled_dir/000-default") {
+        unlink("$apache2_sites_enabled_dir/000-default");
+    }
+    if (-e "$apache2_sites_available_dir/loncapa") {
+        copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.original");
+    }
+    copy("$instdir/debian-ubuntu/apache2.conf","$apache2_sites_available_dir/loncapa");
+    chmod(0444,"$apache2_sites_available_dir/loncapa");
+    symlink("$apache2_sites_available_dir/loncapa","$apache2_sites_enabled_dir/000-default");
+    my $apache2_mods_enabled_dir = '/etc/apache2/mods-enabled';
+    my $apache2_mods_available_dir = '/etc/apache2/mods-available';
+    foreach my $module ('headers.load','expires.load') {
+        unless (-l "$apache2_mods_enabled_dir/$module") {
+            symlink("$apache2_mods_available_dir/$module","$apache2_mods_enabled_dir/$module");
+            print_and_log(&mt('Enabling "[_1]" Apache module.',$module)."\n");
+        }
+    }
     print_and_log("\n");
 }
 
@@ -1602,7 +1717,7 @@ sub copy_apache2_suseconf {
     if (!-e "/etc/apache2/default-server.conf.original") {
         copy "/etc/apache2/default-server.conf","/etc/apache2/default-server.conf.original";
     }
-    copy "$instdir/default-server.conf","/etc/apache2/default-server.conf";
+    copy "$instdir/sles-suse/default-server.conf","/etc/apache2/default-server.conf";
     chmod(0444,"/etc/apache2/default-server.conf");
     # Make symlink for conf directory (included in loncapa_apache.conf)
     my $can_symlink = (eval { symlink('/etc/apache2','/srv/www/conf'); }, $@ eq '');
@@ -1629,7 +1744,7 @@ sub copy_apache2_conf_files {
     if (!-e "/etc/apache2/uid.conf.original") {
         copy "/etc/apache2/uid.conf","/etc/apache2/uid.conf.original";
     }
-    copy "$instdir/uid.conf","/etc/apache2/uid.conf";
+    copy "$instdir/sles-suse/uid.conf","/etc/apache2/uid.conf";
     chmod(0444,"/etc/apache2/uid.conf");
 }
 
@@ -1644,7 +1759,7 @@ sub copy_sysconfig_apache2_file {
     if (!-e "/etc/sysconfig/apache2.original") {
         copy "/etc/sysconfig/apache2","/etc/sysconfig/apache2.original";
     }
-    copy "$instdir/sysconfig_apache2","/etc/sysconfig/apache2";
+    copy "$instdir/sles-suse/sysconfig_apache2","/etc/sysconfig/apache2";
     chmod(0444,"/etc/sysconfig/apache2");
 }
 
@@ -1667,7 +1782,7 @@ sub update_SuSEfirewall2_setup {
     } elsif (!-e  "/etc/insserv/overrides/SuSEfirewall2_setup.original") {
         copy "/etc/insserv/overrides/SuSEfirewall2_setup","/etc/insserv/overrides/SuSEfirewall2_setup.original"
     }
-    copy "$instdir/SuSEfirewall2_setup","/etc/insserv/overrides/SuSEfirewall2_setup";
+    copy "$instdir/sles-suse/SuSEfirewall2_setup","/etc/insserv/overrides/SuSEfirewall2_setup";
     chmod(0444,"/etc/insserv/overrides/SuSEfirewall2_setup");
 }
 
@@ -1694,7 +1809,7 @@ sub get_iptables_rules {
     }
     my $ask_to_enable;
     if (-e "/etc/iptables.loncapa.rules") {
-        if (open(PIPE, "diff --brief $instdir/debian/iptables.loncapa.rules /etc/iptables.loncapa.rules |")) {
+        if (open(PIPE, "diff --brief $instdir/debian-ubuntu/iptables.loncapa.rules /etc/iptables.loncapa.rules |")) {
             my $diffres = <PIPE>;
             close(PIPE);
             chomp($diffres);
@@ -1705,14 +1820,14 @@ sub get_iptables_rules {
             print &mt('Error: unable to open [_1] to compare contents with LON-CAPA supplied file.','/etc/iptables.loncapa.rules')."\n";
         }
     } else {
-        if (-e "$instdir/debian/iptables.loncapa.rules") {
-            copy "$instdir/debian/iptables.loncapa.rules","/etc/iptables.loncapa.rules";
+        if (-e "$instdir/debian-ubuntu/iptables.loncapa.rules") {
+            copy "$instdir/debian-ubuntu/iptables.loncapa.rules","/etc/iptables.loncapa.rules";
             chmod(0600,"/etc/iptables.loncapa.rules");
         }
     }
     if (-e "/etc/iptables.loncapa.rules") {
         if (-e "/etc/network/if-pre-up.d/iptables") {
-            if (open(PIPE, "diff --brief $instdir/debian/iptables /etc/network/if-pre-up/iptables |")) {
+            if (open(PIPE, "diff --brief $instdir/debian-ubuntu/iptables /etc/network/if-pre-up/iptables |")) {
                 my $diffres = <PIPE>;
                 close(PIPE);
                 chomp($diffres);
@@ -1723,7 +1838,7 @@ sub get_iptables_rules {
                 print &mt('Error: unable to open [_1] to compare contents with LON-CAPA supplied file.','/etc/network/if-pre-up.d/iptables')."\n";
             }
         } else {
-            copy "$instdir/debian/iptables","/etc/network/if-pre-up.d/iptables";
+            copy "$instdir/debian-ubuntu/iptables","/etc/network/if-pre-up.d/iptables";
             chmod(0755,"/etc/network/if-pre-up.d/iptables");
             print_and_log(&mt('Installed script "[_1]" to add iptables rules to block all ports except 22, 80, and 443 when network is enabled during boot.','/etc/network/if-pre-up.d/iptables'));
             $ask_to_enable = 1;