X-Original-To: pgsql-sql-postgresql.org@localhost.postgresql.org Received: from localhost (unknown [200.46.204.144]) by svr1.postgresql.org (Postfix) with ESMTP id 02EFE53AD2 for ; Fri, 15 Apr 2005 09:51:20 -0300 (ADT) Received: from svr1.postgresql.org ([200.46.204.71]) by localhost (av.hub.org [200.46.204.144]) (amavisd-new, port 10024) with ESMTP id 94111-08 for ; Fri, 15 Apr 2005 12:51:15 +0000 (GMT) Received: from secf.com (209-128-104-244.BAYAREA.NET [209.128.104.244]) by svr1.postgresql.org (Postfix) with ESMTP id C3A4053A95 for ; Fri, 15 Apr 2005 09:51:13 -0300 (ADT) Received: from dinesh by secf.com (MDaemon.PRO.v7.2.2.R) with ESMTP id md50000642053.msg for ; Fri, 15 Apr 2005 05:51:05 -0700 Reply-To: From: "Dinesh Pandey" To: "'PostgreSQL'" Subject: send mail from Postgres using PLTCLU language. Date: Fri, 15 Apr 2005 18:17:49 +0530 Organization: Second Foundation India P Ltd. MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_NextPart_000_0072_01C541E7.70363A20" X-Mailer: Microsoft Office Outlook, Build 11.0.5510 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441 Thread-Index: AcVBuVQ1VR6TIbWnRx6awqd40AMuqw== X-Authenticated-Sender: dpandey@secf.com X-Spam-Processed: mail.secf.com, Fri, 15 Apr 2005 05:51:05 -0700 (not processed: message from valid local sender) X-MDRemoteIP: 220.227.32.11 X-Return-Path: dpandey@secf.com X-MDaemon-Deliver-To: pgsql-sql@postgresql.org X-MDAV-Processed: mail.secf.com, Fri, 15 Apr 2005 05:51:07 -0700 Message-Id: <20050415125113.C3A4053A95@svr1.postgresql.org> X-Virus-Scanned: by amavisd-new at hub.org X-Spam-Status: No, hits=1.439 tagged_above=0 required=5 tests=AWL, FORGED_RCVD_HELO, HTML_40_50, HTML_MESSAGE, MSGID_FROM_MTA_ID X-Spam-Level: * X-Archive-Number: 200504/223 X-Sequence-Number: 21116 This is a multi-part message in MIME format. ------=_NextPart_000_0072_01C541E7.70363A20 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit 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 ------=_NextPart_000_0072_01C541E7.70363A20 Content-Type: text/html; charset="us-ascii" Content-Transfer-Encoding: quoted-printable
How to = send mail=20 from Postgres using PLTCLU language.
 
I am = able to send=20 mail, but I want to know how to add "Cc" option also. (Program = attached=20 below)
 
How to = add=20 "Cc"  (Right now containd "From", "To", "Subject" and=20 "Message").
----------------------------------------------= ------------------
 
CREATE or REPLACE FUNCTION = pgmail(text,=20 text, text, text) returns int4 as '
 set mailfrom = $1
 set mailto=20 $2
 set mailsubject $3
 set mailmessage=20 $4
 
 set myHost "localhost"
 
 set = myPort=20 25
 set mySock [socket $myHost $myPort]
 set=20 toemailaddress_start [string first "<" $mailto]
 
 if = {$toemailaddress_start !=3D -1} {
  set = toemailaddress_finish [string=20 first ">" $mailto]
  set toemailaddress_start [expr=20 $toemailaddress_start + 1]
  set toemailaddress_finish = [expr=20 $toemailaddress_finish - 1]
  set toemailaddress [string = range=20 $mailto $toemailaddress_start $toemailaddress_finish]
 } else=20 {
  set toemailaddress = $mailto
 }
 
 set=20 fromemailaddress_start [string first "<" = $mailfrom]
 
 if=20 {$fromemailaddress_start !=3D -1} {
  set = fromemailaddress_finish=20 [string first ">" $mailfrom]
  set = fromemailaddress_start [expr=20 $fromemailaddress_start + 1]
  set fromemailaddress_finish = [expr=20 $fromemailaddress_finish - 1]
  set fromemailaddress = [string range=20 $mailfrom $fromemailaddress_start $fromemailaddress_finish]
 } = else=20 {
  set fromemailaddress=20 $mailfrom
 }
 
 fileevent $mySock writable [list = svcHandler $mySock]
 fconfigure $mySock -buffering=20 none
 
 puts $mySock "helo = 127.0.0.1"
 
 gets=20 $mySock name
 puts $mySock "mail from: = $fromemailaddress"
 gets=20 $mySock name
 puts $mySock "rcpt to: = $toemailaddress"
 gets=20 $mySock name
 puts $mySock "data"
 gets $mySock=20 name
 puts $mySock "To: $mailto"
 puts $mySock "From:=20 $mailfrom"
 puts $mySock "Subject: $mailsubject"
 puts = $mySock=20 ""
 puts $mySock "$mailmessage"
 puts $mySock = "."
 gets=20 $mySock name
 close $mySock
 return 1'
language=20 'pltclu';
 
--------------------------------=
 

Regards
Dinesh Pandey

------=_NextPart_000_0072_01C541E7.70363A20--