Return to removenolongerused.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

- For 2.11
  - Backport 1.11

<piml>
<targetroot>/</targetroot>
<files>
<file>
<target dist="default"></target>
<perlscript mode="fg">

use File::Path();

my %paths = (
              'londaemons' =&gt; '/home/httpd/perl',
              'apache'     =&gt; '/home/httpd/lib/perl/Apache',
              'londocroot' =&gt; '/home/httpd/html',
              'debug'      =&gt; '/home/httpd/perl/debug',
            );
 
my %files = (
              'londaemons' =&gt; ['lonManage','lchtmldir','lonhttpd','lcuseradd','lonc'],
              'apache'     =&gt; ['londropadd.pm','lonconstruct.pm',
                               'admbookmarks.pm','lonassignments.pm'],
              'londocroot' =&gt; ['adm/rat/extpickcode.html',
                               'adm/rat/extpickframe.html',
                               'adm/help/gif/vbkm.gif',
                               'adm/help/eps/vbkm.eps'],
              'debug'      =&gt; ['archive_coursedata_tables.pl'],
            );

my %dirs = (
              'londocroot' =&gt; ['htmlarea',
                                  'res/adm/pages/bookmarkmenu'],
           );

my @filestodelete = ();
my @dirstodelete = ();
foreach my $key (sort(keys(%files))) {
    if ($paths{$key} ne '') {
        if (ref($files{$key}) eq 'ARRAY') {
            foreach my $file (@{$files{$key}}) {
                if (($file ne '') && (-f $paths{$key}.'/'.$file)) {
                    push(@filestodelete,$paths{$key}.'/'.$file);
                }
            }
        }
    }
}

foreach my $key (sort(keys(%dirs))) {
    if ($paths{$key} ne '') {
        if (ref($dirs{$key}) eq 'ARRAY') {
            foreach my $dir (@{$dirs{$key}}) {
                if (($dir ne '') && (-d $paths{$key}.'/'.$dir)) {
                    push(@dirstodelete,$paths{$key}.'/'.$dir);
                }
            }
        }
    }
}

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";
    foreach my $dir (@dirstodelete) {
        next if (($dir =~/\*/) || ($dir eq '') || ($dir eq '/'));  
        print "$dir  -- delete? Enter: Y or N:\n";
        my $choice=&lt;&gt;;
        chomp($choice);
        $choice =~ s/\s+//g;
        if ($choice eq 'Y') {
            File::Path::rmtree($dir);
        }
    }
}

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";
    foreach my $file (@filestodelete) {
        next if (($file =~/\*/) || ($file eq '') || ($file eq '/'));
        print "$file -- remove? Enter? Y or N:\n";
        my $choice=&lt;&gt;;
        chomp($choice);
        $choice =~ s/\s+//g;
        if ($choice eq 'Y') {
            unlink($file);
        }
    }
}

</perlscript>
</file>
</files>
</piml>

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.