最近寫了一直Web Service給很多不同站的客戶端呼叫，并直接寄信通知程式中的異常。

直接在oracle中設置某張表的trigger（after insert），當有新的異常資料寫入時候，寄給相關站別的管理員。

/* Written by milo on 2017-03-09

*觸發器發送email

*/

CREATE OR REPLACE TRIGGER small_program_exception_afin

  AFTER INSERT ON small_program_exception

  FOR EACH ROW

DECLARE

  l_html         VARCHAR2(32767);

  v_station_name varchar(300);

  v_email_string varchar2(1000);

  v_program_name varchar2(300);

  v_station_code varchar(300);

BEGIN

  /*

  dbms_output.put_line('new.station: ' || :new.station);

  dbms_output.put_line('new.program_id: ' || :new.program_id);

  dbms_output.put_line('new.occurred_time: ' ||

                       to_char(:new.occurred_time, 'yyyy-mm-dd hh24:mm:ss'));

  dbms_output.put_line('new.program_id: ' ||

                       substr(:new.exception_message, 1, 32767));

  */

  BEGIN

    --獲取程式名稱、接收人email以及站名稱

    select s.stn_name, m.mail_for_error, p.name,s.stn_code

      into v_station_name, v_email_string, v_program_name,v_station_code

      from tk_cust_prog_m m, tk_cust_prog_d d, station s, tk_programe p

     where m.custom_no = d.custom_no

       and m.custom_no = s.stn_code

       and d.prog_id = p.id

       and d.prog_id = :new.program_id

       and d.custom_no = :new.station;

  exception

    when no_data_found then

      raise_application_error(-20001, 'No data found.');

      --dbms_output.put_line('no_data_found');

      --dbms_output.put_line('v_email_string: ' || v_email_string);

      if (v_email_string is null or v_email_string = ' ') then

        raise_application_error(-20001,

                                'Errors email recipient should not be empty, please type the recipient''s email address on the web-function');

      end if;

  END;

  l_html := '<html>

<head>

    <title></title>

</head>

<body>

<p> Dear ' || v_station_code || '</p>

<p> This email is to notify you that an unexpected error occurred in the program. Please check it ASAP.</p>

<p> Exception Message</p>

<p> ------------------------------------------------------------------------------</p>

<p> <b>' || v_station_name || '</b></p>

<p> <b>' || v_program_name || '</b></p>

<p> Posted on ' ||

            to_char(:new.occurred_time, 'mm-dd-yyyy hh24:mm:ss') || '</p>

<p> ' || substr(:new.exception_message, 1, 32767) || '</p>

<p> ------------------------------------------------------------------------------</p>

</body>

</html>';

  send_mail(p_to        => v_email_string,

            p_from      => 'milo@***.com', -- ***@oecgroup.com

            p_subject   => 'Program Occurred Errors Notice',

            p_text_msg  => '',

            p_html_msg  => l_html,

            p_smtp_host => 'spam.***.com',

            p_account   => 'milo@***.com',

            p_password  => '***');

END;

/

Oracle觸發器調用procedure寄信的更多相关文章

  1. Postgresql 創建觸發器，刪除觸發器和 禁用觸發器

    CREATE OR REPLACE FUNCTION XF_VIP_AFUPD_WX() RETURNS trigger AS $$ DECLARE i_count integer; s_wx_ope ...

  2. SQL觸發器聯級刪除

    Create TRIGGER [dbo].[trigInstructionsDelete] ON dbo.Instructions instead OF DELETE AS BEGIN DECLARE ...

  3. 利用 Oracle EM 企业管理器 进行oracle SQL的优化（自动生成索引）

    利用 Oracle EM 企业管理器 进行oracle SQL的优化(自动生成索引) ##应用情景 项目中有大量的SQL,尤其是涉及到统计报表时,表关联比较多,当初开发建表时也没搞好索引关联的,上线后 ...

  4. Oracle SQL优化器简介

    目录 一.Oracle的优化器 1.1 优化器简介 1.2 SQL执行过程 二.优化器优化方式 2.1 优化器的优化方式 2.2 基于规则的优化器 2.3 基于成本的优化器 三.优化器优化模式 3.1 ...

  5. 怎么配置 Oracle 侦听器来使用SQL操作ST_Geometry

    关于这个内容,其实从ArcSDE9.2推出ST_Geometry就让用户感到很有吸引力,而且特别是在ArcSDE9.3之后,用户使用SQL操作ST_geometry越来越多,但是在配置Oracle监听 ...

  6. Oracle的优化器的RBO和CBO方式

      1.基于规则的优化方式(Rule-Based Optimization,简称为RBO)       优化器在分析SQL语句时,所遵循的是Oracle内部预定的一些规则,对数据是不敏感的.它只借助少 ...

  7. Oracle的优化器介绍

    Oracle优化器介绍 本文讲述了Oracle优化器的概念.工作原理和使用方法,兼顾了Oracle8i.9i以及最新的10g三个版本.理解本文将有助于您更好的更有效的进行SQL优化工作. RBO优化器 ...

  8. Oracle 服务器端执行带参数的procedure

    进入服务器后 su - oracle sqlplus schema/schemapass 连接上以后,输入以下,然后执行 declare vRet number(5) := 8; begin proc ...

  9. jQuery-menu-aim有時候不能觸發BUG解決辦法

    在使用jQuery-menu-aim菜單時有時候鼠標移上去會發現樣式有改變但是第二階菜單卻沒有出現的問題 解決辦法:在exitMenu的方法中加入return true; 如下所示: exitMenu ...

随机推荐

  1. 恒大威武！关于SQL的一些基础知识整理回顾

    首先的首先,恒大威武! 开始正题. 关系代数: 目前主流的关系型数据库,是建立在关系代数的基础上的,即他的数学支撑是关系代数. 关系代数主要包括如下几个二目运算:并运算union.交运算interse ...

  2. C#获取外网IP、本机MAC地址及Ping的实现

    原文 获取外网IP, C#获取本机的MAC地址,C#通过编程方式实现Ping 获取外网IP地址 思路是通过WebRequest连接一些网上提供IP查询服务的网站,下载到含有你的IP的网页,然后用正则表 ...

  3. Linux监控和安全运维 1.9 zabbix增加客户端监控

    1.在客户端安装 zabbix20与服务器相对应. yum install zabbix20-agent 2.修改配置文件 vim /etc/zabbix_agentd.conf Server=127 ...

  4. C++异常处理(转)

    引言 异常,让一个函数可以在发现自己无法处理的错误时抛出一个异常,希望它的调用者可以直接或者间接处理这个问题.而传统错误处理技术,检查到一个局部无法处理的问题时: 1.终止程序(例如atol,atoi ...

  5. 【转】iphone - ios app maximum memory budget

    https://stackoverflow.com/questions/5887248/ios-app-maximum-memory-budget device: (crash amount/tota ...

  6. C++中float类型的存储

    C++中float用32位来表示,f = (-1)^S * T * 2^E,S是符号位,T是尾数,E是指数 首先我们把f表示成科学计数法的形式,然后再写出其在内存中的表示,在这里T写成1.XXX的形式 ...

  7. freeswitch由于ext-sip-ip地址填写错误导致32秒拆线问题

    通话32秒左右就断掉 检查 profile 的 ext-sip-ip 设置ext-rtp-ip和ext-sip-ip 可以直接设置为外网IP 自建stun-server, 更新后, 过了好几个小时出现 ...

  8. laravel phpstorm IDE 代码提示

    第一步:在项目的composer.json中添加如下一行 "require": { "laravel/framework": "5.0.*" ...

  9. 前向渲染路径细节 Forward Rendering Path Details

    正向渲染路径细节 Forward Rendering Path Details Forward Rendering path renders each object in one or more pa ...

  10. centos 命令行和图形桌面模式的切换

    1.安装系统时建议安装图形界面,毕竟图形桌面下安装程序,比较方便 2.系统部署完成后可以切换到命令行界面:打开一个SHELL窗口运行 init 3 即可进入命令行界面.恢复图形用init 5 3.进入 ...