[LON-CAPA-cvs] cvs: doc(version_2_11_X) /loncapafiles removenolongerused.piml

raeburn raeburn at source.lon-capa.org
Fri Jun 20 15:25:41 EDT 2014


raeburn		Fri Jun 20 19:25:41 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /doc/loncapafiles	removenolongerused.piml 
  Log:
  - For 2.11
    - Backport 1.9, 1.10
  
  
Index: doc/loncapafiles/removenolongerused.piml
diff -u doc/loncapafiles/removenolongerused.piml:1.1.2.6 doc/loncapafiles/removenolongerused.piml:1.1.2.7
--- doc/loncapafiles/removenolongerused.piml:1.1.2.6	Sun Sep 22 18:31:55 2013
+++ doc/loncapafiles/removenolongerused.piml	Fri Jun 20 19:25:41 2014
@@ -11,6 +11,7 @@
               'londaemons' => '/home/httpd/perl',
               'apache'     => '/home/httpd/lib/perl/Apache',
               'londocroot' => '/home/httpd/html',
+              'debug'      => '/home/httpd/perl/debug',
             );
  
 my %files = (
@@ -21,11 +22,12 @@
                                'adm/rat/extpickframe.html',
                                'adm/help/gif/vbkm.gif',
                                'adm/help/eps/vbkm.eps'],
+              'debug'      => ['archive_coursedata_tables.pl'],
             );
 
 my %dirs = (
-              'londocroot' => 'htmlarea',
-                              'res/adm/pages/bookmarkmenu',
+              'londocroot' => ['htmlarea',
+                                  'res/adm/pages/bookmarkmenu'],
            );
 
 my @filestodelete = ();
@@ -34,7 +36,7 @@
     if ($paths{$key} ne '') {
         if (ref($files{$key}) eq 'ARRAY') {
             foreach my $file (@{$files{$key}}) {
-                if (-f $paths{$key}.'/'.$file) {
+                if (($file ne '') && (-f $paths{$key}.'/'.$file)) {
                     push(@filestodelete,$paths{$key}.'/'.$file);
                 }
             }
@@ -46,7 +48,7 @@
     if ($paths{$key} ne '') {
         if (ref($dirs{$key}) eq 'ARRAY') {
             foreach my $dir (@{$dirs{$key}}) {
-                if (-d $paths{$key}.'/'.$dir) {
+                if (($dir ne '') && (-d $paths{$key}.'/'.$dir)) {
                     push(@dirstodelete,$paths{$key}.'/'.$dir);
                 }
             }




More information about the LON-CAPA-cvs mailing list