home *** CD-ROM | disk | FTP | other *** search
/ Cricao de Sites - 650 Layouts Prontos / WebMasters.iso / Servidores / xampp-win32-1.6.7-installer.exe / php / tmp / Structures_Graph-1.0.2 / genpackage.xml.pl next >
Encoding:
Perl Script  |  2007-02-01  |  418 b   |  17 lines
  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. }
  17.