Changeset 1337 for trunk/server/common/oursrc/execsys/upd-execsys
- Timestamp:
- Oct 13, 2009, 1:11:51 AM (15 years ago)
- File:
-
- 1 edited
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.