source: server/common/oursrc/execsys/upd-execsys @ 315

Last change on this file since 315 was 315, checked in by andersk, 15 years ago
Add .xhtml to the list of static extensions.
File size: 2.7 KB
RevLine 
[1]1#!/usr/bin/perl -w
2use strict;
3
4# upd-execsys
5# Copyright (C) 2006  Jeff Arnold <jbarnold@mit.edu>
6#
7# This program is free software; you can redistribute it and/or
8# modify it under the terms of the GNU General Public License
9# as published by the Free Software Foundation; either version 2
10# of the License, or (at your option) any later version.
11#
12# This program is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with this program; if not, write to the Free Software
19# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
20#
21# See /COPYRIGHT in this repository for more information.
22
23my @dynamic = qw(
24 pl
25 php
26 py
[26]27 cgi
[1]28 scm
[163]29 exe
[1]30);
31
32my @static = qw(
33 html
34 css
35 gif
36 jpg
37 png
38 htm
39 jpeg
40 js
41 ico
42 xml
43 xsl
44 tiff
45 tif
46 tgz
47 tar
48 jar
[254]49 zip
[1]50 pdf
51 ps
52 doc
53 xls
54 ppt
55 swf
56 mp3
[254]57 mov
58 wmv
[255]59 mpg
60 mpeg
61 avi
[254]62 il
[140]63 JPG
[315]64 xhtml
[1]65);
66
67my %map;
68open(TYPES, "./mime.types");
69while(my $line = <TYPES>) {
70        next if($line =~ /^\#/ or $line =~ /^\s*$/);
71        my ($type, $exts) = ($line =~ /^(\S*)\s+(.*)$/);
72        next if($exts =~ /^\s*$/);
73       
74        foreach my $ext (split " ", $exts) {
75                $map{$ext} = $type;
[141]76                $map{uc($ext)} = $type;
[1]77        }
78}
79close(TYPES);
80
81undef $/;
82my $regexp = '(.*[\/\#]+\sSTART-AUTOGENERATED:[^!]*!).*\s([\/\#]+\sEND-AUTOGENERATED.*)';
83
84# Read existing binfmt file
85
86open(BINFMT, "./execsys-binfmt.pre");
87my $file = <BINFMT>;
88my ($fstart, $fend) = ($file =~ /$regexp/s);
89close(BINFMT);
90
91# Write new binfmt file
92
93open(BINFMT, ">./execsys-binfmt");
94print BINFMT $fstart, "\n";
95
96foreach my $ext (@dynamic) {
97  my $path = $ENV{"${ext}_path"};
98  print BINFMT "echo \":${ext}:E::${ext}::${path}:\" > /proc/sys/fs/binfmt_misc/register\n" if($path);
99}
100
[302]101#foreach my $ext (@static) {
102#       print BINFMT "echo \":${ext}:E::${ext}::$ENV{syscat_path}:\" > /proc/sys/fs/binfmt_misc/register\n";
103#}
[1]104print BINFMT $fend;
105close(BINFMT);
106
107open(CONF, ">./execsys.conf");
108
109foreach my $ext (@dynamic, @static) {
110        print CONF <<END
111<Files *.$ext>
112        SetHandler cgi-script
113        Options +ExecCGI
114</Files>
115
116END
117}
118close(CONF);
119
[104]120open(CAT, "./static-cat.c.pre");
[1]121$file = <CAT>;
122($fstart, $fend) = ($file =~ /$regexp/s);
123close(CAT);
124
[104]125open(CAT, ">./static-cat.c");
[1]126print CAT $fstart, "\n";
127print CAT '#define NEXTS ', scalar(@static), "\n";
128print CAT "const char *map[2 * NEXTS] = {\n";
129for(my $i = 0; $i < scalar(@static); $i++) {
130        my $comma = ( $i < scalar(@static)-1 ? "," : "" );
131        print CAT "\t\"$static[$i]\", \"$map{$static[$i]}\"$comma\n";
132}
133print CAT "};\n";
134print CAT $fend;
135close(CAT);
Note: See TracBrowser for help on using the repository browser.