pg.ddx.io  pgsql-sql@postgresql.org mailing list archive  

help / color / mirror / Atom feed

send mail from Postgres using PLTCLU language.
2+ messages / 1 participants
[nested] [flat]

* send mail from Postgres using PLTCLU language.
@ 2005-04-15 12:47 Dinesh Pandey <dpandey@secf.com>
  2005-04-15 14:40 ` Re: send mail from Postgres using PLTCLU language. Dinesh Pandey <dpandey@secf.com>
  0 siblings, 1 reply; 2+ messages in thread

From: Dinesh Pandey @ 2005-04-15 12:47 UTC (permalink / raw)
  To: pgsql-sql

How to send mail from Postgres using PLTCLU language.
 
I am able to send mail, but I want to know how to add "Cc" option also.
(Program attached below)
 
How to add "Cc"  (Right now containd "From", "To", "Subject" and "Message").
----------------------------------------------------------------
 
CREATE or REPLACE FUNCTION pgmail(text, text, text, text) returns int4 as '
 set mailfrom $1
 set mailto $2
 set mailsubject $3
 set mailmessage $4
 
 set myHost "localhost"
 
 set myPort 25
 set mySock [socket $myHost $myPort]
 set toemailaddress_start [string first "<" $mailto]
 
 if {$toemailaddress_start != -1} {
  set toemailaddress_finish [string first ">" $mailto]
  set toemailaddress_start [expr $toemailaddress_start + 1]
  set toemailaddress_finish [expr $toemailaddress_finish - 1]
  set toemailaddress [string range $mailto $toemailaddress_start
$toemailaddress_finish]
 } else {
  set toemailaddress $mailto
 }
 
 set fromemailaddress_start [string first "<" $mailfrom]
 
 if {$fromemailaddress_start != -1} {
  set fromemailaddress_finish [string first ">" $mailfrom]
  set fromemailaddress_start [expr $fromemailaddress_start + 1]
  set fromemailaddress_finish [expr $fromemailaddress_finish - 1]
  set fromemailaddress [string range $mailfrom $fromemailaddress_start
$fromemailaddress_finish]
 } else {
  set fromemailaddress $mailfrom
 }
 
 fileevent $mySock writable [list svcHandler $mySock]
 fconfigure $mySock -buffering none
 
 puts $mySock "helo 127.0.0.1"
 
 gets $mySock name
 puts $mySock "mail from: $fromemailaddress"
 gets $mySock name
 puts $mySock "rcpt to: $toemailaddress"
 gets $mySock name
 puts $mySock "data"
 gets $mySock name
 puts $mySock "To: $mailto"
 puts $mySock "From: $mailfrom"
 puts $mySock "Subject: $mailsubject"
 puts $mySock ""
 puts $mySock "$mailmessage"
 puts $mySock "."
 gets $mySock name
 close $mySock
 return 1'
language 'pltclu';

 
--------------------------------
 

Regards
Dinesh Pandey

^ permalink  raw  reply  [nested|flat] 2+ messages in thread

* Re: send mail from Postgres using PLTCLU language.
  2005-04-15 12:47 send mail from Postgres using PLTCLU language. Dinesh Pandey <dpandey@secf.com>
@ 2005-04-15 14:40 ` Dinesh Pandey <dpandey@secf.com>
  0 siblings, 0 replies; 2+ messages in thread

From: Dinesh Pandey @ 2005-04-15 14:40 UTC (permalink / raw)
  To: pgsql-sql

After using 

puts $mySock "rcpt cc: myemail@domain.com" 

I am able to send mail as Cc: also.

Thanks

Dinesh Pandey

 

  _____  

From: pgsql-sql-owner@postgresql.org [mailto:pgsql-sql-owner@postgresql.org]
On Behalf Of Dinesh Pandey
Sent: Friday, April 15, 2005 6:18 PM
To: 'PostgreSQL'
Subject: [SQL] send mail from Postgres using PLTCLU language.


How to send mail from Postgres using PLTCLU language.
 
I am able to send mail, but I want to know how to add "Cc" option also.
(Program attached below)
 
How to add "Cc"  (Right now containd "From", "To", "Subject" and "Message").
----------------------------------------------------------------
 
CREATE or REPLACE FUNCTION pgmail(text, text, text, text) returns int4 as '
 set mailfrom $1
 set mailto $2
 set mailsubject $3
 set mailmessage $4
 
 set myHost "localhost"
 
 set myPort 25
 set mySock [socket $myHost $myPort]
 set toemailaddress_start [string first "<" $mailto]
 
 if {$toemailaddress_start != -1} {
  set toemailaddress_finish [string first ">" $mailto]
  set toemailaddress_start [expr $toemailaddress_start + 1]
  set toemailaddress_finish [expr $toemailaddress_finish - 1]
  set toemailaddress [string range $mailto $toemailaddress_start
$toemailaddress_finish]
 } else {
  set toemailaddress $mailto
 }
 
 set fromemailaddress_start [string first "<" $mailfrom]
 
 if {$fromemailaddress_start != -1} {
  set fromemailaddress_finish [string first ">" $mailfrom]
  set fromemailaddress_start [expr $fromemailaddress_start + 1]
  set fromemailaddress_finish [expr $fromemailaddress_finish - 1]
  set fromemailaddress [string range $mailfrom $fromemailaddress_start
$fromemailaddress_finish]
 } else {
  set fromemailaddress $mailfrom
 }
 
 fileevent $mySock writable [list svcHandler $mySock]
 fconfigure $mySock -buffering none
 
 puts $mySock "helo 127.0.0.1"
 
 gets $mySock name
 puts $mySock "mail from: $fromemailaddress"
 gets $mySock name
 puts $mySock "rcpt to: $toemailaddress"
 gets $mySock name
 puts $mySock "data"
 gets $mySock name
 puts $mySock "To: $mailto"
 puts $mySock "From: $mailfrom"
 puts $mySock "Subject: $mailsubject"
 puts $mySock ""
 puts $mySock "$mailmessage"
 puts $mySock "."
 gets $mySock name
 close $mySock
 return 1'
language 'pltclu';

 
--------------------------------
 

Regards
Dinesh Pandey

^ permalink  raw  reply  [nested|flat] 2+ messages in thread

end of thread, other threads:[~2005-04-15 14:40 UTC | newest]

Thread overview: 2+ messages (download: mbox mbox.gz follow: Atom feed)
-- links below jump to the message on this page --
2005-04-15 12:47 send mail from Postgres using PLTCLU language. Dinesh Pandey <dpandey@secf.com>
2005-04-15 14:40 ` Dinesh Pandey <dpandey@secf.com>

This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox