save_gmime_type.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_gmime_type.cgi
# Add or change a MIME type

require './apache-lib.pl';
&ReadParse();
$access{'global'}==1 || &error($text{'mime_ecannot'});

&error_setup($text{'mime_err'});
if ($in{'type'} !~ /^([A-z0-9\-]+)\/([A-z0-9\-]+)$/) {
	&error(&text('mime_etype', $in{'type'}));
	}

open(MIME, $in{'file'});
@mime = <MIME>;
close(MIME);
$line = "$in{'type'} ".join(" ", split(/\s+/, $in{'exts'}))."\n";
if ($in{'line'}) {
	$mime[$in{'line'}] = $line;
	}
else {
	push(@mime, $line);
	}
open(MIME, "> $in{'file'}");
print MIME @mime;
close(MIME);
&redirect("edit_global.cgi?type=6");