Sys::Group::GIDhelper - Helps for locating free GIDs.
Version 0.0.2
use Sys::Group::GIDhelper;
#implements it with the default values
my $foo = Sys::Group::GIDhelper->new();
#sets the min to 0 and the max to 4000
my $foo = Sys::Group::GIDhelper->new({max=>'0', min=>'4000'});
#finds the first free one
my $first = $foo->firstfree();
if(defined($first)){
print $first."\n";
}else{
print "not found\n";
}
#finds the first last one
my $last = $foo->lastfree();
if(defined($last)){
print $last."\n";
}else{
print "not found\n";
}
This initiates the module. It accepts one arguement, a hash. Please See below for accepted values.
The minimum GID.
The maximum GID.
This finds the first free GID. If it returns undef, no free ones were found.
This finds the first last UID. If it returns undef, no free ones were found.
Implement various backends for system, LDAP, and passwd.
Zane C. Bowers, <vvelox at vvelox.net>
Please report any bugs or feature requests to bug-sys-group-gidhelper at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Sys-Group-UIDhelper. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Sys::Group::GIDhelper
You can also look for information at:
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Sys-Group-GIDhelper
Copyright 2008 Zane C. Bowers, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
