-- -- The Notifications Package -- -- @author Ben Adida (ben@openforce.net) -- @version $Id: email-sc-impl-create.sql,v 1.1.1.2 2002/10/08 15:47:15 rmello Exp $ -- -- Copyright (C) 2000 MIT -- -- GNU GPL v2 -- -- -- The service contract implementation for email -- create function inline_1() returns integer as ' declare impl_id integer; foo integer; begin impl_id := acs_sc_impl__new ( ''NotificationDeliveryMethod'', ''notification_email'', ''notifications'' ); foo := acs_sc_impl_alias__new ( ''NotificationDeliveryMethod'', ''notification_email'', ''Send'', ''notification::email::send'', ''TCL'' ); foo := acs_sc_impl_alias__new ( ''NotificationDeliveryMethod'', ''notification_email'', ''ScanReplies'', ''notification::email::scan_replies'', ''TCL'' ); perform acs_sc_binding__new ( ''NotificationDeliveryMethod'', ''notification_email'' ); foo:= notification_delivery_method__new( NULL, impl_id, ''email'', ''Email'', now(), null, null, null ); return(0); end; ' language 'plpgsql'; select inline_1(); drop function inline_1();