/[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 11 by dpavlin, Sat May 14 18:20:50 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 53  my $lists = $loader->find_class('lists') Line 53  my $lists = $loader->find_class('lists')
53  my $users = $loader->find_class('users');  my $users = $loader->find_class('users');
54  my $user_list = $loader->find_class('user_list');  my $user_list = $loader->find_class('user_list');
55  my $messages = $loader->find_class('messages');  my $messages = $loader->find_class('messages');
56  my $message_list = $loader->find_class('message_list');  my $queue = $loader->find_class('queue');
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 );
# Line 136  argument) or read from C<STDIN>. Line 144  argument) or read from C<STDIN>.
144    
145          $this_message->dbi_commit();          $this_message->dbi_commit();
146    
147          $message_list->find_or_create({          $queue->find_or_create({
148                  message_id => $this_message->id,                  message_id => $this_message->id,
149                  list_id => $this_list->id,                  list_id => $this_list->id,
150          }) || die "can't add message ",$this_message->id," to list ",$this_list->id, ": ",$this_list->name;          }) || die "can't add message ",$this_message->id," to list ",$this_list->id, ": ",$this_list->name;
Legend:
Removed from v.8  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26