Changeset 1337 for trunk/server/common/oursrc/execsys/upd-execsys
- Timestamp:
 - Oct 13, 2009, 1:11:51 AM (16 years ago)
 - File:
 - 
          
- 1 edited
 
- 
          trunk/server/common/oursrc/execsys/upd-execsys (modified) (1 diff)
 
 
Legend:
- Unmodified
 - Added
 - Removed
 
- 
        
trunk/server/common/oursrc/execsys/upd-execsys
r944 r1337 85 85 my $regexp = '(.*[\/\#]+\sSTART-AUTOGENERATED:[^!]*!).*\s([\/\#]+\sEND-AUTOGENERATED.*)'; 86 86 87 # Read existing binfmt file88 89 open(BINFMT, "./execsys-binfmt.pre");90 my $file = <BINFMT>;91 my ($fstart, $fend) = ($file =~ /$regexp/s);92 close(BINFMT);93 94 # Write new binfmt file95 96 open(BINFMT, ">./execsys-binfmt");97 print BINFMT $fstart, "\n";98 99 foreach my $ext (@dynamic) {100 my $path = $ENV{"${ext}_path"};101 print BINFMT "echo \":${ext}:E::${ext}::${path}:\" > /proc/sys/fs/binfmt_misc/register\n" if($path);102 }103 104 #foreach my $ext (@static) {105 # print BINFMT "echo \":${ext}:E::${ext}::$ENV{syscat_path}:\" > /proc/sys/fs/binfmt_misc/register\n";106 #}107 print BINFMT $fend;108 close(BINFMT);109 110 87 open(CONF, ">./execsys.conf"); 111 88  
Note: See TracChangeset
          for help on using the changeset viewer.
      