--- trunk/Nos.pm 2005/05/17 19:15:27 37 +++ trunk/Nos.pm 2005/05/17 21:37:06 38 @@ -56,8 +56,8 @@ hash_len => 8, ); -Parametar C defined length of hash which will be added to each -outgoing e-mail message. +Parametar C defines length of hash which will be added to each +outgoing e-mail message to ensure that replies can be linked with sent e-mails. =cut @@ -87,15 +87,18 @@ =head2 new_list -Create new list +Create new list. Required arguments are name of C and +C address. $nos->new_list( - list => 'My list", + list => 'My list', email => 'my-list@example.com', ); Returns ID of newly created list. +Calls internally L<_add_list>, see details there. + =cut sub new_list { @@ -179,7 +182,7 @@ $nos->add_message_to_list( list => 'My list', message => 'Subject: welcome to list - + This is example message ', ); @@ -292,6 +295,9 @@ $m_obj->header_set('From', $from) || croak "can't set From: header"; $m_obj->header_set('To', $to) || croak "can't set To: header"; + $m_obj->header_set('X-Nos-Version', $VERSION); + $m_obj->header_set('X-Nos-Hash', $hash); + # FIXME do real sending :-) send IO => $m_obj->as_string; @@ -406,6 +412,11 @@ Returns C object for created list. +C address can be with domain or without it if your +MTA appends it. There is no checking for validity of your +list e-mail. Flexibility comes with resposibility, so please +feed correct (and configured) return addresses. + =cut sub _add_list {