From 4e8f181db8e7a250423245cf422d712b5f81bfaa Mon Sep 17 00:00:00 2001
From: clinton_admin <clinton_admin@navajos.hcoop.net>
Date: Thu, 20 Dec 2012 03:29:55 -0500
Subject: [PATCH] Move frozen database into afs, run on fritz

---
 freeze | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/freeze b/freeze
index 660619a..5c497a5 100755
--- a/freeze
+++ b/freeze
@@ -3,7 +3,7 @@
 #
 # 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
@@ -94,11 +94,11 @@ use Getopt::Long qw/GetOptions/;
 
 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 RUN_SERVER => 'deleuze';
+use constant RUN_SERVER => 'fritz';
 
 my $store = {}; # cached info
 my $action = 'list'; # list, freeze, unfreeze
@@ -296,9 +296,9 @@ sub domtool {
 
 	elsif ($a =~ /^u/i) {
 		if (!DRY) {
-			system("domtool-adduser $u")
+			system("ssh -K deleuze domtool-adduser $u")
 		} else {
-			warn qq|system("domtool-adduser $u")\n|
+			warn qq|system("ssh -K deleuze domtool-adduser $u")\n|
 		}
 
 		for ( @{ $$store{$u}{domains} } ) {
-- 
2.20.1