10Sstevel@tonic-gate# 2*12388SJohn.Sonnenschein@Sun.COM# Copyright (c) 2004, 2008, Oracle and/or its affiliates. All rights reserved. 37298SMark.J.Nelson@Sun.COM# 47298SMark.J.Nelson@Sun.COM 50Sstevel@tonic-gate# 60Sstevel@tonic-gate# Ucred.pm provides the bootstrap for the Sun::Solaris::Ucred module. 70Sstevel@tonic-gate# 80Sstevel@tonic-gate 98287SJohn.Sonnenschein@Sun.COMrequire 5.8.4; 100Sstevel@tonic-gateuse strict; 110Sstevel@tonic-gateuse warnings; 120Sstevel@tonic-gate 130Sstevel@tonic-gatepackage Sun::Solaris::Ucred; 140Sstevel@tonic-gate 157298SMark.J.Nelson@Sun.COMour $VERSION = '1.3'; 160Sstevel@tonic-gateuse XSLoader; 170Sstevel@tonic-gateXSLoader::load(__PACKAGE__, $VERSION); 180Sstevel@tonic-gate 190Sstevel@tonic-gateour (@EXPORT_OK, %EXPORT_TAGS); 200Sstevel@tonic-gatemy @syscalls = qw(getpeerucred ucred_get); 210Sstevel@tonic-gatemy @libcalls = qw(ucred_geteuid ucred_getruid ucred_getsuid ucred_getegid 220Sstevel@tonic-gate ucred_getrgid ucred_getsgid ucred_getgroups ucred_getprivset 230Sstevel@tonic-gate ucred_getpflags ucred_getpid ucred_getzoneid ucred_getprojid); 240Sstevel@tonic-gate 250Sstevel@tonic-gate@EXPORT_OK = (@syscalls, @libcalls); 260Sstevel@tonic-gate%EXPORT_TAGS = (SYSCALLS => \@syscalls, LIBCALLS => \@libcalls, 270Sstevel@tonic-gate ALL => \@EXPORT_OK); 280Sstevel@tonic-gate 290Sstevel@tonic-gaterequire Exporter; 300Sstevel@tonic-gate 310Sstevel@tonic-gateuse base qw(Exporter Sun::Solaris::Privilege); 320Sstevel@tonic-gate 330Sstevel@tonic-gateuse Sun::Solaris::Utils qw(gettext); 340Sstevel@tonic-gate 350Sstevel@tonic-gate1; 360Sstevel@tonic-gate__END__ 37