/[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 47 by dpavlin, Tue May 24 14:02:05 2005 UTC revision 51 by dpavlin, Wed May 25 15:02:12 2005 UTC
# Line 19  sender.pl - command line notify sender u Line 19  sender.pl - command line notify sender u
19    
20  In C</etc/aliases> something like:  In C</etc/aliases> something like:
21    
22   mylist: "| /path/to/sender.pl --inbox=mylist"   mylist: "| cd /path/to && ./sender.pl --inbox=mylist"
23    
24  =head2 Command options  =head2 Command options
25    
# Line 42  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            "sleep=i" => \$opt->{'sleep'},
46  );  );
47    
48  my $nos = new Nos(  my $nos = new Nos(
# Line 135  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 208  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
Legend:
Removed from v.47  
changed lines
  Added in v.51
  ViewVC Help
Powered by ViewVC 1.1.26