HCoop
/
hcoop
/
scripts.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
690258d
)
Move frozen database into afs, run on fritz
author
clinton_admin
<clinton_admin@navajos.hcoop.net>
Thu, 20 Dec 2012 08:29:55 +0000
(
03:29
-0500)
committer
clinton_admin
<clinton_admin@navajos.hcoop.net>
Thu, 20 Dec 2012 08:29:55 +0000
(
03:29
-0500)
freeze
patch
|
blob
|
blame
|
history
diff --git
a/freeze
b/freeze
index
660619a
..
5c497a5
100755
(executable)
--- a/
freeze
+++ b/
freeze
@@
-3,7
+3,7
@@
#
# Purpose: freeze user (cancel user services except email), or unfreeze user.
#
#
# Purpose: freeze user (cancel user services except email), or unfreeze user.
#
-# Usage (RUN AS _ADMIN USER ON
DELEUZE WITHOUT SUDO
):
+# Usage (RUN AS _ADMIN USER ON
FRITZ WITHOUT SUDO ... but it shouldn't matter where you run it
):
#
# Display frozen users or details for one user (one user implies -verbose):
# freeze [user], OR
#
# Display frozen users or details for one user (one user implies -verbose):
# freeze [user], OR
@@
-94,11
+94,11
@@
use Getopt::Long qw/GetOptions/;
use constant DEBUG => 1;
use constant DRY => 0;
use constant DEBUG => 1;
use constant DRY => 0;
-use constant STORE => "/
var/tmp
/frozen/cache";
+use constant STORE => "/
afs/hcoop.net/common/etc
/frozen/cache";
use constant DEFAULT_SHELL => '/bin/bash';
use constant FROZEN_SHELL => '/afs/hcoop.net/common/etc/scripts/frozen_shell';
use constant PUBLIC_ACCESS => (qw/mire/);
use constant DEFAULT_SHELL => '/bin/bash';
use constant FROZEN_SHELL => '/afs/hcoop.net/common/etc/scripts/frozen_shell';
use constant PUBLIC_ACCESS => (qw/mire/);
-use constant RUN_SERVER => '
deleuze
';
+use constant RUN_SERVER => '
fritz
';
my $store = {}; # cached info
my $action = 'list'; # list, freeze, unfreeze
my $store = {}; # cached info
my $action = 'list'; # list, freeze, unfreeze
@@
-296,9
+296,9
@@
sub domtool {
elsif ($a =~ /^u/i) {
if (!DRY) {
elsif ($a =~ /^u/i) {
if (!DRY) {
- system("domtool-adduser $u")
+ system("
ssh -K deleuze
domtool-adduser $u")
} else {
} else {
- warn qq|system("domtool-adduser $u")\n|
+ warn qq|system("
ssh -K deleuze
domtool-adduser $u")\n|
}
for ( @{ $$store{$u}{domains} } ) {
}
for ( @{ $$store{$u}{domains} } ) {