need help with this.

[Gareth Londt]

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]

mail help?

[Gareth Londt]

hi

i have  a problem!

i am using the Mail::Sendmail module and well i have  it working all nicley 
and stuff but this is were it doent work the way i want it to.
Firstly i have a text area that needs to filled in with a few email addresses, 
but when i use the regexp for this value in the text area the mail that i get 
has all the headers and including text in the BODY of the message and its not 
suppose to. MY regexp is ~ s/\n+/\, /gm i need to replace all the 
enters with a comma so that more than one email can be sent at one time.

please help is needed as this is very urgent.

thanks


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

somone please help

[Gareth Londt]

can someone please help me with this problem?


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

NNED HELP

[Gareth Londt]

PLEASE CAN SOMONE HELP ME, IM IN DESPERATE NEED OF SOMTHING OR SOME CODE TO DO 
THIS?

i need a script that will connect to a url and pull off information and this 
needs to be done in a perl script. Please can somone help, ive tried 
everything that i know of but ti know that there is somthing that can work.

pleasethis would be much , much appreciated.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: suggestions?

[Gareth Londt]

hi

i have a problem in which i have a lists of Domain names ..k, and i need to 
get there matching email address of an external site but i cant arite a shell 
script so i was wondering if anyone has any ideas or code that can help me 
with what im doing?

also the script needs to run so that when different domains come in it will 
fetch those aswell and all the email addresses needs to be stored in a .txt 
file with its matching Domain.

i have tried a lynx dump but this is not going to work as the shell script is 
going to be hectic with all the regualr expression.

Any ideas? 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Regular expression

[Gareth Londt]

hi

i have just started using perl and i am getting to grips quite quickly 
although i would like to know : i have a  text file and i need a regular 
expression to pull he information off that file...?

Help would be much appreciated!


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]