/[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 45 by dpavlin, Wed May 18 13:12:54 2005 UTC revision 47 by dpavlin, Tue May 24 14:02:05 2005 UTC
# Line 40  my $result = GetOptions( Line 40  my $result = GetOptions(
40          "inbox=s" => \$opt->{'inbox'},          "inbox=s" => \$opt->{'inbox'},
41          "debug" => \$debug,          "debug" => \$debug,
42          "verbose" => \$verbose,          "verbose" => \$verbose,
43            "from=s" => \$opt->{'from'},
44            "driver=s" => \$opt->{'email_send_driver'},
45  );  );
46    
47  my $nos = new Nos(  my $nos = new Nos(
# Line 73  my $list_name; Line 75  my $list_name;
75    
76  Adds new list. You can also feed list name as first line to C<STDIN>.  Adds new list. You can also feed list name as first line to C<STDIN>.
77    
78    You can also add C<--from='Full name of list'> to specify full name (comment)
79    in outgoing e-mail.
80    
81  =cut  =cut
82    
83  if ($list_name = $opt->{'new'}) {  if ($list_name = $opt->{'new'}) {
# Line 84  if ($list_name = $opt->{'new'}) { Line 89  if ($list_name = $opt->{'new'}) {
89    
90          my $id = $nos->new_list(          my $id = $nos->new_list(
91                  list => $list_name,                  list => $list_name,
92                    from => ($opt->{'from'} || ''),
93                  email => $email,                  email => $email,
94          ) || die "can't add list $list_name\n";          ) || die "can't add list $list_name\n";
95    
# Line 199  add C<--verbose> flag, it will display a Line 205  add C<--verbose> flag, it will display a
205  Send e-mails waiting in queue, or with optional argument, just send messages  Send e-mails waiting in queue, or with optional argument, just send messages
206  for single list.  for single list.
207    
208    Optional argument C<--driver=smtp> forces sending using SMTP server at
209    localhost (127.0.0.1).
210    
211  =cut  =cut
212    
213  } elsif (defined($list_name = $opt->{'send'})) {  } elsif (defined($list_name = $opt->{'send'})) {
214    
215          $nos->send_queued_messages($list_name);          $nos->send_queued_messages($list_name, $opt->{'email_send_driver'});
216    
217    
218  =item --inbox=list_name  =item --inbox=list_name
Legend:
Removed from v.45  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.26