/[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 48 by dpavlin, Tue May 24 15:19:44 2005 UTC revision 49 by dpavlin, Tue May 24 16:44:34 2005 UTC
# Line 20  sender.pl - command line notify sender u Line 20  sender.pl - command line notify sender u
20  In C</etc/aliases> something like:  In C</etc/aliases> something like:
21    
22   mylist: "| cd /path/to && ./sender.pl --inbox=mylist"   mylist: "| cd /path/to && ./sender.pl --inbox=mylist"
  mylist-bounce: "| cd /path/to && ./sender.pl --inbox=mylist --bounce"  
23    
24  =head2 Command options  =head2 Command options
25    
# Line 43  my $result = GetOptions( Line 42  my $result = GetOptions(
42          "verbose" => \$verbose,          "verbose" => \$verbose,
43          "from=s" => \$opt->{'from'},          "from=s" => \$opt->{'from'},
44          "driver=s" => \$opt->{'email_send_driver'},          "driver=s" => \$opt->{'email_send_driver'},
45          "bounce" => \$opt->{'bounce'},          "sleep=i" => \$opt->{'sleep'},
46  );  );
47    
48  my $nos = new Nos(  my $nos = new Nos(
# Line 210  for single list. Line 209  for single list.
209  Optional argument C<--driver=smtp> forces sending using SMTP server at  Optional argument C<--driver=smtp> forces sending using SMTP server at
210  localhost (127.0.0.1).  localhost (127.0.0.1).
211    
212    Optional argument C<--sleep=42> defines that sender will sleep 42 seconds
213    between sending e-mail.
214    
215  =cut  =cut
216    
217  } elsif (defined($list_name = $opt->{'send'})) {  } elsif (defined($list_name = $opt->{'send'})) {
218    
219          $nos->send_queued_messages($list_name, $opt->{'email_send_driver'});          $nos->send_queued_messages(
220                    list => $list_name,
221                    driver => $opt->{'email_send_driver'},
222                    sleep => $opt->{'sleep'},
223            );
224    
225    
226  =item --inbox=list_name  =item --inbox=list_name
227    
228  Feed incomming message back into notice sender.  Feed incomming message back into notice sender.
229    
 Optional argument C<--bounce> define that this message is received to  
 bounce address.  
   
230  =cut  =cut
231    
232  } elsif ($list_name = $opt->{'inbox'}) {  } elsif ($list_name = $opt->{'inbox'}) {
# Line 236  bounce address. Line 239  bounce address.
239          $nos->inbox_message(          $nos->inbox_message(
240                  list => $list_name,                  list => $list_name,
241                  message => $message,                  message => $message,
                 bounce => $opt->{'bounce'},  
242          ) || die "can't receive message for list $list_name";          ) || die "can't receive message for list $list_name";
243    
244    

Legend:
Removed from v.48  
changed lines
  Added in v.49

  ViewVC Help
Powered by ViewVC 1.1.26