post("cmd")) { case "login": print "#__GR2PROTO__\n"; $uname = $input->post("uname"); if (empty($uname)) { print "status=202\n"; } else { $user = user::lookup_by_name($uname); $password = $input->post("password"); if ($user && user::is_correct_password($user, $password)) { print "status=0\n"; user::login($user); } else { print "status=201\n"; } } print "server_version=2.15\n"; } } }