[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: [cobalt-users] Perl to check whether a user is administrator
- Subject: RE: [cobalt-users] Perl to check whether a user is administrator
- From: "Andy Brown" <andy.brown@xxxxxxxxxxxxx>
- Date: Mon Aug 5 06:12:01 2002
- List-id: Mailing list for users to share thoughts on Sun Cobalt products. <cobalt-users.list.cobalt.com>
Oopsy!
Quick correction, you'll need to pass the correct perl paths to include on the Raq4 (at least on my RaQ4) so my perl script looks like:
#!/usr/bin/perl -I/usr/lib/perl5/site_perl/5.004 -I/usr/lib/perl5/site_perl/5.005 -I/usr/lib/perl5/site_perl -I/usr/lib/perl5/site_perl/5.005/i386-linux
require Cobalt::User;
import Cobalt::User qw(user_authok);
$check=user_authok("USERNAME","site-adm");
print "The status for this user is $check";
Regards,
Andy
andy@xxxxxxxxxx
http://www.raqpak.com/ <-- Raq/Qube unofficial PKGs and support advice