▼変更対象の変数
1355行目 my
$tmp = '$' . $name . '=\'' . $value . '\';';
1356行目 eval
$tmp;
1840行目 my
$tmp = &presenttime($kigen);
1841行目
$tmp =~ s/:\d{2}$//;
2244行目 my
$tmp = param('dir');
2245行目
$tmp =~ s/^\.\///;
2246行目 &make_dir(join('/',$passdir,
$tmp)) if ! -d join('/',$passdir,
$tmp);
2247行目 my $pass_file_path = join('/',$passdir,
$tmp, param('time') . '.cgi');
2302行目 my
$tmp = param('dir');
2303行目
$tmp =~ s/^\.\///;
2304行目 &make_dir(join('/',$passdir,
$tmp)) if ! -d join('/',$passdir,
$tmp);
2305行目 my $pass_file_path = join('/',$passdir,
$tmp, param('time') . '.cgi');
2474行目 my
$tmp = $dir;
2475行目
$tmp =~ s/^\.\///;
2476行目 $path = join('/',$path,
$tmp);
2849行目 my (
@tmp, $com, $name, $value,$config_start,$config_end);
2857行目
@tmp = split(/;/,$line);
2858行目 $com = pop(
@tmp);
2860行目 ($name, $value) = split(/=/,
$tmp[0]);
2893行目 my
$tmp = $line;
2895行目
$tmp =~ s/ //g;
2896行目 if (! $config_end &&
$tmp =~ /^(my)?\s*\$adminpass\s*='/) {
2902行目 my
@tmp = split(/;/,$line);
2903行目 my $com = pop(
@tmp);
3260行目 my
$tmp = $del_htac{"$in_user"};
3261行目
$tmp =~ s/^\.\///;
3262行目 if (unlink join('/',$passdir,
$tmp,'.htpasswd')) {
3263行目 $comment .= qq(<div style="color:red"><strong>) . join('/',$passdir,
$tmp,'.htpasswd') . qq(</strong>を削除しました。</div>);
3341行目 my
$tmp = $dir;
3342行目
$tmp =~ s/^\.\///;
3343行目 if (-e join('/',$passdir,
$tmp,'.htpasswd')) {
3345行目 if (unlink join('/',$passdir,
$tmp,'.htpasswd')) {
3346行目 $comment .= qq(<div style="color:red"><strong>) . join('/',$passdir,
$tmp,'.htpasswd') . qq(</strong>を削除しました</div>\n);
3348行目 $comment .= qq(<div style="color:red"><strong>) . join('/',$passdir,
$tmp,'.htpasswd') . qq(</strong>を削除できませんでした</div>\n);
3351行目 if (open(HTPAS,join('/',$passdir,
$tmp,'.htpasswd'))) {
3358行目 $comment .= qq(<div style="color:red">) . join('/',$passdir,
$tmp,'.htpasswd') . qq(の${id}を削除しました。</div>\n);
3363行目 open(HTPAS,">" . join('/',$passdir,
$tmp,'.htpasswd'));
3951行目 my
$tmp = pop @axs;
3952行目 my($ac_user, $ac_time, $ac_host,$reg_tm) = split(/\,/,
$tmp);
4929行目 my
@tmp = split(/;/,$line);
4930行目 my $com = pop(
@tmp);
4978行目 my (
@tmp, $com, %popup, $name, $value, $style, $line, $nk_value);
4981行目 my
$tmp = $line;
4982行目
$tmp =~ s/</</g;
4984行目
@tmp = split(/;/,$line);
4985行目 $com = pop(
@tmp);
4988行目 ($name, $value) = split(/=/,
$tmp[0]);
4989行目 my @value = split(/=/,
$tmp[0]);
5192行目 my
$tmp = $line;
5193行目
$tmp =~ s/ //g;
5194行目 if (
$tmp =~ /^(my)?\s*\$adminpass\s*='/) {
5197行目 my
@tmp = split(/;/,$line);
5198行目 my $com = pop(
@tmp);
5201行目 } elsif ($make_passdir &&
$tmp =~ /^(my)?\s*\$passdir\s*='/) {
5202行目 my
@tmp = split(/;/,$line);
5203行目 my $com = pop(
@tmp);
