rss.tcl

Setup or remove rss feed

Location:

/packages/news/www/admin/rss.tcl

Author:

Dave Bauer <dave@thedesignexperience.org>

Created:

2005-01-23

CVS ID:

$Id: rss.tcl,v 1.5 2018/08/15 16:29:24 gustafn Exp $

Related Files

• packages/news/www/admin/rss.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    
    Setup or remove rss feed
    
    @author Dave Bauer (dave@thedesignexperience.org)
    @creation-date 2005-01-23
    @cvs-id $Id: rss.tcl,v 1.5 2018/08/15 16:29:24 gustafn Exp $
} {
} -properties {
} -validate {
} -errors {
}

set package_id [ad_conn package_id]
set user_id [ad_conn user_id]
permission::require_permission \
    -object_id $package_id \
    -party_id $user_id \
    -privilege "admin"

if {[rss_support::subscription_exists \
                    -summary_context_id $package_id \
         -impl_name news]} {
    #deactivate rss
    rss_support::del_subscription \
        -summary_context_id $package_id \
        -impl_name "news" \
        -owner "news"
    set message "RSS feed deactivated"
} else {
    #activate rss
    set subscr_id [rss_support::add_subscription \
                       -summary_context_id $package_id \
                       -impl_name "news" \
                       -lastbuild "now" \
                       -owner "news"]
    rss_gen_report $subscr_id
    set message "RSS feed activated"
}

ad_returnredirect -message $message "./"
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: