Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	252 B	-rw-r--r--
backup_config.pl	585 B	-rwxr-xr-x
cgi_args.pl	193 B	-rwxr-xr-x
config	21 B	-rw-r--r--
config.info	34 B	-rw-r--r--
config.info.ca	44 B	-rw-r--r--
config.info.ca.UTF-8	44 B	-rw-r--r--
config.info.de	34 B	-rw-r--r--
config.info.de.UTF-8	34 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja_JP.UTF-8	45 B	-rw-r--r--
config.info.ko_KR.UTF-8	42 B	-rw-r--r--
config.info.ko_KR.euc	34 B	-rw-r--r--
config.info.ms_MY	34 B	-rw-r--r--
config.info.ms_MY.UTF-8	34 B	-rw-r--r--
config.info.nl	35 B	-rw-r--r--
config.info.nl.UTF-8	35 B	-rw-r--r--
config.info.no	38 B	-rw-r--r--
config.info.no.UTF-8	38 B	-rw-r--r--
config.info.pl	36 B	-rw-r--r--
config.info.pl.UTF-8	38 B	-rw-r--r--
delete.cgi	1.03 KB	-rwxr-xr-x
edit.cgi	2 KB	-rwxr-xr-x
index.cgi	1.23 KB	-rwxr-xr-x
log_parser.pl	527 B	-rwxr-xr-x
mailcap-lib.pl	3.85 KB	-rwxr-xr-x
module.info	167 B	-rw-r--r--
module.info.ca	128 B	-rw-r--r--
module.info.ca.UTF-8	140 B	-rw-r--r--
module.info.cz	27 B	-rw-r--r--
module.info.cz.UTF-8	33 B	-rw-r--r--
module.info.de	120 B	-rw-r--r--
module.info.de.UTF-8	132 B	-rw-r--r--
module.info.hu	30 B	-rw-r--r--
module.info.hu.UTF-8	38 B	-rw-r--r--
module.info.ko_KR.UTF-8	42 B	-rw-r--r--
module.info.ko_KR.euc	34 B	-rw-r--r--
module.info.ms_MY	124 B	-rw-r--r--
module.info.ms_MY.UTF-8	136 B	-rw-r--r--
module.info.nl	30 B	-rw-r--r--
module.info.nl.UTF-8	36 B	-rw-r--r--
module.info.no	29 B	-rw-r--r--
module.info.no.UTF-8	35 B	-rw-r--r--
module.info.pl	123 B	-rw-r--r--
module.info.pl.UTF-8	141 B	-rw-r--r--
save.cgi	1.89 KB	-rwxr-xr-x

Code Editor : mailcap-lib.pl

# Functions for editing /etc/mailcap

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();

if ($module_info{'usermin'}) {
	&switch_to_remote_user();
	&create_user_config_dirs();
	$mailcap_file = $userconfig{'mailcap'};
	if ($mailcap_file !~ /^\//) {
		$mailcap_file = "$remote_user_info[7]/$mailcap_file";
		}
	}
else {
	$mailcap_file = $config{'mailcap'};
	}

# list_mailcap()
# Returns a list of /etc/mailcap entries
sub list_mailcap
{
if (!scalar(@list_mailcap_cache)) {
  @list_mailcap_cache = ( );
  open(CAP, $mailcap_file);
  local $lnum = 0;
  while(<CAP>) {
	  local ($slnum, $elnum) = ($lnum, $lnum);
	  s/\r|\n//g;
	  while (/^(.*)\\/) {
		# Continuation line! Read the next one and append it
		local $before = $1;
		local $nxt = <CAP>;
		$nxt =~ s/\r|\n//g;
		$_ = $before.$nxt;
		$elnum++;
		}
	  if (/^(#*)\s*([a-z0-9\-]+)\/([a-z0-9\-\*]+);\s*([^;]*)(;(.*))?/) {
		  # Found a line
		  local @cmtlines = split(/\n/, $cmt);
		  local $cap = { 'type' => $2."/".$3,
				 'program' => $4,
				 'enabled' => !$1,
				 'cmt' => $cmt,
				 'args' => { },
				 'line' => $slnum-scalar(@cmtlines),
				 'eline' => $elnum,
				 'index' => scalar(@list_mailcap_cache),
			       };
		  # Parse ; separated args after the command
		  local $args = $6;
		  local @args = split(/\s*;\s*/, $args);
		  foreach my $arg (@args) {
			if ($arg =~ /^\s*(\S+)\s*=\s*(.*)/) {
				# A name-value arg
				$cap->{'args'}->{$1} = $2;
				}
			elsif ($arg =~ /^\s*(\S+)\s*$/) {
				$cap->{'args'}->{$1} = "";
				}
			}
		  push(@list_mailcap_cache, $cap);
		  $cmt = undef;
		  }
	  elsif (/^#+(.*)/) {
		  # Found a comment before a rule
		  if ($cmt) {
			$cmt .= "\n".$1;
			}
		  else {
			$cmt = $1;
			}
		  }
	  else {
		  $cmt = undef;
		  }
	  $lnum++;
	  }
  close(CAP);
  }
return @list_mailcap_cache;
}

# create_mailcap(&mailcap)
# Adds a mailcap entry
sub create_mailcap
{
local ($mailcap) = @_;
&list_mailcap();  # init cache
local $lref = &read_file_lines($mailcap_file);
local @lines = &mailcap_lines($mailcap);
$mailcap->{'line'} = scalar(@$lref);
$mailcap->{'eline'} = scalar(@$lref)+scalar(@lines)-1;
$mailcap->{'index'} = scalar(@list_mailcap_cache);
push(@$lref, @lines);
&flush_file_lines($mailcap_file);
push(@list_mailcap_cache, $mailcap);
}

# modify_mailcap(&mailcap)
# Updates one mailcap entry in the file
sub modify_mailcap
{
local ($mailcap) = @_;
local $lref = &read_file_lines($mailcap_file);
local @lines = &mailcap_lines($mailcap);
local $oldlen = $mailcap->{'eline'} - $mailcap->{'line'} + 1;
splice(@$lref, $mailcap->{'line'}, $oldlen, @lines);
&flush_file_lines($mailcap_file);
local $diff = scalar(@lines)-$oldlen;
foreach my $c (grep { $c ne $mailcap } @list_mailcap_cache) {
  $c->{'line'} += $diff if ($c->{'line'} > $mailcap->{'line'});
  $c->{'eline'} += $diff if ($c->{'eline'} > $mailcap->{'line'});
  }
}

# delete_mailcap(&mailcap)
# Removes one mailcap entry from the file
sub delete_mailcap
{
local ($mailcap) = @_;
local $lref = &read_file_lines($mailcap_file);
local $len = $mailcap->{'eline'} - $mailcap->{'line'} + 1;
splice(@$lref, $mailcap->{'line'}, $len);
&flush_file_lines($mailcap_file);
@list_mailcap_cache = grep { $_ ne $mailcap } @list_mailcap_cache;
foreach my $c (@list_mailcap_cache) {
  $c->{'line'} -= $len if ($c->{'line'} > $mailcap->{'line'});
  $c->{'eline'} -= $len if ($c->{'eline'} > $mailcap->{'line'});
  $c->{'index'}-- if ($c->{'index'} > $mailcap->{'index'});
  }
}

# mailcap_lines(&mailcap)
# Returns an array of lines for a mailcap entry
sub mailcap_lines
{
local ($mailcap) = @_;
local @rv;
local $args;
foreach my $a (keys %{$mailcap->{'args'}}) {
	local $v = $mailcap->{'args'}->{$a};
	if ($v eq '') {
		$args .= "; $a";
		}
	else {
		$args .= "; $a=$v";
		}
	}
foreach my $l (split(/\n/, $mailcap->{'cmt'})) {
	push(@rv, "#$l");
	}
push(@rv, ($mailcap->{'enabled'} ? "" : "#").
          "$mailcap->{'type'}; $mailcap->{'program'}".$args);
return @rv;
}

${this.title}

Code Editor : mailcap-lib.pl