5 my ($usermap,$nonusers,$recirc) = ();
8 'usermap=s' => \$usermap,
9 'nonusers=s' => \$nonusers,
10 'recirc=s' => \$recirc,
15 while (my $line = <F>) {
17 my ($b,$i) = split(/\|/, $line);
18 $b =~ s/^\s*(\S+)\s*$/$1/o;
19 $i =~ s/^\s*(\S+)\s*$/$1/o;
24 print "CREATE TABLE legacy_baduser_map ( barcode text, id int, type text);\n";
25 print "COPY legacy_baduser_map FROM STDIN;\n";
30 my ($p,$l,$b) = split '\|';
31 next unless ($u_map{$b});
32 print "$b\t$u_map{$b}\tN\n";
40 next unless ($u_map{$b});
41 print "$b\t$u_map{$b}\tR\n";