Commit 4fde2353 authored by Leigh B Stoller's avatar Leigh B Stoller

Kill admin/stud flags on user before archiving.

parent 7d2b919c
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# Copyright (c) 2000-2015 University of Utah and the Flux Group. # Copyright (c) 2000-2016 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -390,6 +390,7 @@ if ($nuke) { ...@@ -390,6 +390,7 @@ if ($nuke) {
print "$target_user has been removed!\n"; print "$target_user has been removed!\n";
} }
else { else {
$target_user->Update({'admin' => 0, "stud" => 0});
$target_user->SetStatus($User::USERSTATUS_ARCHIVED) == 0 $target_user->SetStatus($User::USERSTATUS_ARCHIVED) == 0
or fatal("Could not archive $target_user"); or fatal("Could not archive $target_user");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment