notice-sender/trunk/sender.pl

#!/usr/bin/perl -w

use strict;
use Class::DBI::Loader::Pg;
use Getopt::Long;
use Data::Dumper;

my ($list_opt,$debug) = (0,0);
my $add_opt;

my $result = GetOptions(
        "list"  => \$list_opt,
        "add=s" => \$add_opt,
        "debug" => \$debug,
);


my $loader = Class::DBI::Loader::Pg->new(
        debug           => $debug,
        dsn             => "dbi:Pg:dbname=notices",
        user            => "dpavlin",
        password        => "",
        namespace       => "Noticer",
#       additional_classes      => qw/Class::DBI::AbstractSearch/,
#       additional_base_classes => qw/My::Stuff/,
        relationships   => 1,
);

my $lists = $loader->find_class('lists');
my $users = $loader->find_class('users');
my $user_list = $loader->find_class('user_list');

if ($list_opt) {
        foreach my $list ($lists->retrieve_all) {
                print $list->name,"\n";
                foreach my $user_on_list ($user_list->search(list_id => $list->id)) {
                        my $user = $users->retrieve( id => $user_on_list->user_id );
                        print "\t",$user->full_name," <", $user->email, ">\n";
                }
        }
} elsif ($add_opt) {
        #my $noticer = $loader->find_class('Noticer') || die "can't find my class!";
        my $list = $lists->find_or_create({
                name => $add_opt,
        }) || die "can't add list $add_opt\n";
        while(<>) {
                chomp;
                next if (/^#/ || /^\s*$/);
                my ($email, $name) = split(/\s+/,$_, 2);
                print "# $name <$email>\n";
                my $this_user = $users->find_or_create({
                        email => $email,
                        full_name => $name,
                }) || die "can't find or create member\n";
                my $user_on_list = $user_list->find_or_create({
                        user_id => $this_user->id,
                        list_id => $list->id,
                }) || die "can't add user to list";
        }

        foreach my $c_name ($loader->tables) {
                my $c = $loader->find_class($c_name)|| die "can't find $c_name";
                $c->dbi_commit();
        }

} else  {
        die "$0 --list --add=name_of_list --debug\n";
}


1	#!/usr/bin/perl -w
2
3	use strict;
4	use Class::DBI::Loader::Pg;
5	use Getopt::Long;
6	use Data::Dumper;
7
8	my ($list_opt,$debug) = (0,0);
9	my $add_opt;
10
11	my $result = GetOptions(
12	"list" => \$list_opt,
13	"add=s" => \$add_opt,
14	"debug" => \$debug,
15	);
16
17
18	my $loader = Class::DBI::Loader::Pg->new(
19	debug => $debug,
20	dsn => "dbi:Pg:dbname=notices",
21	user => "dpavlin",
22	password => "",
23	namespace => "Noticer",
24	# additional_classes => qw/Class::DBI::AbstractSearch/,
25	# additional_base_classes => qw/My::Stuff/,
26	relationships => 1,
27	);
28
29	my $lists = $loader->find_class('lists');
30	my $users = $loader->find_class('users');
31	my $user_list = $loader->find_class('user_list');
32
33	if ($list_opt) {
34	foreach my $list ($lists->retrieve_all) {
35	print $list->name,"\n";
36	foreach my $user_on_list ($user_list->search(list_id => $list->id)) {
37	my $user = $users->retrieve( id => $user_on_list->user_id );
38	print "\t",$user->full_name," <", $user->email, ">\n";
39	}
40	}
41	} elsif ($add_opt) {
42	#my $noticer = $loader->find_class('Noticer') \|\| die "can't find my class!";
43	my $list = $lists->find_or_create({
44	name => $add_opt,
45	}) \|\| die "can't add list $add_opt\n";
46	while(<>) {
47	chomp;
48	next if (/^#/ \|\| /^\s*$/);
49	my ($email, $name) = split(/\s+/,$_, 2);
50	print "# $name <$email>\n";
51	my $this_user = $users->find_or_create({
52	email => $email,
53	full_name => $name,
54	}) \|\| die "can't find or create member\n";
55	my $user_on_list = $user_list->find_or_create({
56	user_id => $this_user->id,
57	list_id => $list->id,
58	}) \|\| die "can't add user to list";
59	}
60
61	foreach my $c_name ($loader->tables) {
62	my $c = $loader->find_class($c_name)\|\| die "can't find $c_name";
63	$c->dbi_commit();
64	}
65
66	} else {
67	die "$0 --list --add=name_of_list --debug\n";
68	}
69
70