--
-- rss-register.sql
-- 
-- @author Lars Pind
-- 
-- @cvs-id $Id: rss-register.sql,v 1.1 2002/10/08 15:47:13 rmello Exp $
--

declare
    foo integer;
begin

    foo := acs_sc_impl.new(
        impl_contract_name => 'RssGenerationSubscriber',
        impl_name => 'pinds_blog_entries',
        impl_owner_name => 'lars-blogger'
    );

    foo := acs_sc_impl_alias.new(
        impl_contract_name => 'RssGenerationSubscriber',
        impl_name => 'pinds_blog_entries',
        impl_operation_name => 'datasource',
        impl_alias => 'lars_blog__rss_datasource',
        impl_pl => 'TCL'
    );

    foo := acs_sc_impl_alias.new(
        impl_contract_name => 'RssGenerationSubscriber',
        impl_name => 'pinds_blog_entries',
        impl_operation_name => 'lastUpdated',
        impl_alias => 'lars_blog__rss_lastUpdated',
        impl_pl => 'TCL'
    );

end;
/
show errors