#!/usr/local/bin/perl -w
#
# file:    userexists
# purpose: check whether user with given username exist
# created: pasha dec 15 1998
# notes:   returns 1 if exists, 0 otherwise
# usage:   userexists <user_name>
#

use strict;

if (scalar @ARGV != 1)
{
	print "Usage: $0 <user_name>\n";
	exit (0);
}

my $uid;
(undef, undef, $uid) = getpwnam ($ARGV[0]);

exit (defined($uid));