▼変更対象の変数
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} → ) . '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(/<>/);