FM / mailcap

/usr/share/usermin/mailcap

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
defaultuconfig	17	0644	edit dl rm
delete.cgi	1055	0755	edit dl rm
edit.cgi	2044	0755	edit dl rm
index.cgi	1292	0755	edit dl rm
log_parser.pl	527	0755	edit dl rm
mailcap-lib.pl	3949	0755	edit dl rm
module.info	139	0644	edit dl rm
module.info.af	0	0644	edit dl rm
module.info.af.auto	116	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	137	0644	edit dl rm
module.info.be	0	0644	edit dl rm
module.info.be.auto	182	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	201	0644	edit dl rm
module.info.ca	32	0644	edit dl rm
module.info.ca.auto	98	0644	edit dl rm
module.info.cs	30	0644	edit dl rm
module.info.cs.auto	86	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	120	0644	edit dl rm
module.info.de	116	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	227	0644	edit dl rm
module.info.es	0	0644	edit dl rm
module.info.es.auto	118	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	123	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	202	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	122	0644	edit dl rm
module.info.fr	0	0644	edit dl rm
module.info.fr.auto	127	0644	edit dl rm
module.info.he	0	0644	edit dl rm
module.info.he.auto	142	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	117	0644	edit dl rm
module.info.hu	32	0644	edit dl rm
module.info.hu.auto	100	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	118	0644	edit dl rm
module.info.ja	0	0644	edit dl rm
module.info.ja.auto	162	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	154	0644	edit dl rm
module.info.lt	0	0644	edit dl rm
module.info.lt.auto	111	0644	edit dl rm
module.info.lv	0	0644	edit dl rm
module.info.lv.auto	134	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	113	0644	edit dl rm
module.info.mt	0	0644	edit dl rm
module.info.mt.auto	121	0644	edit dl rm
module.info.nl	30	0644	edit dl rm
module.info.no	29	0644	edit dl rm
module.info.no.auto	88	0644	edit dl rm
module.info.pl	110	0644	edit dl rm
module.info.pl.auto	108	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	128	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	134	0644	edit dl rm
module.info.ro	0	0644	edit dl rm
module.info.ro.auto	132	0644	edit dl rm
module.info.ru	0	0644	edit dl rm
module.info.ru.auto	195	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	113	0644	edit dl rm
module.info.sl	0	0644	edit dl rm
module.info.sl.auto	114	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	110	0644	edit dl rm
module.info.th	0	0644	edit dl rm
module.info.th.auto	207	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	127	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	180	0644	edit dl rm
module.info.ur	0	0644	edit dl rm
module.info.ur.auto	191	0644	edit dl rm
module.info.vi	0	0644	edit dl rm
module.info.vi.auto	142	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	108	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	114	0644	edit dl rm
save.cgi	1940	0755	edit dl rm
uconfig.info	34	0644	edit dl rm
uconfig.info.ca	44	0644	edit dl rm
uconfig.info.de	34	0644	edit dl rm
uconfig.info.nl	35	0644	edit dl rm
uconfig.info.no	40	0644	edit dl rm

Edit: /usr/share/usermin/mailcap/save.cgi (1940B)

#!/usr/bin/perl
# Create, update or delete a mailcap entry

require './mailcap-lib.pl';
&ReadParse();
&error_setup($text{'save_err'});
@mailcap = &list_mailcap();

if (!$in{'new'}) {
	($mailcap) = grep { $_->{'index'} == $in{'index'} } @mailcap;
	$mailcap || &error($text{'edit_egone'});
	}
else {
	$mailcap = { 'args' => { } };
	}

&lock_file($mailcap_file);
if ($in{'delete'}) {
	# Just trash one
	&delete_mailcap($mailcap);
	}
else {
	# Validate inputs
	$in{'type'} =~ /([a-z0-9\-]+)\/([a-z0-9\-\*]+)/ ||
		&error($text{'save_etype'});
	#if (($in{'new'} || $in{'old'} ne $in{'type'}) && $in{'enabled'}) {
	#    ($clash) = grep { $_->{'type'} eq $in{'type'} &&
	#		      $_->{'enabled'} == 1 } @mailcap;
	#    $clash && &error($text{'save_eclash'});
	#    }
        $mailcap->{'type'} = $in{'type'};
        $mailcap->{'enabled'} = $in{'enabled'};
	$in{'program'} ||
		&error($text{'save_eprogram'});
        $mailcap->{'program'} = $in{'program'};
	$in{'cmt'} =~ s/\r//g;
	$in{'cmt'} =~ s/\s*$//g;
	$mailcap->{'cmt'} = $in{'cmt'};

# Save extra args
	$args = $mailcap->{'args'};
	if ($in{'test_def'}) {
		delete($args->{'test'});
		}
	else {
		$in{'test'} =~ /\S/ && $in{'test'} !~ /;/ ||
			&error($text{'save_etest'});
		$args->{'test'} = $in{'test'};
		}
	if ($in{'term'}) {
		$args->{'needsterminal'} = '';
		}
	else {
		delete($args->{'needsterminal'});
		}
	if ($in{'copious'}) {
		$args->{'copiousoutput'} = '';
		}
	else {
		delete($args->{'copiousoutput'});
		}
	if ($in{'desc_def'}) {
		delete($args->{'description'});
		}
	else {
		$in{'desc'} !~ /;/ || &error($text{'save_edesc'});
		$args->{'description'} = $in{'desc'};
		}
	
	# Update in file
	if ($in{'new'}) {
	      &create_mailcap($mailcap);
	      }
	else {
	      &modify_mailcap($mailcap);
	      }
	}
&unlock_file($mailcap_file);
&webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify",
	    "mailcap", $in{'old'} || $in{'type'});
&redirect("");

cmd: