# ------------------------- #
# Sub Open In User Data
# ユーザーデータの読みこみ
# ------------------------- #
sub openinuserdata {
    if ($lockkey == 1) { &lock; }
    open(IN,"$userdata") || &error("Can't open $userdata");
    @lines = <IN>;
    close(IN);
    &unlock;

    foreach $line (@lines) {
        ($name,$pass,$gdate,$love) = split(/<>/,$line);

        if ($_[0] eq 'checkname') {
            if ($FORM{'name'} eq $name) {
                $flag = 1; # データの中にユーザーを確認
                if ($FORM{'pass'} ne $pass)
                    { &error("パスワードが間違っています"); }
                last;
            }
            if ($FORM{'pass'} eq $pass) {
                &error("複数登録は禁止です");
            }
        }
        if ($_[0] eq 'action') {
            if ($FORM{'name'} eq $name) {
                $gdate = time;
                push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>$newlove<>\n");
            } else {
                if ($gdate >= $goodbye) { push(@new,$line); }
            }
        }