3 |
use strict; |
use strict; |
4 |
use Class::DBI::Loader::Pg; |
use Class::DBI::Loader::Pg; |
5 |
use Getopt::Long; |
use Getopt::Long; |
6 |
use Data::Dumper; |
use Mail::CheckUser qw(check_email); |
7 |
|
use Email::Valid; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
102 |
chomp; |
chomp; |
103 |
next if (/^#/ || /^\s*$/); |
next if (/^#/ || /^\s*$/); |
104 |
my ($email, $name) = split(/\s+/,$_, 2); |
my ($email, $name) = split(/\s+/,$_, 2); |
105 |
|
if (! Email::Valid->address($email)) { |
106 |
|
print "SKIPPING $name <$email>\n"; |
107 |
|
next; |
108 |
|
} |
109 |
print "# $name <$email>\n"; |
print "# $name <$email>\n"; |
110 |
my $this_user = $users->find_or_create({ |
my $this_user = $users->find_or_create({ |
111 |
email => $email, |
email => $email, |