deobfuscator/Deobfuscator/bin/run-deobfuscator-update.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 my $base       = '/home/websites/bioperl.org';
   5 my $srcdir     = "$base/src/git";
   6 my $deob_index = "$base/src/Deobfuscator/bin/deob_index.pl";
   7
   8 my @modules = qw(
   9     bioperl-corba-client
  10     bioperl-corba-server
  11     bioperl-db
  12     bioperl-dev
  13     bioperl-ext
  14     bioperl-gui
  15     bioperl-live
  16     bioperl-microarray
  17     bioperl-network
  18     bioperl-pedigree
  19     bioperl-pipeline
  20     bioperl-pise
  21     bioperl-run
  22 );
  23
  24 chdir $srcdir;
  25 for my $module (@modules) {
  26     system("/usr/bin/perl $deob_index -s $module $srcdir/$module/Bio $srcdir/$module");
  27 }
  28 exit();