use OS2::UPM;
($name, $type) = OS2::UPM::local_user()
or warn "local_user: ", OS2::UPM::message(OS2::UPM::error()), "\n";
print "local_user: name='$name' type='$type'\n";
($name, $type) = OS2::UPM::local_logon()
or warn "local_logon: ", OS2::UPM::message(OS2::UPM::error()), "\n";
print "local_logon: name='$name' type='$type'\n";
@users = OS2::UPM::user_list("*", OS2::UPM_ALL)
or warn "user_list: ", OS2::UPM::message(OS2::UPM::error()), "\n";
for ($i = 0; $i < @users; $i += 4) {
($userid, $node, $type, $session) = splice(@users, 0, 4);
print "userid=$userid, node=$node, type=$type, session=$session\n";
}
OS2::UPM::logoff_user($name)
or warn "logoff_user: ", OS2::UPM::message(OS2::UPM::error()), "\n";