OpenACS

alexk
committed
MAIN:alexk:20051026194346
on 26 Oct 05
Check if contacts is installed before displaying complaint information
/oracle/rss-generation-sc-create.sql (+55)
  1 --
  2 -- ACS-SC Contract: RssGenerationSubscriber
  3 --
  4
  5 declare
  6   foo integer;
  7 begin
  8   foo := acs_sc_contract.new(
  9         contract_name => 'RssGenerationSubscriber',
  10         contract_desc => 'RSS Generation Subscriber'
  11   );
  12
  13   foo := acs_sc_msg_type.new(
  14         msg_type_name => 'RssGenerationSubscriber.Datasource.InputType',
  15         msg_type_spec => 'summary_context_id:string'
  16   );
  17
  18   foo := acs_sc_msg_type.new(
  19         msg_type_name => 'RssGenerationSubscriber.Datasource.OutputType',
  20         msg_type_spec => 'version:string,channel_title:string,channel_link:uri,channel_description:string,image:string,items:string,channel_language:string,channel_copyright:string,channel_managingEditor:string,channel_webMaster:string,channel_rating:string,channel_pubDate:timestamp,channel_lastBuildDate:timestamp,channel_skipDays:integer,channel_skipHours:integer'
  21   );
  22
  23   foo := acs_sc_operation.new(
  24         contract_name => 'RssGenerationSubscriber',
  25         operation_name => 'Datasource',
  26         operation_desc => 'Data Source',
  27         operation_iscachable_p => 'f',
  28         operation_nargs => 1,
  29         operation_inputtype => 'RssGenerationSubscriber.Datasource.InputType',
  30         operation_outputtype => 'RssGenerationSubscriber.Datasource.OutputType'
  31   );
  32
  33   foo := acs_sc_msg_type.new(
  34         msg_type_name => 'RssGenerationSubscriber.LastUpdated.InputType',
  35         msg_type_spec => 'summary_context_id:string'
  36   );
  37
  38   foo := acs_sc_msg_type.new(
  39         msg_type_name => 'RssGenerationSubscriber.LastUpdated.OutputType',
  40         msg_type_spec => 'lastupdate:timestamp'
  41   );
  42
  43   foo := acs_sc_operation.new(
  44         contract_name => 'RssGenerationSubscriber',
  45         operation_name => 'LastUpdated',
  46         operation_desc => 'Last Updated',
  47         operation_iscachable_p => 'f',
  48         operation_nargs => 1,
  49         operation_inputtype => 'RssGenerationSubscriber.LastUpdated.InputType',
  50         operation_outputtype => 'RssGenerationSubscriber.LastUpdated.OutputType'
  51   );
  52
  53 end;
  54 /
  55 show errors