spam-users.tcl

Spam downloaders based on the user_id list passed in. The user_id list must be signed.

Location:
/packages/download/www/admin/spam-users.tcl
Author:
jbank@arsdigita.com [jbank@arsdigita.com]
Created:
Mon Jan 8 17:33:15 2001
CVS ID:
$Id: spam-users.tcl,v 1.7 2013/09/30 11:05:50 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/download/www/admin/spam-users.tcl
ad_page_contract {
    Spam downloaders based on the user_id list passed in. The user_id list 
    must be signed.

     @author jbank@arsdigita.com [jbank@arsdigita.com]
     @creation-date Mon Jan  8 17:33:15 2001
     @cvs-id $Id: spam-users.tcl,v 1.7 2013/09/30 11:05:50 gustafn Exp $
} {
    user_id_list:verify
} -properties {
    users:multirow
    user_id_list_export:onevalue
    no_spam_count:onevalue
}

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

# get name, email and
# remove any users who don't want spam

set want_spam_list {}
db_multirow users user_select { *SQL* } {
    lappend want_spam_list $user_id
}
set no_spam_count [expr {[llength user_id_list] - [llength want_spam_list]}]
set user_id_list $want_spam_list

set user_id_list_export [export_vars -form -sign {user_id_list}]

ad_return_template