Diff for /doc/loncapafiles/removenolongerused.piml between versions 1.1.2.1 and 1.1.2.3

version 1.1.2.1, 2013/08/07 18:30:49 version 1.1.2.3, 2013/08/10 03:13:01
Line 5 Line 5
 <target dist="default"></target>  <target dist="default"></target>
 <perlscript mode="fg">  <perlscript mode="fg">
   
 use File::Path qw(remove_tree);  use File::Path();
   
 my %paths = (  my %paths = (
               'londaemons' =&gt; '/home/httpd/perl',                'londaemons' =&gt; '/home/httpd/perl',
Line 14  my %paths = ( Line 14  my %paths = (
             );              );
     
 my %files = (  my %files = (
               'londaemons' =&gt; ['lonManage','lchtmldir','lonhttpd'],                'londaemons' =&gt; ['lonManage','lchtmldir','lonhttpd','lcuseradd'],
               'apache'     =&gt; ['londropadd.pm','lonconstruct.pm',                'apache'     =&gt; ['londropadd.pm','lonconstruct.pm',
                                'admbookmarks.pm'],                                 'admbookmarks.pm'],
               'londocroot' =&gt; ['adm/rat/extpickcode.html',                'londocroot' =&gt; ['adm/rat/extpickcode.html',
Line 55  foreach my $key (sort(keys(%dirs))) { Line 55  foreach my $key (sort(keys(%dirs))) {
 if (@dirstodelete > 0) {  if (@dirstodelete > 0) {
     print "\nThe following directories were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the directory to be deleted.\n\n";      print "\nThe following directories were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the directory to be deleted.\n\n";
     foreach my $dir (@dirstodelete) {      foreach my $dir (@dirstodelete) {
         next if (($dir =~/*/) || ($dir eq '') || ($dir eq '/'));            next if (($dir =~/\*/) || ($dir eq '') || ($dir eq '/'));  
         print "$dir  -- delete? Enter: Y or N:\n";          print "$dir  -- delete? Enter: Y or N:\n";
         my $choice=&lt;&gt;;          my $choice=&lt;&gt;;
         chomp($choice);          chomp($choice);
         if ($choice==Y) {          $choice =~ s/\s+//g;
             remove_tree($dir);          if ($choice eq 'Y') {
               File::Path::remove_tree($dir);
         }          }
     }      }
 }  }
Line 68  if (@dirstodelete > 0) { Line 69  if (@dirstodelete > 0) {
 if (@filestodelete > 0) {  if (@filestodelete > 0) {
    print "\nThe following files were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the file to be deleted.\n\n";     print "\nThe following files were installed for an earlier version of LON-CAPA, and are no longer needed. It is recommended that you delete them. For each one, enter Y if you would the file to be deleted.\n\n";
     foreach my $file (@filestodelete) {      foreach my $file (@filestodelete) {
         next if (($file =~/*/) || ($file eq '') || ($file eq '/'));          next if (($file =~/\*/) || ($file eq '') || ($file eq '/'));
         print "$file -- remove? Enter? Y or N:\n";          print "$file -- remove? Enter? Y or N:\n";
         my $choice=&lt;&gt;;          my $choice=&lt;&gt;;
         chomp($choice);          chomp($choice);
         if ($choice==Y) {          $choice =~ s/\s+//g;
           if ($choice eq 'Y') {
             unlink($file);              unlink($file);
         }          }
     }      }

Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>