[Sandweb-commit] CVS: sandweb/bin sandweb-admin,1.17,1.18 sandweb-editor,1.2,1.3 sandweb-expect,1.16,1.17 sandweb-ssh,1.2,1.3 sandweb.cgi,1.367,1.368

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17422/bin

Modified Files:
	sandweb-admin sandweb-editor sandweb-expect sandweb-ssh 
	sandweb.cgi 
Log Message:
this fixes some long-outstanding issues on the trunk:

* perl and sh are configurable in install.cfg now, with preference
  for perl given to the perl used to run Makefile.PL 
  (fixes sf.net bug 877125)

* fixed up the tests a bit, needs alot more attention
  updated test.cfg to address all the latest config options

* the group file is copied in by default now. We need to add support
  to sandweb-admin so users are added to groups at that time.

* reduced the number of warnings we get running under perl 5.8 
  (deprecations, etc.)



Index: sandweb-admin
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-admin,v
retrieving revision 1.17
retrieving revision 1.18
diff -U2 -r1.17 -r1.18
--- sandweb-admin	24 Aug 2003 18:43:32 -0000	1.17
+++ sandweb-admin	8 Mar 2004 08:01:54 -0000	1.18
@@ -1,3 +1,3 @@
-#!/usr/bin/perl -w
+#!perl
 #
 # sandweb-admin : administration tool for sandweb. manage user accounts

Index: sandweb-editor
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-editor,v
retrieving revision 1.2
retrieving revision 1.3
diff -U2 -r1.2 -r1.3
--- sandweb-editor	1 Apr 2003 01:21:40 -0000	1.2
+++ sandweb-editor	8 Mar 2004 08:01:54 -0000	1.3
@@ -1,3 +1,3 @@
-#!/bin/sh
+#!sh
 #
 # This file pretends to be an editor so we can safely pass any characters

Index: sandweb-expect
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-expect,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- sandweb-expect	17 Aug 2003 04:55:53 -0000	1.16
+++ sandweb-expect	8 Mar 2004 08:01:54 -0000	1.17
@@ -1,3 +1,3 @@
-#!/usr/bin/expect
+#!expect
 
 # 

Index: sandweb-ssh
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-ssh,v
retrieving revision 1.2
retrieving revision 1.3
diff -U2 -r1.2 -r1.3
--- sandweb-ssh	6 Jul 2003 07:19:15 -0000	1.2
+++ sandweb-ssh	8 Mar 2004 08:01:54 -0000	1.3
@@ -1,3 +1,3 @@
-#!/bin/sh
+#!sh
 #
 # This is a wrapper script around SSH, so we can pass

Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.367
retrieving revision 1.368
diff -U2 -r1.367 -r1.368
--- sandweb.cgi	27 Jan 2004 15:17:31 -0000	1.367
+++ sandweb.cgi	8 Mar 2004 08:01:54 -0000	1.368
@@ -1,3 +1,3 @@
-#!/usr/bin/perl -w
+#!perl
 # Sandweb CGI
 #
@@ -2107,4 +2107,5 @@
 	# dereference params hash, turn into array
 	my @params_array;
+	my $params_array;
 	if ($params){
 		@params_array = %$params;
@@ -2136,9 +2137,9 @@
 
 	$count = 0;
-	while ( @params_array->[$count] ) {
+	while ( $params_array->[$count] ) {
 		# build loop to pass params through template
 		# 
 		my %entry;
-		$entry{'PARAMS'} = @params_array->[$count];
+		$entry{'PARAMS'} = $params_array->[$count];
 		push (@params_loop, \%entry);
 		$count++;
@@ -2148,6 +2149,6 @@
 	$count = 0;
 	
-	while ( @params_array->[$count] ) {
-		push (@params, @params_array->[$count]);
+	while ( $params_array->[$count] ) {
+		push (@params, $params_array->[$count]);
 		$count++;
 	}