--- loncom/debugging_tools/unsubresources.pl	2020/05/13 01:49:55	1.1
+++ loncom/debugging_tools/unsubresources.pl	2020/05/13 17:44:06	1.2
@@ -10,7 +10,7 @@
 # nodes which are the home servers for the authors of the replicated
 # resources, in the event that the author publishes updated version(s).
 #
-# $Id: unsubresources.pl,v 1.1 2020/05/13 01:49:55 raeburn Exp $
+# $Id: unsubresources.pl,v 1.2 2020/05/13 17:44:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -117,7 +117,8 @@ if ($action eq 'dryrun') {
     print "\n *** ".&mt('Running in a mode where changes will be made.')." ***\n";
     print "\n".
           &mt('Mode is [_1] -- replicated resources in [_2] will be unlinked and unsubscribed.',
-              "'$action'","'$londocroot/res/'")."\n";
+              "'$action'","'$londocroot/res/'")."\n".
+          &mt('Results will be logged in [_1].',"$londaemons/logs/unsubresources.log")."\n";
     print &mt('Continue? ~[y/N~] ');
     if (!&get_user_selection()) {
         exit;
@@ -236,7 +237,7 @@ sub check_directory {
                                 unlink("$dir/$item.meta");
                             }
                             if ($currhome ne '') {
-                                my $result = &Apache::lonnet::reply("unsub:$dir/$item",$currhome);
+                                my $result = &Apache::lonnet::unsubscribe("$dir/$item");
                                 if ($result eq 'ok') {
                                     print $fh &mt('Unsub complete for [_1] at [_2]',
                                                      "$dir/$item",$currhome)."\n";