loncom/debugging_tools/unsubresources.pl - diff

Return to unsubresources.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.1, 2020/05/13 01:49:55	version 1.2, 2020/05/13 17:44:06
Line 117 if ($action eq 'dryrun') {	Line 117 if ($action eq 'dryrun') {
print "\n * ".&mt('Running in a mode where changes will be made.')." *\n";	print "\n * ".&mt('Running in a mode where changes will be made.')." *\n";
print "\n".	print "\n".
&mt('Mode is [_1] -- replicated resources in [_2] will be unlinked and unsubscribed.',	&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~] ');	print &mt('Continue? ~[y/N~] ');
if (!&get_user_selection()) {	if (!&get_user_selection()) {
exit;	exit;
Line 236 sub check_directory {	Line 237 sub check_directory {
unlink("$dir/$item.meta");	unlink("$dir/$item.meta");
}	}
if ($currhome ne '') {	if ($currhome ne '') {
my $result = &Apache::lonnet::reply("unsub:$dir/$item",$currhome);	my $result = &Apache::lonnet::unsubscribe("$dir/$item");
if ($result eq 'ok') {	if ($result eq 'ok') {
print $fh &mt('Unsub complete for [_1] at [_2]',	print $fh &mt('Unsub complete for [_1] at [_2]',
"$dir/$item",$currhome)."\n";	"$dir/$item",$currhome)."\n";