最近寫了一直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. 摆脱Login控件，自己定义登录操作

    protected void ImageButton1_Click(object sender, ImageClickEventArgs e) { //在登录过程中,程序自动使用login.aspx进 ...

  2. leetcode384

    public class Solution { private int[] nums; private Random random; public Solution(int[] nums) { thi ...

  3. Django models拆分

    大多数Django教程都是将models放在models.py文件(模块)中, 然而随着models类的增加, 将类放在一个文件中太混乱了, 于是将models做成一个package: 这样就可以将m ...

  4. properties 中文乱码问题的解决

    在用properties处理配置信息时,发现有时出现中文乱码的问题,后经查资料得知是由于编码不一致引起的.于是解决之. [原理解释] 我们用 API操作properties文件,如果获取的属性值是中文 ...

  5. PHP - 用户异常断开连接，脚本强制继续执行，异常退出回调

    试想如下情况.如果你的用户正在执行一个需要非常长的执行时间的操作.他点了执行了之后,浏览器就开始蛋疼地转.如果执行5分钟,你猜他会干啥,显然会觉得什么狗屎垃圾站,这么久都不响应,然后就给关了.当然这个 ...

  6. springMVC环境搭建(1)

    工作一年以来,写的都是.net,最近比较闲,想把之前学过的java相关的东西捡起来,也学点新的东西.以前做过SSH架构,一直好奇spring mvc是怎么样的,所以今天试试看. 总体的代码结构 手动输 ...

  7. cdn path b 问题

    主节点内存和磁盘最好大点,许多默认东西都放主节点了 mysql 配置文件修改后server-id = 1 1.hive 启动不起来 去配置里关掉 严格的 Hive Metastore 架构验证 hiv ...

  8. 689. Maximum Sum of 3 Non-Overlapping Subarrays三个不重合数组的求和最大值

    ［抄题］: In a given array nums of positive integers, find three non-overlapping subarrays with maximum ...

  9. zabbix自动发现监控mysql

    一. 数据库给只读权限 1.1 grant usage on *.* to 'zabbix'@'127.0.0.1' identified by 'zabbix'; flush privileges; ...

  10. vmware Selinux配置错误，导致无法启动虚拟机

    Linux 开机提示kernel panic - not syncing: Attempted to kill init! 解决方法: 系统启动的时候,按下‘e’键进入grub编辑界面,编辑grub菜 ...