| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/11585/root/usr/share/webmin/mailcap/ |
Upload File : |
#!/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("");