Gossamer Forum: Products: DBMan: Customization: Email upon adding a record

Feb 11, 2003, 11:19 PM

atomant

User (54 posts)

Feb 11, 2003, 11:19 PM

Post #1 of 6

Shortcut

Email upon adding a record

Hi!

I have added mod for sending an email to admin when record is added. Problem is that it just send a message:
"The following record was added to the database:"
and then no data of the record. This is the code I have put in html.pl:

Code:
my (%rec) = &get_record($in{$db_key}); 

  open (MAIL, "$mailprog") || &cgierr("Can't start mail program"); 
    print MAIL "To: $admin_email\n"; 
    print MAIL "From: $admin_email\n"; 
    print MAIL "Subject: $html_title New Record\n\n"; 
    print MAIL "The following new record has been added to the database:.\n\n"; 
    foreach $col ($db_cols) { 
      print MAIL "$col -- $rec{$col}\n"; 
    } 
  close (MAIL);

It doesn't fetch the records data.
Any idea ?

And I would also like to have the name of the user who add this record. How do I do that ?

Sasa

Feb 12, 2003, 12:11 AM

atomant

User (54 posts)

Feb 12, 2003, 12:11 AM

Post #2 of 6

Shortcut

Re: [atomant] Email upon adding a record In reply to

OK, I have solve the issue about blank email. But still I would like to see who added this record. Wink

Feb 12, 2003, 2:14 AM

Paul

Veteran (19537 posts)

Feb 12, 2003, 2:14 AM

Post #3 of 6

Shortcut

Re: [atomant] Email upon adding a record In reply to

$db_cols should be @db_cols - you can't loop a scalar.

However I'd change:

Code:
foreach $col ($db_cols) {        
    print MAIL "$col -- $rec{$col}\n";      
}

to:

Code:
print MAIL map { qq|$col -- $rec{$_}\n| } @db_cols;

Feb 12, 2003, 2:21 AM

atomant

User (54 posts)

Feb 12, 2003, 2:21 AM

Post #4 of 6

Shortcut

Re: [Paul] Email upon adding a record In reply to

Is this change going to print out the user who added the record ?

Sasa

Feb 12, 2003, 2:27 AM

Paul

Veteran (19537 posts)

Feb 12, 2003, 2:27 AM

Post #5 of 6

Shortcut

Re: [atomant] Email upon adding a record In reply to

It will print out the whole record which I assume the original code wasn't doing?

Feb 12, 2003, 3:12 AM

davidolley

User (158 posts)

Feb 12, 2003, 3:12 AM

Post #6 of 6

Shortcut

Re: [atomant] Email upon adding a record In reply to

If you have the email address of the submitter as a field (let us say it is named 'email'), then replace the line:

print MAIL "The following new record has been added to the database:.\n\n";

with:

print MAIL "The following new record has been added to the database by $mail:.\n\n";

I think that should do the trick.
-------------
David Olley
Anglo & Foreign International Limited,
http://www.firehelmets.co.uk

There are 10 types of people in the world: those who understand binary, and those who don't.