Annotation of doc/loncapafiles/removenolongerused.piml, revision 1.14

1.1       raeburn     1: <piml>
                      2: <targetroot>/</targetroot>
                      3: <files>
                      4: <file>
                      5: <target dist="default"></target>
                      6: <perlscript mode="fg">
                      7: 
1.2       raeburn     8: use File::Path();
1.1       raeburn     9: 
                     10: my @rcgifs = qw(anno.gif anot.gif anot2.gif back.gif bchat.gif bkm.gif blog.gif brws.gif catalog.gif ccat.gif ccrs.gif chrt.gif clst.gif com.gif conf.gif courses.gif cprv.gif cstr.gif del.gif docs.gif egrd.gif enrl.gif eval.gif fdbk.gif forw.gif grds.gif grps.gif keys.gif ledsend.gif list.gif logout.gif mail.gif mcrs.gif mrk.gif nav.gif new.gif parm.gif pcsrt.gif pcstr.gif pdfupload.gif pgrd.gif port.gif pparm.gif pref.gif prt.gif pub.gif rcrs.gif reload.gif remotebg.gif res.gif roles.gif rsrv.gif rtrv.gif sbkm.gif sctr.gif spacer.gif sprs.gif src.gif srvr.gif stat.gif subm.gif title.gif vbkm.gif);
                     11: 
                     12: my %paths = (
                     13:               'londaemons' =&gt; '/home/httpd/perl',
                     14:               'apache'     =&gt; '/home/httpd/lib/perl/Apache',
                     15:               'londocroot' =&gt; '/home/httpd/html',
                     16:               'rcgifs'     =&gt; '/home/httpd/html/res/adm/pages',
1.9       raeburn    17:               'debug'      =&gt; '/home/httpd/perl/debug',
1.1       raeburn    18:             );
                     19:  
                     20: my %files = (
1.5       raeburn    21:               'londaemons' =&gt; ['lonManage','lchtmldir','lonhttpd','lcuseradd','lonc'],
1.1       raeburn    22:               'apache'     =&gt; ['londropadd.pm','lonconstruct.pm',
1.6       raeburn    23:                                'lonremote.pm','admbookmarks.pm','lonassignments.pm'],
1.1       raeburn    24:               'londocroot' =&gt; ['adm/rat/extpickcode.html',
                     25:                                'adm/rat/extpickframe.html',
                     26:                                'res/adm/pages/imgmaps.html',
                     27:                                'res/adm/pages/menu.html',
1.7       raeburn    28:                                'res/adm/pages/homeworkmenu.html',
                     29:                                'adm/help/gif/vbkm.gif',
1.14    ! raeburn    30:                                'adm/help/eps/vbkm.eps',
        !            31:                                'adm/jQuery/js/jquery-1.3.2.min.js',
        !            32:                                'adm/jQuery/js/jquery-1.6.2.min.js',
        !            33:                                'adm/jQuery/js/jquery-1.11.3.min.js',
        !            34:                                'adm/jQuery/js/jquery-ui-1.7.2.custom.min.js',
        !            35:                                'adm/jQuery/js/jquery-ui-1.8.16.custom.min.js',
        !            36:                                'adm/jQuery/js/jquery-ui-1.11.4.custom.min.js',
        !            37:                                'adm/jQuery/css/smoothness/jquery-ui-1.7.2.custom.css',
        !            38:                                'adm/jQuery/css/smoothness/jquery-ui-1.8.16.custom.css',
        !            39:                                'adm/jQuery/js/css/smoothness/jquery-ui-1.11.4.custom.css'],
1.9       raeburn    40:               'debug'      =&gt; ['archive_coursedata_tables.pl'],
1.1       raeburn    41:             );
                     42: 
                     43: my %dirs = (
1.10      raeburn    44:               'londocroot' =&gt; ['adm/lonLCDfont',
                     45:                                   'htmlarea',
1.12      raeburn    46:                                   'res/adm/pages/bookmarkmenu',
1.13      raeburn    47:                                   'res/adm/pages/reactionresponse',
1.14    ! raeburn    48:                                   'adm/jsMath',
        !            49:                                   'adm/jQuery/css/ui-lightness'],
1.1       raeburn    50:            );
                     51: 
                     52: my %multis = (
1.8       raeburn    53:                 'rcgifs'     =&gt; \@rcgifs,
1.1       raeburn    54:              ); 
                     55: my @filestodelete = ();
                     56: my @dirstodelete = ();
                     57: my @multistodelete = ();
                     58: my @gifstodelete = ();
                     59: foreach my $key (sort(keys(%files))) {
                     60:     if ($paths{$key} ne '') {
                     61:         if (ref($files{$key}) eq 'ARRAY') {
                     62:             foreach my $file (@{$files{$key}}) {
1.10      raeburn    63:                 if (($file ne '') && (-f $paths{$key}.'/'.$file)) {
1.1       raeburn    64:                     push(@filestodelete,$paths{$key}.'/'.$file);
                     65:                 }
                     66:             }
                     67:         }
                     68:     }
                     69: }
                     70: 
                     71: foreach my $key (sort(keys(%dirs))) {
                     72:     if ($paths{$key} ne '') {
                     73:         if (ref($dirs{$key}) eq 'ARRAY') {
                     74:             foreach my $dir (@{$dirs{$key}}) {
1.10      raeburn    75:                 if (($dir ne '') && (-d $paths{$key}.'/'.$dir)) {
1.1       raeburn    76:                     push(@dirstodelete,$paths{$key}.'/'.$dir);
                     77:                 }
                     78:             }
                     79:         }
                     80:     }
                     81: }
                     82: 
                     83: foreach my $key (sort(keys(%multis))) {
                     84:     if ($paths{$key} ne '') {
                     85:         if (ref($multis{$key}) eq 'ARRAY') {
                     86:             foreach my $file (@{$dirs{$key}}) {
                     87:                 if (-f $paths{$key}.'/'.$file) {
                     88:                     push(@multistodelete,$paths{$key}.'/'.$file);
                     89:                     push(@gifstodelete,$file);
                     90:                 }
                     91:             }
                     92:         }
                     93:     }
                     94: }
                     95: 
                     96: if (@dirstodelete > 0) {
                     97:     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";
                     98:     foreach my $dir (@dirstodelete) {
1.2       raeburn    99:         next if (($dir =~/\*/) || ($dir eq '') || ($dir eq '/'));  
1.1       raeburn   100:         print "$dir  -- delete? Enter: Y or N:\n";
                    101:         my $choice=&lt;&gt;;
                    102:         chomp($choice);
1.3       raeburn   103:         $choice =~ s/\s+//g;
1.2       raeburn   104:         if ($choice eq 'Y') {
1.11      raeburn   105:             File::Path::rmtree($dir);
1.1       raeburn   106:         }
                    107:     }
                    108: }
                    109: 
                    110: if (@filestodelete > 0) {
                    111:    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";
                    112:     foreach my $file (@filestodelete) {
1.2       raeburn   113:         next if (($file =~/\*/) || ($file eq '') || ($file eq '/'));
1.1       raeburn   114:         print "$file -- remove? Enter? Y or N:\n";
                    115:         my $choice=&lt;&gt;;
                    116:         chomp($choice);
1.2       raeburn   117:         $choice =~ s/\s+//g;
                    118:         if ($choice eq 'Y') {
1.1       raeburn   119:             unlink($file);
                    120:         }
                    121:     }
                    122: }
                    123: 
                    124: if (@multistodelete > 0) {
                    125:     my $num = scalar(@multistodelete);
                    126:     print "\nThe following $num gif image files were installed in $paths{rcgifs}/ for use with the LON-CAPA Remote Control (available in an earlier version of LON-CAPA), and now no longer used:\n".join(' ',@gifstodelete)."\n".
                    127:           "Enter Y if you would all $num files to be deleted.\n\n".
                    128:           "Remove? Y or N:\n";
                    129:     my $choice=&lt;&gt;;
                    130:     chomp($choice);
1.2       raeburn   131:     $choice =~ s/\s+//g;
                    132:     if ($choice eq 'Y') {
1.1       raeburn   133:         foreach my $item (@multistodelete) {
1.8       raeburn   134:             next if (($item =~/\*/) || ($item eq '') || ($item eq '/'));
1.1       raeburn   135:             unlink($item);
                    136:         }
                    137:     }
                    138: }
                    139: 
                    140: </perlscript>
                    141: </file>
                    142: </files>
                    143: </piml>

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