--- trunk/sender.pl	2005/05/15 17:04:18	19
+++ trunk/sender.pl	2005/05/15 21:19:26	20
@@ -1,10 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Class::DBI::Loader::Pg;
+use blib;
+use Nos;
 use Getopt::Long;
-use Email::Valid;
-use Email::Send;
 
 =head1 NAME
 
@@ -41,18 +40,16 @@
 	"email=s" => \$email_opt,
 );
 
-
-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 $nos = new Nos(
+	dsn => 'dbi:Pg:dbname=notices',
+	user => 'dpavlin',
+	passwd => '',
+	debug => $debug,
+	verbose => $verbose,
 );
 
+my $loader = $nos->{'loader'} || die "can't find loader?";
+
 my $lists = $loader->find_class('lists');
 my $users = $loader->find_class('users');
 my $user_list = $loader->find_class('user_list');
@@ -245,7 +242,7 @@
 					"To: " . $u->user_id->full_name . " <". $u->user_id->email. ">\n";
 
 				# FIXME do real sending :-)
-				send IO => "$hdr\n$msg";
+				$nos->send_email("$hdr\n$msg");
 
 				$sent->create({
 					message_id => $m->message_id,