shadowm

Untitled

Apr 23rd, 2011
273
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.82 KB | None | 0 0
  1.  
  2. foreach my $CO_IMAGE ((
  3.     glob("$module_root/*.inc.pl"),
  4.     glob("$module_root/*/*.inc.pl"),
  5. ))
  6. {
  7.     my $CO_TEXT = '';
  8.  
  9.     {
  10.         local ($/) = undef;
  11.         local *FILE;
  12.  
  13.         if(!open FILE, '<', $CO_IMAGE) {
  14.             err "FATAL: $CO_IMAGE cannot be read";
  15.             next;
  16.         }
  17.  
  18.         $CO_TEXT = <FILE>;
  19.  
  20.         close FILE;
  21.     }
  22.  
  23.     if(!$CO_TEXT =~ m{^#!\s*/bin/true\s*\n}m) {
  24.         err "FATAL: $CO_IMAGE does not have a valid signature";
  25.         next;
  26.     }
  27.  
  28.     $CO_IMAGE =~ s!\Q$resource_root/modules.enabled/\E!!;
  29.  
  30.     {
  31.         my $CO_IMAGE = $CO_IMAGE; # localize
  32.         # Run included code
  33.         eval $CO_TEXT;
  34.     }
  35.  
  36.     if($@) {
  37.         chomp $@;
  38.         err "While loading ${bold}${CO_IMAGE}${bold}: $@";
  39.     } else {
  40.         push @CO_LIST, $CO_IMAGE;
  41.     }
  42. }
Advertisement
Add Comment
Please, Sign In to add comment