/[notice-sender]/trunk/sender.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/sender.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by dpavlin, Sat May 14 18:20:50 2005 UTC revision 13 by dpavlin, Sat May 14 20:54:40 2005 UTC
# Line 3  Line 3 
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    
# Line 26  Turn on debugging output from C<Class::D Line 27  Turn on debugging output from C<Class::D
27    
28  =cut  =cut
29    
30  my ($list_opt,$debug) = (0,0);  my $debug = 0;
31    my $list_opt;
32  my $add_opt;  my $add_opt;
33  my $queue_opt;  my $queue_opt;
34    
# Line 100  argument) or read from C<STDIN>. List sh Line 102  argument) or read from C<STDIN>. List sh
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,
Legend:
Removed from v.11  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26