Commit 2e2cfef9 authored by Mike Hibler's avatar Mike Hibler

Make it explicit that you need to login to "users" to clean up an over-quota

condition.
parent a8eaf85d
...@@ -39,11 +39,16 @@ You can check your usage with the 'quota' command on @USERNODE@: ...@@ -39,11 +39,16 @@ You can check your usage with the 'quota' command on @USERNODE@:
(Note: This will not work from nodes in an experiment.) (Note: This will not work from nodes in an experiment.)
The directory trees where you most likely have files are: The directory trees (on @USERNODE@) where you most likely have files are:
Project directory: @FSDIR_PROJ@ Project directory: @FSDIR_PROJ@
Group directory: @FSDIR_GROUPS@ Group directory: @FSDIR_GROUPS@
User/Home directory: @FSDIR_USERS@ User/Home directory: @FSDIR_USERS@
PLEASE NOTE: just login to @USERNODE@ directly to do the cleanup!
You will not be able to swapin an experiment to access these directories
while over quota.
Thanks, Thanks,
@THISHOMEBASE@ Testbed Operations @THISHOMEBASE@ Testbed Operations
@TBOPSEMAIL_NOSLASH@ @TBOPSEMAIL_NOSLASH@
......
...@@ -184,7 +184,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) { ...@@ -184,7 +184,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) {
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror({cause => 'user', type => 'primary', severity => SEV_ERROR, tberror({cause => 'user', type => 'primary', severity => SEV_ERROR,
error => ['over_disk_quota', $CONTROL]}, error => ['over_disk_quota', $CONTROL]},
"You are over your disk quota on $CONTROL; please cleanup!"); "You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -347,7 +347,8 @@ my $overquota = system("$checkquota $dbuid"); ...@@ -347,7 +347,8 @@ my $overquota = system("$checkquota $dbuid");
if ($overquota) { if ($overquota) {
tberror({cause => 'user', severity => SEV_WARNING, tberror({cause => 'user', severity => SEV_WARNING,
error => ['over_disk_quota', $CONTROL]}, error => ['over_disk_quota', $CONTROL]},
"You are over your disk quota on $CONTROL; please cleanup!"); "You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
} }
# #
......
...@@ -140,7 +140,8 @@ if ($instance->ArchiveTag(\$archive_tag) < 0) { ...@@ -140,7 +140,8 @@ if ($instance->ArchiveTag(\$archive_tag) < 0) {
} }
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -141,7 +141,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) { ...@@ -141,7 +141,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) {
# our time. Make sure user sees the error by exiting with 1. # our time. Make sure user sees the error by exiting with 1.
# #
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -144,7 +144,8 @@ if ($instance->ArchiveTag(\$archive_tag) < 0) { ...@@ -144,7 +144,8 @@ if ($instance->ArchiveTag(\$archive_tag) < 0) {
} }
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -162,7 +162,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) { ...@@ -162,7 +162,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) {
# our time. Make sure user sees the error by exiting with 1. # our time. Make sure user sees the error by exiting with 1.
# #
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -163,7 +163,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) { ...@@ -163,7 +163,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) {
# our time. Make sure user sees the error by exiting with 1. # our time. Make sure user sees the error by exiting with 1.
# #
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -147,7 +147,8 @@ if ($instance->ArchiveTag(\$archive_tag) < 0) { ...@@ -147,7 +147,8 @@ if ($instance->ArchiveTag(\$archive_tag) < 0) {
} }
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -163,7 +163,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) { ...@@ -163,7 +163,8 @@ if (! UserDBInfo($dbuid, \$user_name, \$user_email)) {
# our time. Make sure user sees the error by exiting with 1. # our time. Make sure user sees the error by exiting with 1.
# #
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
tberror("You are over your disk quota on $CONTROL; please cleanup!"); tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
exit(1); exit(1);
} }
......
...@@ -185,7 +185,8 @@ if ($UID && !TBAdmin($UID)) { ...@@ -185,7 +185,8 @@ if ($UID && !TBAdmin($UID)) {
# #
if (system("$checkquota $dbuid") != 0) { if (system("$checkquota $dbuid") != 0) {
die("*** $0:\n". die("*** $0:\n".
" You are over your disk quota on $CONTROL; please cleanup!\n"); " You are over your disk quota on $CONTROL; ".
"please login there and cleanup!\n");
} }
# #
......
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