上のディレクトリへ
	calendar.cgi
	multiupload.cgi
	subdir

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
admin_mail	●	●		admin_mailを編集
ver	●	●		verを編集
access	●	●		accessを編集
path	●	●	●	pathを編集
mode	●		●	modeを編集
subdir	●	●		subdirを編集
sort	●		●	sortを編集
pass	●		●	passを編集
user	●	●		userを編集
dir	●		●	dirを編集
param	●		●	paramを編集
mail	●	●	●	mailを編集
size	●		●	sizeを編集
decode_name	●		●	decode_nameを編集
perm	●	●		permを編集
download	●		●	downloadを編集
tm	●		●	tmを編集
tmp	●	●		tmpを編集
value	●	●		valueの編集をキャンセル
val	●		●	valを編集
oval	●	●		ovalを編集
time	●		●	timeを編集
kigen	●	●		kigenを編集
html	●	●		htmlを編集
raw_pass	●	●		raw_passを編集
msg	●	●		msgを編集
url	●	●		urlを編集
t	●	●		tを編集
rpass	●		●	rpassを編集
htac	●	●		htacを編集
del_htac	●		●	del_htacを編集
d	●	●		dを編集
new_raw_pass	●	●		new_raw_passを編集
dlmail	●		●	dlmailを編集
max_day	●		●	max_dayを編集
max_down	●		●	max_downを編集
new_user	●	●		new_userを編集
str	●	●		strを編集
salt	●	●		saltを編集
host	●		●	hostを編集
cook	●	●	●	cookを編集
dir_user		●	●	dir_userを編集

$value → $
@value → @

1352行目  my ($name,$value) = split(/<>/);
1353行目  chomp $value;
1355行目  my $tmp = '$' . $name . '=\'' . $value . '\';';
1357行目  $val{"$name"} = $value;
1378行目  my ($value,$val);
1380行目  $value = $val{"$cfg"};
1387行目  $value = "'" . $val . "'";
1395行目  $chg_com .= qq(${frm} → ) . 'my $' . $cfg . " = " . $value . qq(\n);
1398行目  $line = 'my $' . $cfg . " = " . $value . ";" . $com . "\n";
2089行目  my $value = $_[0];
2090行目  $value =~ tr/+/ /;
2091行目  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
2092行目  return $value;
2849行目  my (@tmp, $com, $name, $value,$config_start,$config_end);
2860行目  ($name, $value) = split(/=/,$tmp[0]);
2863行目  $value =~ s/^\s*['"]?//;
2864行目  $value =~ s/['"]?\s*$//;
2868行目  push(@config_value,qq($cfg<>$value));
2869行目  if ($cfg eq 'adminpass' && $value) {
4891行目  my ($value,$val);
4893行目  $value = param("$cfg");
4900行目  $value = "'" . $val . "'";
4914行目  $chg_com .= qq(<div style="color:red">${frm}&nbsp;→&nbsp;) . 'my $' . $cfg . " = " . $value . qq(</div>\n);
4917行目  $line = 'my $' . $cfg . " = " . $value . ";" . $com . "\n";
4928行目  my $value = qq('$passdir');
4932行目  $line = 'my $passdir = ' . $value . ";" . $com . "\n";
4978行目  my (@tmp, $com, %popup, $name, $value, $style, $line, $nk_value);
4988行目  ($name, $value) = split(/=/,$tmp[0]);
4989行目  my @value = split(/=/,$tmp[0]);
4990行目  shift @value;
4991行目  $value = join('=',@value);
4994行目  $value =~ s/^\s*['"]?//;
4995行目  $value =~ s/['"]?\s*$//;
4996行目  $config_val{"$cfg"} = $value;
5000行目  if ($value =~ /#[0-9a-f]{6}/) {
5001行目  $style = qq( style="background-color:$value;color:) . &text_color($value) . qq(;ime-mode:disabled");
5002行目  } elsif (($value && $value =~ /^[\d\w%]+$/) || $value eq '0') {
5006行目  if ($cfg eq 'sendmail' && !-e $value) {
5009行目  if ($cfg eq 'encode_lib' && $value) {
5015行目  if ($cfg eq 'mail_notify' && $value && ! $config_val{"admin_mail"}) {
5154行目  my ($name,$value) = split(/<>/);