hi Below is the cod that i wrote .....but everything runs fine except when i put in a group of email addresses and thne click the send button then it says that "bad or missing from address"...........but i have specified a from address.
can someone hepl with this? #!/usr/bin/perl -w use strict; use tml; use Mail::Sendmail; my %mail; my %project_opts = ( ALWAYS_RESET => ['error_msg'], CGI_NAME => 'mail.cgi', TML_DIR => '/usr/local/www/tml/', SESSION_DIR => '/usr/local/www/sessions/', LOCK_DIR => '/usr/local/www/lock/', VIRGIN_STAGE => 'front_page' ); my %project_stages = ( 'page' => [ 'front_page', '!confirmation' ], ); my %project_incs = ( ); interface_enter(%project_opts, %project_stages, %project_incs); sub transition_front_page() { my ($result, $name, $list, $f); $list = $tml{'address'}; if ($list =~ s/[\r\n]+/, /gm ) { print STDERR $list; if ($tml{'info'} =~ /^.+/ ) { $result = mail_address(); } } else { $result = "The information that has been sent is not correct"; } %mail = ( To => "$tml{'address'}\n", Subject => 'UUNET SA Scheduled Maintenance', From => '[EMAIL PROTECTED]', Message => "$tml{'info'}" ); $tml{'name'} = $result; } sub mail_address() { sendmail (%mail)or die $Mail::Sendmail::error; return "OK. Log says:\n", $Mail::Sendmail::log; } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]