#!/usr/bin/perl
#!/usr/local/bin/perl5

  use Fcntl;
  use NDBM_File;


  if( $ARGV[0] eq '' )
  {
	printf " USAGE: $0 uname\n";
	exit(0);
  }

  dbmopen(%dbm,"/usr/lib/passwd/etc/history",0600);

  $db_separator = ':';

  foreach (sort keys %dbm)
  {
	next if $_ ne $ARGV[0];

	printf "[ %-20s ]\n", $_;
	foreach(split /$db_separator/, $dbm{$_})
	{
		($passwd,$date) = split /,/;
		printf "             %-15s - %s\n", $passwd, scalar(localtime($date));
	}
	delete $dbm{$_};
  }

  dbmclose( %dbm );

  print "\n";

#END
