/[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 8 by dpavlin, Sat May 14 13:12:00 2005 UTC revision 10 by dpavlin, Sat May 14 14:26:21 2005 UTC
# Line 12  sender.pl - command line notify sender u Line 12  sender.pl - command line notify sender u
12  =head1 SYNOPSYS  =head1 SYNOPSYS
13    
14   sender.pl --add=mylist members.txt   sender.pl --add=mylist members.txt
15   sender.pl --list   sender.pl --list[=mylist]
16   sender.pl --queue=mylist message.txt   sender.pl --queue=mylist message.txt
17   sender.pl --send=mylist   sender.pl --send=mylist
18    
# Line 31  my $add_opt; Line 31  my $add_opt;
31  my $queue_opt;  my $queue_opt;
32    
33  my $result = GetOptions(  my $result = GetOptions(
34          "list"  => \$list_opt,          "list:s" => \$list_opt,
35          "add=s" => \$add_opt,          "add=s" => \$add_opt,
36          "queue=s" => \$queue_opt,          "queue=s" => \$queue_opt,
37          "debug" => \$debug,          "debug" => \$debug,
# Line 55  my $user_list = $loader->find_class('use Line 55  my $user_list = $loader->find_class('use
55  my $messages = $loader->find_class('messages');  my $messages = $loader->find_class('messages');
56  my $message_list = $loader->find_class('message_list');  my $message_list = $loader->find_class('message_list');
57    
58  =item --list  =item --list[=list_name]
59    
60  List all available lists and users on them  List all available lists and users on them. Optional value is name of list
61    and it will produce users just on that list.
62    
63  =cut  =cut
64    
65  if ($list_opt) {  if (defined($list_opt)) {
66          foreach my $list ($lists->retrieve_all) {          my @lists;
67            if ($list_opt ne '') {
68                    @lists = $lists->search( name=> $list_opt )->first || die "can't find list $list_opt";
69            } else {
70                    @lists = $lists->retrieve_all;
71            }
72    
73            foreach my $list (@lists) {
74                  print $list->name,"\n";                  print $list->name,"\n";
75                  foreach my $user_on_list ($user_list->search(list_id => $list->id)) {                  foreach my $user_on_list ($user_list->search(list_id => $list->id)) {
76                          my $user = $users->retrieve( id => $user_on_list->user_id );                          my $user = $users->retrieve( id => $user_on_list->user_id );
Legend:
Removed from v.8  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26