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 PUBLIC_ACCESS => (qw/bog/);
use constant RUN_SERVER => 'fritz';
my $store = {}; # cached info
}
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 ( -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: $!";