MKの日記： [memo]ユーザ追加後のパスワード確認処理

open(FILE,'./userlist');
while(<FILE>){
        chomp;
        @list=split(',');
        open(OUT,"> ./filee");
        print OUT "open localhost\n";
        print OUT "user $list[0] $list[1]\n";
        print OUT "bye\n";
        print OUT '';
        close(OUT);
        print`ftp -n < ./filee`;
}

ftp login させてパスワード反映されてるか確認．
last log と突き合わせてOK．

userlist は,区切りで1カラム目がユーザアカウント，2カラム目が生パスワード．
filee を最後に削除するのを忘れない様に．

対localhost でも以外と時間がかかる．秒間4,5人か?

追記)
呼び方変えればfile open しなくても行ける気が．
今度試してみよう．