X-Git-Url: https://git.hcoop.net/hcoop/scripts.git/blobdiff_plain/4e8f181db8e7a250423245cf422d712b5f81bfaa..e26d18126a4557e03481124c47ded75f4b5a6ac8:/freeze

diff --git a/freeze b/freeze
index 5c497a5..6a6a741 100755
--- a/freeze
+++ b/freeze
@@ -97,7 +97,7 @@ use constant DRY => 0;
 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
@@ -238,14 +238,15 @@ sub login {
 	}
 
 	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: $!";