/[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 10 by dpavlin, Sat May 14 14:26:21 2005 UTC revision 12 by dpavlin, Sat May 14 18:23:26 2005 UTC
# Line 26  Turn on debugging output from C<Class::D Line 26  Turn on debugging output from C<Class::D
26    
27  =cut  =cut
28    
29  my ($list_opt,$debug) = (0,0);  my $debug = 0;
30    my $list_opt;
31  my $add_opt;  my $add_opt;
32  my $queue_opt;  my $queue_opt;
33    
# Line 53  my $lists = $loader->find_class('lists') Line 54  my $lists = $loader->find_class('lists')
54  my $users = $loader->find_class('users');  my $users = $loader->find_class('users');
55  my $user_list = $loader->find_class('user_list');  my $user_list = $loader->find_class('user_list');
56  my $messages = $loader->find_class('messages');  my $messages = $loader->find_class('messages');
57  my $message_list = $loader->find_class('message_list');  my $queue = $loader->find_class('queue');
58    
59  =item --list[=list_name]  =item --list[=list_name]
60    
# Line 144  argument) or read from C<STDIN>. Line 145  argument) or read from C<STDIN>.
145    
146          $this_message->dbi_commit();          $this_message->dbi_commit();
147    
148          $message_list->find_or_create({          $queue->find_or_create({
149                  message_id => $this_message->id,                  message_id => $this_message->id,
150                  list_id => $this_list->id,                  list_id => $this_list->id,
151          }) || 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.10  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26