The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Sys-Group-GIDhelper-0.0.2
River stage zero No dependents
++
/ Sys::Group::GIDhelper

NAME

Sys::Group::GIDhelper - Helps for locating free GIDs.

VERSION

Version 0.0.2

SYNOPSIS

    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";
    }

FUNCTIONS

new

This initiates the module. It accepts one arguement, a hash. Please See below for accepted values.

min

The minimum GID.

max

The maximum GID.

firstfree

This finds the first free GID. If it returns undef, no free ones were found.

lastfree

This finds the first last UID. If it returns undef, no free ones were found.

Todo

Implement various backends for system, LDAP, and passwd.

AUTHOR

Zane C. Bowers, <vvelox at vvelox.net>

BUGS

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.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Sys::Group::GIDhelper

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

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.