[Bio] / FigKernelPackages / P2Pupdate.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/P2Pupdate.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14, Tue Dec 23 21:29:02 2003 UTC revision 1.15, Tue Dec 23 22:17:56 2003 UTC
# Line 371  Line 371 
371          }          }
372      }      }
373      &FIG::run("chmod -R 777 $fig_base/Tmp/Annotations");      &FIG::run("chmod -R 777 $fig_base/Tmp/Annotations");
374    
375        if (opendir(ANN,"$fig_base/Tmp/Annotations"))
376        {
377            my @tmp = grep { $_ !~ /^\./ } readdir(ANN);
378            closedir(ANN);
379            if (@tmp > 0)
380            {
381      &FIG::run("cd $fig_base/Tmp/Annotations; tar czf $file *");      &FIG::run("cd $fig_base/Tmp/Annotations; tar czf $file *");
382            }
383            else
384            {
385                system "touch $file";
386            }
387        }
388      system "rm -rf $fig_base/Tmp/Annotations";      system "rm -rf $fig_base/Tmp/Annotations";
389  }  }
390    
# Line 394  Line 407 
407    
408      &force_absolute($fig_disk);      &force_absolute($fig_disk);
409      &force_absolute($package);      &force_absolute($package);
410        if (! -s $package) { return }
411    
412      if (-d "$fig_disk/BackupAnnotations") { system "rm -rf $fig_disk/BackupAnnotations" }      if (-d "$fig_disk/BackupAnnotations") { system "rm -rf $fig_disk/BackupAnnotations" }
413      mkdir("$fig_disk/BackupAnnotations",0777);      mkdir("$fig_disk/BackupAnnotations",0777);
414      mkdir("$fig_disk/BackupAnnotations/New",0777);      mkdir("$fig_disk/BackupAnnotations/New",0777);

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3