set url /[ad_conn extra_url]

if { [regexp {^/(u|user)/([^/]+)/rss} $url ignore ignore2 screen_name] } {
    #Support old model user/<screen_name>/rss/rss.xml

    set package_id [ad_conn package_id]

    set screen_name [lindex $extra_url_list 1]
    
    set sql "select channel_id as summary_context_id
           from   weblogger_channels w, users u
           where  w.user_id = u.user_id
           and    u.screen_name = :screen_name
           and    w.package_id = :package_id"

    set summary_context_id [db_string select_user_id $sql]

    ns_returnfile 200 text/xml [rss_gen_report_file -summary_context_id $summary_context_id -impl_name pinds_blog_entries]

} else {

    if { [regexp {/(u|user)/([^/]+)/?} $url ignore ignore2 screen_name] } {
	rp_form_put screen_name $screen_name
    }

    if { [regexp {/(c|cat|category)/([^/]+)/?} $url ignore ignore2 category_short_name] } {
	rp_form_put category_short_name $category_short_name
    }

    if { [regexp {/(a|archive)/?([0-9]*)/?([0-9]*)/?([0-9]*)/?} $url ignore ignore2 year month day] } {
	if { [empty_string_p $year] && [empty_string_p $month] && [empty_string_p $day] } {
	    # get year, month, day
	    set date_list [dt_ansi_to_list [dt_sysdate]]
	    set year [lindex $date_list 0]
	    set month [format "%02d" [lindex $date_list 1]]
	}

	rp_form_put year $year
	rp_form_put month $month
	rp_form_put day $day
    }

    if { [regexp {one-entry$} $url] } {
	# Backwards compatibility with user/<screen_name>/one-entry?entry_id=<entry_id>
	rp_internal_redirect "/packages/lars-blogger/www/one-entry"
    } else {
	rp_internal_redirect "/packages/lars-blogger/www/index"
    }
}