8000 Load libwin32-0.09 into trunk. · perl-libwin32/win32-netadmin@7f4101d · GitHub
[go: up one dir, main page]
Skip to content

Commit 7f4101d

Browse files
janduboisjandubois
committed
Load libwin32-0.09 into trunk.
1 parent ed90eaf commit 7f4101d

File tree

4 files changed

+825
-799
lines changed

4 files changed

+825
-799
lines changed

‎Changes

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,4 +3,8 @@ Revision history for Perl extension Win32::NetAdmin.
33
0.01 Sat Apr 5 14:24:05 1997
44
- original version; created by h2xs 1.18
55
- imported ActiveWare version
6+
0.02 Sat Dec 13 19:11:52 1997
7+
- Fixes for enumeration functions from Joe Doss <jdoss@levi.com>
8+
- Various tweaks to the fixes
9+
- Added changes in ActiveState version
610

‎MANIFEST

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Changes
2-
Makefile.PL
32
MANIFEST
3+
Makefile.PL
44
NetAdmin.pm
55
NetAdmin.xs
66
t/netadmin.t

‎NetAdmin.pm

Lines changed: 8 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ package Win32::NetAdmin;
55
#Written by Douglas_Lankshear@ActiveWare.com
66
#
77

8-
$VERSION = '0.01';
8+
$VERSION = '0.02';
99

1010
require Exporter;
1111
require DynaLoader;
@@ -91,6 +91,11 @@ server is optional for all the calls below. (if not given the local machine is a
9191
9292
Return the name of the domain controller for server
9393
94+
=item GetAnyDomainController(server, domain, returnedName)
95+
96+
Return the name of any domain controller for a domain that is directly trusted
97+
by the server
98+
9499
=item UserCreate(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
95100
96101
Creates a user on server with password, passwordAge, privilege, homeDir, comment, flags, and scriptPath
@@ -139,7 +144,7 @@ Sets the comment
139144
140145
Adds a user to a group
141146
142-
=item GroupDelUsers(server, groupName, users)
147+
=item GroupDeleteUsers(server, groupName, users)
143148
144149
Deletes a users from a group
145150
@@ -179,7 +184,7 @@ Fills userArray with the members of groupName
179184
180185
Adds a user to a group
181186
182-
=item LocalGroupDelUsers(server, groupName, users)
187+
=item LocalGroupDeleteUsers(server, groupName, users)
183188
184189
Deletes a users from a group
185190
@@ -193,10 +198,6 @@ Gets an array of server names
193198
=cut
194199

195200
sub AUTOLOAD {
196-
# This AUTOLOAD is used to 'autoload' constants from the constant()
197-
# XS function. If a constant is not found then control is passed
198-
# to the AUTOLOAD in AutoLoader.
199-
200201
my($constname);
201202
($constname = $AUTOLOAD) =~ s/.*:://;
202203
#reset $! to zero to reset any current errors.
@@ -218,10 +219,6 @@ sub AUTOLOAD {
218219

219220
bootstrap Win32::NetAdmin;
220221

221-
# Preloaded methods go here.
222-
223-
# Autoload methods go after __END__, and are processed by the autosplit program.
224-
225222
1;
226223
__END__
227224

0 commit comments

Comments
 (0)
0