Fixed makefile to leave dirs group write, and fixed power to deal with it.

tbsetup/GNUmakefile.in

@@ -53,10 +53,10 @@ script-install:	$(addprefix $(INSTALL_BINDIR)/, $(BIN_STUFF)) \
 	 $(addprefix $(INSTALL_LIBEXECDIR)/, $(LIBEXEC_STUFF))
 
 post-install: 
-	chmod go-w $(INSTALL_BINDIR)
-	chmod go-w $(INSTALL_SBINDIR)
-	chmod go-w $(INSTALL_LIBDIR)
-	chmod go-w $(INSTALL_LIBEXECDIR)
+	chmod 775 $(INSTALL_BINDIR)
+	chmod 775 $(INSTALL_SBINDIR)
+	chmod 775 $(INSTALL_LIBDIR)
+	chmod 775 $(INSTALL_LIBEXECDIR)
 	chown root $(INSTALL_LIBEXECDIR)/mkprojdir
 	chmod u+s $(INSTALL_LIBEXECDIR)/mkprojdir
 	chown root $(INSTALL_LIBEXECDIR)/rmprojdir

tbsetup/power.in

@@ -21,7 +21,7 @@ my $TB		= "@prefix@";
 my $DBNAME	= "@TBDBNAME@";
 
 # un-taint path since this gets called from setuid scripts.
-$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin:$TB/bin';
+$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin:@prefix@/bin';
 delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
 
 my $user = (getpwuid($<))[0]
@@ -124,10 +124,10 @@ foreach $node ( sort @machines) {
 		   ($snmpit,'-v','-i',$IPList{$node},$op,$OutletList{$node}));
       open(OUT,$cmd." |");
       while (<OUT>) {
-	if (/was outlet([OnfCycle]*)/) {
+	if (/was outlet([OnfRebot]+)/) {
 	  print "$node was $1";
 	}
-	if (/to outlet([OnfCycle]*)/) {
+	if (/to outlet([OnfRebot]+)/) {
 	  print " ... $node now $1";
 	}
       }