File:  [LON-CAPA] / doc / loncapafiles / removenolongerused.piml
Revision 1.1.2.5: download - view: text, annotated - select for diffs
Sat Aug 31 00:29:28 2013 UTC (10 years, 6 months ago) by raeburn
Branches: version_2_11_X
CVS tags: version_2_11_0_RC1
- For 2.11
  - Backport 1.6

<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',
            );
 
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'],
            );

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 (-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 (-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::remove_tree($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>

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