source: trunk/server/common/oursrc/execsys/upd-execsys @ 1464

Last change on this file since 1464 was 1464, checked in by mitchb, 15 years ago
What's that? I can't hear you over the static! o Make Apache, suEXEC, and static-cat case-insensitive about extensions o Add wav, mid, and midi as static extensions o Add missing mime-type for svg files
File size: 2.1 KB
Line 
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
27 cgi
28 scm
29 exe
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
49 zip
50 pdf
51 ps
52 doc
53 xls
54 ppt
55 swf
56 mp3
57 mov
58 wmv
59 mpg
60 mpeg
61 avi
62 il
63 xhtml
64 svg
65 xaml
66 xap
67 wav
68 mid
69 midi
70);
71
72my %map;
73open(TYPES, "./mime.types");
74while(my $line = <TYPES>) {
75        next if($line =~ /^\#/ or $line =~ /^\s*$/);
76        my ($type, $exts) = ($line =~ /^(\S*)\s+(.*)$/);
77        next if($exts =~ /^\s*$/);
78       
79        foreach my $ext (split " ", $exts) {
80                $map{$ext} = $type;
81        }
82}
83close(TYPES);
84
85undef $/;
86my $regexp = '(.*[\/\#]+\sSTART-AUTOGENERATED:[^!]*!).*\s([\/\#]+\sEND-AUTOGENERATED.*)';
87
88open(CONF, ">./execsys.conf");
89
90foreach my $ext (@dynamic, @static) {
91        print CONF <<END
92<FilesMatch "(?i)\\.$ext\$">
93        SetHandler cgi-script
94        Options +ExecCGI
95</FilesMatch>
96
97END
98}
99close(CONF);
100
101open(CAT, "./static-cat.c.pre");
102my $file = <CAT>;
103my ($fstart, $fend) = ($file =~ /$regexp/s);
104close(CAT);
105
106open(CAT, ">./static-cat.c");
107print CAT $fstart, "\n";
108print CAT '#define NEXTS ', scalar(@static), "\n";
109print CAT "const char *map[2 * NEXTS] = {\n";
110for(my $i = 0; $i < scalar(@static); $i++) {
111        my $comma = ( $i < scalar(@static)-1 ? "," : "" );
112        print CAT "\t\"$static[$i]\", \"$map{$static[$i]}\"$comma\n";
113}
114print CAT "};\n";
115print CAT $fend;
116close(CAT);
Note: See TracBrowser for help on using the repository browser.