HCoop
/
hcoop
/
scripts.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
import hcoop-webalizer cron as script
[hcoop/scripts.git]
/
freeze
diff --git
a/freeze
b/freeze
index
660619a
..
6a6a741
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 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 PUBLIC_ACCESS => (qw/
bog
/);
+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
@@
-238,14
+238,15
@@
sub login {
}
elsif ($a =~ /^u/i) {
}
elsif ($a =~ /^u/i) {
+ if ( -l "$user[5]/.loginshell" or -e "$user[5]/.loginshell" ) {
+ if (!DRY) {
+ system("rm '$user[5]/.loginshell'");
+ } else {
+ warn qq{system("rm '$user[5]/.loginshell'")\n};
+ }
+ }
+
if ( $$store{$u}{shell}) {
if ( $$store{$u}{shell}) {
- if ( -l "$user[5]/.loginshell" or -e "$user[5]/.loginshell" ) {
- if (!DRY) {
- system("rm '$user[5]/.loginshell'");
- } else {
- warn qq{system("rm '$user[5]/.loginshell'")\n};
- }
- }
if (!DRY) {
symlink($$store{$u}{shell}, "$user[5]/.loginshell")
or warn "symlink: $!";
if (!DRY) {
symlink($$store{$u}{shell}, "$user[5]/.loginshell")
or warn "symlink: $!";
@@
-296,9
+297,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} } ) {