▼変更対象の変数
396行目 my ($usr_perm,$usr_max_size,$user_mode,
@user);
398行目
@user = <USR>;
460行目 foreach my $line (
@user) {
461行目 my ($tm,
$user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down,$dlmail) = split(/\,/,$line);
462行目
$user = &rechange(
$user);
463行目 if (
$user eq $id) {
524行目 foreach my $line (
@user) {
525行目 my ($tm,
$user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down) = split(/\,/,$line);
526行目
$user = &rechange(
$user);
528行目 if (
$user eq $id) {
727行目 foreach (
@user) {
2102行目 my
@user = <USR>;
2105行目 foreach (
@user) {
2156行目 my
@user = <USR>;
2162行目 foreach (
@user) {
2239行目 my
@user = <USR>;
2655行目 my
$user = $id;
2656行目
$user .= '(ゲスト)' if $login_guest;
2970行目 my ($html,
$user, $rpass);
2972行目 foreach (
@user) {
2975行目
$user = $usr;
2996行目 my (
@user, @raw_pass);
2997行目
@user = &read_file("./user.cgi");
3021行目 foreach (
@user) {
3022行目 my ($tm,
$user, $path, $pass, $permit, $l_size) = split(/\,/);
3023行目
$user = &rechange(
$user);
3024行目 if (
$user eq $in_user) { &error('エラー', "${in_user}はすでに使用されています。他の名前にしてください。"); }
3071行目 foreach my $line (
@user) {
3072行目 my ($tm,
$user, $path, $pass, $permit, $l_size,$mail,$mxday,$mxdown) = split(/\,/,$line);
3074行目
$user = &rechange(
$user);
3081行目 push(@del_list,
$user);
3086行目
$user = $in_user;
3100行目 if ($in_user ne
$user) {
3101行目 $del_user_name =
$user;
3129行目 if ($in_path =~ /^$path/) { push(@parent_user_list,
$user); }
3130行目 if ($path =~ /^$in_path/) { push(@child_user_list,
$user); }
3274行目 foreach my
$user (@parent_user_list) {
3275行目 next if
$user =~ /^\s+$/; # 空行処理
3276行目 push(@pass_list, qq($user:$pass{"$user"})) if
$user ne $in_user;
3325行目 my ($tm,
$user, $path, $pass, $permit, $l_size, $mail) = split(/\,/,$line);
3326行目
$user = &rechange(
$user);
3374行目 my (
@user, @raw_pass);
3375行目
@user = &read_file("./user.cgi");
3383行目 my
$user = &rechange((split(/\,/,$log[0]))[0]);
3402行目 my
$user = &rechange((split(/\,/,$log[0]))[0]);
3420行目 my
$user = &rechange((split(/\,/,$log[0]))[0]);
3483行目 foreach (
@user) {
3484行目 my ($tm,
$user, $path, $pass, $permit, $l_size, $mail,$auto_del,$max_dl) = split/\,/;
3486行目
$user = &rechange(
$user);
3488行目 $fuser =
$user;
3627行目 foreach (
@user) {
3635行目 my $usr_nmb = scalar(
@user);
3718行目 if (scalar(@raw_pass) < scalar(
@user)) {
3722行目 if (! -e join('/',$passdir,'raw_pass.cgi') && scalar(
@user) > 0) {
3724行目 } elsif (scalar(
@user) > 0) {
3793行目
@user = map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_, split /\,/]}
@user;
3795行目
@user = map {$_->[0]} sort {$b->[1] cmp $a->[1]} map {[$_, split /\,/]}
@user;
3797行目
@user = map {$_->[0]} sort {$a->[2] cmp $b->[2]} map {[$_, split /\,/]}
@user;
3799行目
@user = map {$_->[0]} sort {$b->[2] cmp $a->[2]} map {[$_, split /\,/]}
@user;
3801行目
@user = map {$_->[0]} sort {$a->[3] cmp $b->[3]} map {[$_, split /\,/]}
@user;
3803行目
@user = map {$_->[0]} sort {$b->[3] cmp $a->[3]} map {[$_, split /\,/]}
@user;
3805行目
@user = map {$_->[0]} sort {$a->[7] cmp $b->[7]} map {[$_, split /\,/]}
@user;
3807行目
@user = map {$_->[0]} sort {$b->[7] cmp $a->[7]} map {[$_, split /\,/]}
@user;
3809行目
@user = map {$_->[0]} sort {$acc_ord{$a->[2]} <=> $acc_ord{$b->[2]}} map {[$_, split /\,/]}
@user;
3811行目
@user = map {$_->[0]} sort {$acc_ord{$b->[2]} <=> $acc_ord{$a->[2]}} map {[$_, split /\,/]}
@user;
3839行目 foreach(
@user){
3862行目 my ($tm,
$user, $path, $pass, $permit, $l_size, $mail) = split/\,/, $_;
3863行目
$user = &rechange(
$user);
3865行目 $dir_user{"$path"} .= qq(
$user,);
3880行目 if (
$user eq $_) {
3894行目 my %param = ('mode'=>'login','dptid'=>
$user);
3895行目 $msg .= qq(<td><table summary="ユーザーとしてログイン"><tr><td><form action="$script" method="post" style="margin:0;padding:0" target="_blank">) . &hidden_param(%param) . qq(<input type="image" src="./img/men.gif" alt="${user}${mr}としてログイン" /></form></td><td>) . &key_color(
$user,$key) . qq($login</td></tr></table></td>\n);
4034行目 my ($cont,
@user);
4052行目 push(
@user,qq([$id]));
4054行目 push(
@user,qq(${id}のパスワードが無効です));
4064行目 push(
@user,qq( ))
4105行目 $html = '' if ! scalar(
@user);
4107行目 $html .= $htacc_table if $use_htaccess && scalar(
@user);
4408行目 foreach (
@user) {
4484行目 my
@user = &read_file('./user.cgi');
4485行目 foreach (
@user) {
4557行目 my
@user = &read_file('./user.cgi');
4558行目 foreach (
@user) {
4738行目 foreach (
@user) {
5286行目 my
@user = <USR>;
5288行目 foreach (
@user) {
5289行目 my ($tm,
$user, $path, $e_pass, $permit, $l_size) = split(/\,/);
5290行目
$user = &rechange(
$user);
5291行目 if (
$user eq param('new_id')) {
5336行目 push(
@user,$new_line);
5338行目 print USR
@user;