localuserinfo



#!/usr/bin/perl -wT
#
# /usr/local/bin/localuserinfo
# Copyright 2003-2007 Jonas Smedegaard <dr@jones.dk>
#
# $Id: localuserinfo,v 1.2 2007-02-07 10:23:08 jonas Exp $
#
# Print real name and/or other info for user
#
# TODO: Options to print other info than realname
#

use strict;

use User::pwent;
use User::grent;

sub getuserinfo($) {
    my $username = shift;

    my $pw = getpwnam($username) || die "Username \"$username\" does not exist.";

    my ($fullname, $office, $workphone, $homephone, $other) = split /\s*,\s*/, $pw->gecos;
    my @addresshints;
    if (defined($other)) {
        @addresshints = grep {/^([\.[:alnum:]_-]+|\+)?@([\.[:alnum:]_-]+)?$/} split /\s+/, $other;
    }

    return ($fullname, @addresshints);
}

while (my $username = shift @ARGV) {

    my ($fullname, @addresses) = getuserinfo($username);
    my $localaddress = "$username\@users.kaospilot.no";

    print "$fullname\n";
}