| |
|
1 |
|
| |
|
2 |
|
| |
|
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 |