rss_support::add_subscription (public)

 rss_support::add_subscription -summary_context_id summary_context_id \
    -impl_name impl_name -owner owner [ -creation_user creation_user ] \
    [ -creation_ip creation_ip ] [ -object_type object_type ] \
    [ -timeout timeout ] [ -lastbuild lastbuild ] \
    [ -context_id context_id ] [ -creation_date creation_date ]

Defined in packages/rss-support/tcl/rss-support-procs.tcl

Switches:

-summary_context_id (required)

object_id to subscribe to

-impl_name (required)

RssGenSubscr service contract implementation name

-owner (required)

-creation_user (optional)

-creation_ip (optional)

-object_type (optional, defaults to "rss_gen_subscr")

object type to create

-timeout (optional, defaults to "3600")

time between rebuilds of the rss feed

-lastbuild (optional)

-context_id (optional)

object this subscription inherits from

-creation_date (optional)

date and time subscription was created

Returns:

subscr_id

Error:

Author:

Dave Bauer <dave@thedesignexperience.org>

Created:

2005-01-22

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    if {![info exists context_id]} {
        set context_id $summary_context_id
    }

    set impl_id [db_string get_impl_id ""]
    set sysdate [clock format [clock seconds] -format "%Y-%m-%d"]

    set var_list [list  [list p_subscr_id ""]  [list p_impl_id $impl_id]  [list p_summary_context_id $summary_context_id]  [list p_timeout $timeout]  [list p_lastbuild $sysdate]  [list p_object_type $object_type]  [list p_creation_user $creation_user ]  [list p_creation_ip $creation_ip]  [list p_context_id $context_id]
                  ]
    if {([info exists creation_date] && $creation_date ne "")} {
        lappend var_list [list creation_date $creation_date]
    }
    if { $lastbuild ne "" } {
        lappend var_list [list p_lastbuild $lastbuild]
    }

    return [package_exec_plsql  -var_list $var_list  rss_gen_subscr new]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="rss_support::add_subscription.get_impl_id">
    <querytext>
      select impl_id
      from acs_sc_impls
      where impl_name=:impl_name
      and impl_contract_name='RssGenerationSubscriber'
      and impl_owner_name=:owner
    </querytext>
</fullquery>

packages/rss-support/tcl/rss-support-procs.xql