Index: openacs-4/packages/download/www/admin/spam-users-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/spam-users-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/download/www/admin/spam-users-2.tcl	18 Sep 2013 15:23:40 -0000	1.8
+++ openacs-4/packages/download/www/admin/spam-users-2.tcl	21 Oct 2024 12:25:41 -0000	1.9
@@ -14,24 +14,10 @@
 
 set user_id [ad_conn user_id]
 
-set page_content "[ad_header "Spam Downloaders"]
+ad_progress_bar_begin \
+    -title "Spam Downloaders" \
+    -message_1 "Spam is being sent out. You may move to a different url if you don't want to wait for this process to complete."
 
-<h2>Spam Downloaders</h2> 
-<p>
-[ad_context_bar "Spam Downloader"]
-
-<h3>Spam Downloader </h3>
-
-Spam is being sent out. You may move to a different url if you don't want to 
-wait for this process to complete.
-
-<p>
-...
-"
-
-# Takes too long to send emails
-ad_return_top_of_page $page_content
-
 # send out email
 set count 0
 foreach to_user_id $user_id_list {
@@ -42,18 +28,6 @@
     incr count
 }
 
-set page_content "
-
-<p>
-<b>$count</b> users are spammed successfully!
-
-[ad_footer]
-"
-
-ns_write $page_content
-
-
-
-
-
-
+ad_progress_bar_end \
+    -url . \
+    -message_after_redirect "$count users are spammed successfully!"