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

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