| Oracle FAQ | Your Portal to the Oracle Knowledge Grid | |
 |
 | |||
| Oracle FAQ | Your Portal to the Oracle Knowledge Grid | |
|
| |||
Home -> Community -> Mailing Lists -> Oracle-L -> RE: RE: sending email
Ok, Guy was kind enough to send me this code within the body of the email..
so here it is
/*
mail_pipe.pc
read the output of an oracle dbms_pipe and send
it to sendmail for delivery as smtp email
grh_at_agency.com
#include <stdio.h>
#include <signal.h>
#include <syslog.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
EXEC SQL INCLUDE sqlca;
#define STRLEN 255
EXEC SQL BEGIN DECLARE SECTION;
char* v_Connect = "grh/grh";
char* v_PipeName = "mail_pipe";
int v_Status;
VARCHAR v_Code[5];
VARCHAR v_Address[STRLEN];
VARCHAR v_Subject[STRLEN];
VARCHAR v_Message[STRLEN];
EXEC SQL END DECLARE SECTION;
FILE* v_Sendmail;
char* v_Buffer[2 * STRLEN];
pid_t pid;
void sqlerror();
void cleanexit();
int main(int argc, char* argv[])
{
if ((pid = fork()) != 0)
{
exit(0);
}
setsid();
chdir("/");
umask(0);
openlog(argv[0], LOG_PID, LOG_DAEMON);
syslog(LOG_NOTICE, "dbms_pipe->smtp gateway daemon (built %s)
(grh_at_agency.com) starting up", __DATE__);
if ((signal(SIGINT, cleanexit) == SIG_ERR) ||
(signal(SIGTERM, cleanexit) == SIG_ERR))
{
syslog(LOG_NOTICE, "cannot trap SIGINT and SIGTERM,
exiting.");
exit (1);
}
EXEC SQL WHENEVER SQLERROR DO sqlerror();
EXEC SQL CONNECT :v_Connect;
syslog(LOG_NOTICE, "connected to oracle as %s", (char*)v_Connect);
for (;;)
{
syslog(LOG_NOTICE, "waiting for message on dbms_pipe %s",
(char*)v_PipeName);
EXEC SQL EXECUTE
BEGIN
:v_Status :=
SYS.DBMS_PIPE.RECEIVE_MESSAGE(:v_PipeName);
END;
END-EXEC;
if (v_Status == 0)
{
syslog(LOG_NOTICE, "receiving message on dbms_pipe
%s", (char*)v_PipeName);
v_Code.len = 5;
EXEC SQL EXECUTE
BEGIN
SYS.DBMS_PIPE.UNPACK_MESSAGE(:v_Code);
END;
END-EXEC;
v_Code.arr[v_Code.len] = '\0';
if (!strcmp(v_Code.arr, "STOP"))
{
break;
}
v_Address.len = STRLEN - 1;
v_Subject.len = STRLEN - 1;
v_Message.len = STRLEN - 1;
EXEC SQL EXECUTE
BEGIN
SYS.DBMS_PIPE.UNPACK_MESSAGE(:v_Address);
SYS.DBMS_PIPE.UNPACK_MESSAGE(:v_Subject);
SYS.DBMS_PIPE.UNPACK_MESSAGE(:v_Message);
END;
END-EXEC;
v_Address.arr[v_Address.len] = '\0';
v_Subject.arr[v_Subject.len] = '\0';
v_Message.arr[v_Message.len] = '\0';
sprintf((char*)v_Buffer, "%s -s '%s' %s",
"/usr/ucb/mail" ,v_Subject.arr, v_Address.arr);
if ((strstr(v_Buffer, ";") == 0) &&
(strstr(v_Buffer, "|") == 0) &&
(strstr(v_Buffer, "`") == 0) &&
(strstr(v_Buffer, ">") == 0) &&
(strstr(v_Buffer, "<") == 0) )
{
if (v_Sendmail = popen((char *)v_Buffer,
"w"))
{
fputs(v_Message.arr, v_Sendmail);
pclose(v_Sendmail);
syslog(LOG_NOTICE, "sent smtp
message
}
}
else
{
syslog(LOG_NOTICE, "shell metacharacter
detected in '%s'", (char*)v_Buffer);
}
}
else if (v_Status == 1)
{
syslog(LOG_NOTICE, "SYS.DBMS_PIPE.RECEIVE_MESSAGE
error status is %d\n", v_Status);
EXEC SQL ROLLBACK WORK RELEASE;
exit(1);
}
}
syslog(LOG_NOTICE, "dbms_pipe->smtp gateway daemon received STOP");
EXEC SQL COMMIT WORK RELEASE;
void sqlerror()
{
syslog(LOG_NOTICE, "sql error: %.*s\n", sqlca.sqlerrm.sqlerrml, sqlca.sqlerrm.sqlerrmc);
EXEC SQL WHENEVER SQLERROR CONTINUE;
EXEC SQL ROLLBACK RELEASE;
cleanexit();
void cleanexit()
{
EXEC SQL COMMIT WORK RELEASE; syslog(LOG_NOTICE, "SIGINT or SIGTERM received, disconnected\n");
exit(0);
}
/* end */
Hope that helps
Geeta Iyer
Sprint Enterprise Network Services
Work: (303)220-4788
Pager: 800-724-3508
E-Mail: Geeta.Iyer_at_SprintParanet.com
-----Original Message-----
From: root_at_fatcity.com [mailto:root_at_fatcity.com]On Behalf Of
dgoulet_at_vicr.com
Sent: Friday, April 28, 2000 10:06 AM
To: Multiple recipients of list ORACLE-L
Subject: Re:RE: sending email
Hey, I had the same experience!! And I was looking forward to seeing how
someone else did this, DAMN. Actually I have the DB's sending all kinds of
E-mail via a Pl/SQL package & a daily cron job. Works very well for more
than,
and is publicly available to all developers.
BTW: OEM console depends on the DBSNMP agents which if your on a version
lower
than 8.0.6 have bugs that will crash the listener. Watch for the size of
the
memory image to grow. If it does while dbsnmp is running, you've got the
bug.
____________________Reply Separator____________________ Author: "Nguyen; Long" <Long.Nguyen_at_its.csiro.au> Date: 4/27/00 6:11 PM
Ruth,
I saved your attachment to C: drive and then openned it using Notepad, and
the
following text is inside the file:
<encoded content removed -- binaries not allowed by ListGuru>
Appranetly you attached a binary file and the List did not allow it.
Long
-----Original Message-----
Sent: Thursday, April 27, 2000 9:59 PM
To: Multiple recipients of list ORACLE-L
Kevin Martin wrote:
> > Hi list. > > Is it possible for Oracle to send email notification when a specifiedevent
Hello,
I've attached a snippet of Pro*C (for Solaris, should work on most Unix variants) for listening on a DBMS_PIPE and sending the output using SMTP (the Internet email standard).
g
-- guy ruth hammond <grh_at_agency.com> | "Wade in with our workboots, Technology / Synergy / Consulting | try to finish the job." 07879607148 http://www.agency.com | -- Dar Williams -- Author: Nguyen, Long INET: Long.Nguyen_at_its.csiro.au Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051 San Diego, California -- Public Internet access / Mailing Lists -------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing). -- Author: INET: dgoulet_at_vicr.com Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051 San Diego, California -- Public Internet access / Mailing Lists -------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail messageReceived on Fri Apr 28 2000 - 12:29:52 CDT
 |
 |