--- trunk/sender.pl	2005/05/25 15:02:12	51
+++ trunk/sender.pl	2005/06/21 09:41:22	57
@@ -117,9 +117,9 @@
 	}
 
 	foreach my $list (@lists) {
-		print $list->name," <",$list->email,">\n";
+		print $list->name,": ",$list->from_addr," <",$list->email,">\n";
 		foreach my $u ($nos->list_members( list => $list->name )) {
-			print "\t",$u->{'name'}, " <", $u->{'email'}, ">\n";
+			print "\t",$u->{'name'}, " <", $u->{'email'}, ">",( $u->{'ext_id'} ? ' ['.$u->{'ext_id'}.']' : '' ),"\n";
 		}
 	}
 
@@ -214,6 +214,14 @@
 
 } elsif (defined($list_name = $opt->{'send'})) {
 
+	unless ($opt->{'email_send_driver'}) {
+		print "WARNING: this will dump debugging output to STDERR\n";
+		print "enter alternative driver (e.g. smtp): ";
+		my $d = <STDIN>;
+		chomp($d);
+		$opt->{'email_send_driver'} = $d;
+	}
+
 	$nos->send_queued_messages(
 		list => $list_name,
 		driver => $opt->{'email_send_driver'},