+# Note to potential debuggers: You will have to change the iauth
+# policy before this (or any other H_reply hooks) will have any
+# effect. Do this by sending two signals of $SIG{RTMIN+2} to the
+# iauth-test process, as noted near the beginning of this script.
+sub host_change_and_done ($$) {
+ my ($client, $extra) = @_;
+ reply 'N iauth.assigned.host', $client;
+ reply 'D', $client;
+}
+