#!/opt/bin/perl
#
#########################################################################
#                                                                       #
#   Program to list all assigned user and group IDs (UIDs and GIDs)     #
#                                                                       #
#########################################################################
#                                                                       #
#   Version 1.0     -   Written 26.09.95 by Steffen Beyer               #
#                                                                       #
#########################################################################
#                                                                       #
#   Copyright (C) 1995 by software design & management GmbH & Co. KG    #
#                                                                       #
#########################################################################
#
# Some defaults:
#
$version = 'version 1.0';
#
$self = $0;
#
if ($self =~ m!/([^/]+)$!) { $self = $1; }
#
# Subroutine definitions:
#
sub numerically { $a <=> $b }
#
# Read passwd and group files (slurp):
#
setgrent;
#
while (($group,$passwd,$gid) = getgrent)
{
    $gid_list{$gid} = 1;
}
#
endgrent;
#
setpwent;
#
while (($user,$passwd,$uid,$gid) = getpwent)
{
    $uid_list{$uid} = 1;
}
#
endpwent;
#
# Header:
#
print "$self $version\n";
#
# List of assigned UIDs:
#
print "\nUIDs:\n";
#
foreach $uid (sort numerically keys(%uid_list))
{
    print "$uid\n";
}
#
# List of assigned GIDs:
#
print "\nGIDs:\n";
#
foreach $gid (sort numerically keys(%gid_list))
{
    print "$gid\n";
}
#
# Done.
#