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"; |