#!/usr/bin/perl -Tw
# 
# Author          : C Matthew Curtin <cmcurtin@interhack.net>
# Created On      : <1999/02/01 20:28:17 cmcurtin>
# Last Modified By: $Author: cmcurtin $
# Last Modified On: $Date: 2003/07/23 15:31:53 $
# Update Count    :
# Status          : 
# 
# HISTORY 
# $Log: crfingerd.txt,v $
# Revision 1.2  2003/07/23 15:31:53  cmcurtin
# committing new content
#
# Revision 1.3  1999/02/02 13:53:41  cmcurtin
# Added taint flag ... meant to do that the first time 'round.
#
# Revision 1.2  1999/02/02 04:14:54  cmcurtin
# Added error message for finger of nonexistent user.  Also fixed a typo
# in the call to chroot...previous version ref'd $finger instead of
# $user.  Oops.  All better now.
#
# Revision 1.1  1999/02/02 01:59:37  cmcurtin
# Initial revision
#
# 

use strict;

undef %ENV;

my $user = <STDIN>;
chop $user; # kill \r
chop $user; # kill \n

if ($user eq "") {
  print "Must provide username.\n";
} else {
  my @pwent = getpwnam($user);
  if (scalar (@pwent) == 0) {
    print "The address you have fingered, $user, has been disconnected.\n";
    print "Please make a note of it.\n";
  } elsif ($pwent[8] eq "/chroot") {
    system("/usr/sbin/chroot", "/chroot", "/bin/wrapped/finger", "$user");
  } else {
    system("/usr/bin/finger", "$user");
  }
}