#!/usr/bin/perl
use strict;
use warnings;

use Lingua::EN::MatchNames;


my $termfile = shift;
my $userfile = shift || die "Usage: $0 TERMFILE USERFILE\n";

my %curlookup = getlist($userfile);
my %termlookup = getlist($termfile);


open my $dfh, ">", "dup.$userfile");

foreach my $termusername (keys %termlookup) {
        NameComp( $termlookup{$termusername} )
}

close $dfh;

#  getlist takes a filename as an argument
sub getlist {
	
	my $filename = shift;
	
	my $counter;
	my %results;
	
	open my $fh, "<", "$filename";
	
	while ( <$fh> ) {
		chomp;
		++$counter;
		next unless m/[A-Za-z]/;
		$results{$counter} = $_;
		print "Adding user $counter $_ from file \'$filename\' to hash\n";
	}

	close $fh;
		
	return %results;
}

sub NameComp { # no parens, this is not a function prototype
        
	my $compname = shift;
	
        foreach my $curusername (keys %curlookup) {
		print "Comparing \'$compname\' to \'$curlookup{$curusername}\'\n";
		
		# This method is not good because it assumes a ' FN -SPACE- LN ' format
		my @compname = split /\s+/, $compname;
		my @curname = split /\s+/, $curlookup{$curusername};
		
                my $name_score = name_eq( $compname[0], $compname[1], $curname[0], $curname[1] );
		if ( $name_score ) {
			if ( $name_score >= 80 ) {
				print "Found Match $curlookup{$curusername} with a score of $name_score.\n\n";
			}
		}
		else {
			print "\t\tNo possible match.\n\n";
		}
        }
}