[Sommaire] [Imprimer]

   1  #!/usr/bin/perl
   2  while (<>) {
   3      if (!/FILESGOHERE/) {
   4          print $_;
   5      } else {
   6          open FILELIST,'find Structures -type f | grep -v .arch-ids |';
   7          while (<FILELIST>) {
   8          $md5sum = `md5sum $_`;
   9          chomp($md5sum);
  10          $md5sum = substr $md5sum, 0, 32;
  11  #    $_ =~ s/\//\\\//g;
  12              chomp($_);
  13              print "    <file role=\"php\" md5sum=\"$md5sum\" name=\"$_\" />\n";
  14          }
  15      }
  16  }