/[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 51 by dpavlin, Wed May 25 15:02:12 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 137  argument) or read from C<STDIN>. List sh Line 136  argument) or read from C<STDIN>. List sh
136    
137  } elsif ($list_name = $opt->{'add'}) {  } elsif ($list_name = $opt->{'add'}) {
138    
139          my $list = $lists->find_or_create({          my $list = $nos->_get_list($list_name) || die "can't find list $list_name\n";
                 name => $list_name,  
         }) || die "can't add list $list_name\n";  
140    
141          my $added = 0;          my $added = 0;
142    
# Line 210  for single list. Line 207  for single list.
207  Optional argument C<--driver=smtp> forces sending using SMTP server at  Optional argument C<--driver=smtp> forces sending using SMTP server at
208  localhost (127.0.0.1).  localhost (127.0.0.1).
209    
210    Optional argument C<--sleep=42> defines that sender will sleep 42 seconds
211    between sending e-mail.
212    
213  =cut  =cut
214    
215  } elsif (defined($list_name = $opt->{'send'})) {  } elsif (defined($list_name = $opt->{'send'})) {
216    
217          $nos->send_queued_messages($list_name, $opt->{'email_send_driver'});          $nos->send_queued_messages(
218                    list => $list_name,
219                    driver => $opt->{'email_send_driver'},
220                    sleep => $opt->{'sleep'},
221            );
222    
223    
224  =item --inbox=list_name  =item --inbox=list_name
225    
226  Feed incomming message back into notice sender.  Feed incomming message back into notice sender.
227    
 Optional argument C<--bounce> define that this message is received to  
 bounce address.  
   
228  =cut  =cut
229    
230  } elsif ($list_name = $opt->{'inbox'}) {  } elsif ($list_name = $opt->{'inbox'}) {
# Line 236  bounce address. Line 237  bounce address.
237          $nos->inbox_message(          $nos->inbox_message(
238                  list => $list_name,                  list => $list_name,
239                  message => $message,                  message => $message,
                 bounce => $opt->{'bounce'},  
240          ) || die "can't receive message for list $list_name";          ) || die "can't receive message for list $list_name";
241    
242    
Legend:
Removed from v.48  
changed lines
  Added in v.51
  ViewVC Help
Powered by ViewVC 1.1.26