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 974A454054 for ; Fri, 15 Apr 2005 11:42:52 -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 37587-03 for ; Fri, 15 Apr 2005 14:42:49 +0000 (GMT) Received: from secf.com (209-128-104-244.BAYAREA.NET [209.128.104.244]) by svr1.postgresql.org (Postfix) with ESMTP id 8DEE05402D for ; Fri, 15 Apr 2005 11:42:47 -0300 (ADT) Received: from dinesh by secf.com (MDaemon.PRO.v7.2.2.R) with ESMTP id md50000642514.msg for ; Fri, 15 Apr 2005 07:43:23 -0700 Reply-To: From: "Dinesh Pandey" To: "'PostgreSQL'" Subject: Re: send mail from Postgres using PLTCLU language. Date: Fri, 15 Apr 2005 20:10:06 +0530 Organization: Second Foundation India P Ltd. MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_NextPart_000_009F_01C541F7.1FCE0490" X-Mailer: Microsoft Office Outlook, Build 11.0.5510 In-Reply-To: <20050415125113.C3A4053A95@svr1.postgresql.org> X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441 Thread-Index: AcVBuVQ1VR6TIbWnRx6awqd40AMuqwAD47pg X-Authenticated-Sender: dpandey@secf.com X-Spam-Processed: mail.secf.com, Fri, 15 Apr 2005 07:43:23 -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 07:43:28 -0700 Message-Id: <20050415144247.8DEE05402D@svr1.postgresql.org> X-Virus-Scanned: by amavisd-new at hub.org X-Spam-Status: No, hits=1.442 tagged_above=0 required=5 tests=AWL, FORGED_RCVD_HELO, HTML_50_60, HTML_MESSAGE, MSGID_FROM_MTA_ID X-Spam-Level: * X-Archive-Number: 200504/225 X-Sequence-Number: 21118 This is a multi-part message in MIME format. ------=_NextPart_000_009F_01C541F7.1FCE0490 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit 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 ------=_NextPart_000_009F_01C541F7.1FCE0490 Content-Type: text/html; charset="us-ascii" Content-Transfer-Encoding: quoted-printable

After using

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

I am able to send mail as = Cc:=20 also.

Thanks

Dinesh = Pandey

 

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

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_009F_01C541F7.1FCE0490--