/[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 24 by dpavlin, Sun May 15 22:30:54 2005 UTC revision 29 by dpavlin, Mon May 16 20:58:44 2005 UTC
# Line 16  sender.pl - command line notify sender u Line 16  sender.pl - command line notify sender u
16   sender.pl --queue[=mylist message.txt]   sender.pl --queue[=mylist message.txt]
17   sender.pl --send=mylist   sender.pl --send=mylist
18    
19    In C</etc/aliases> something like:
20    
21     mylist: "| /path/to/sender.pl --inbox=mylist"
22    
23  =head2 Command options  =head2 Command options
24    
25  =over 20  =over 20
# Line 29  my $add_opt; Line 33  my $add_opt;
33  my $queue_opt;  my $queue_opt;
34  my $send_opt;  my $send_opt;
35  my $email_opt;  my $email_opt;
36    my $inbox_opt;
37    
38  my $result = GetOptions(  my $result = GetOptions(
39          "list:s" => \$list_opt,          "list:s" => \$list_opt,
40          "add=s" => \$add_opt,          "add=s" => \$add_opt,
41          "queue:s" => \$queue_opt,          "queue:s" => \$queue_opt,
42          "send:s" => \$send_opt,          "send:s" => \$send_opt,
43            "inbox=s" => \$inbox_opt,
44          "debug" => \$debug,          "debug" => \$debug,
45          "verbose" => \$verbose,          "verbose" => \$verbose,
46          "email=s" => \$email_opt,          "email=s" => \$email_opt,
# Line 145  add C<--verbose> flag, it will display a Line 151  add C<--verbose> flag, it will display a
151                          $message_text .= $_;                          $message_text .= $_;
152                  }                  }
153    
154                  my $id = $nos->add_message_to_queue(                  my $id = $nos->add_message_to_list(
155                          list => $queue_opt,                          list => $queue_opt,
156                          message => $message_text,                          message => $message_text,
157                  );                  );
# Line 184  for single list. Line 190  for single list.
190    
191          $nos->send_queued_messages($send_opt);          $nos->send_queued_messages($send_opt);
192    
193    =item --inbox=list_name
194    
195    Feed incomming message back into notice sender.
196    
197    =cut
198    
199    } elsif ($inbox_opt) {
200    
201            warn "inbox option is not implemented";
202    
203  } else  {  } else  {
204          die "see perldoc $0 for help";          die "see perldoc $0 for help";
205  }  }
Legend:
Removed from v.24  
changed lines
  Added in v.29
  ViewVC Help
Powered by ViewVC 1.1.26