If you use jabber.el, you can run the following code from the scratch buffer:

(dolist (n *jabber-roster*)
  (dolist (s '("subscribe" "subscribed"))
    (jabber-send-sexp `(presence ((to . ,(symbol-name n)) (type . ,s))))))