From 87751f5bb9c58185248031ea6e65a26d0ebe5799 Mon Sep 17 00:00:00 2001
From: katagia <katagia>
Date: Sat, 15 Nov 2003 11:37:15 +0000
Subject: [PATCH] Only submit 5 user at once because stdin and stdout buffers
 in net::ssh::perl are too small

---
 lam/lib/lamdaemon.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lam/lib/lamdaemon.pl b/lam/lib/lamdaemon.pl
index b8e494e2..edff0c1a 100755
--- a/lam/lib/lamdaemon.pl
+++ b/lam/lib/lamdaemon.pl
@@ -203,7 +203,7 @@ else {
 		while (defined($input = <STDIN>)) {
 			$string[$i] .= $input;
 			$j++;
-			if ($j==30) {
+			if ($j==5) {
 				$j=0;
 				$i++;
 				}
@@ -211,8 +211,8 @@ else {
 		}
 	else { $argv = "*test\n"; }
 	my $ssh = Net::SSH::Perl->new($hostname, options=>[
-		"UserKnownHostsFile /dev/null"
-		]);
+		"UserKnownHostsFile /dev/null"],
+		protocol => "2,1" );
 	$ssh->login($username[0], $password);
 	foreach $string2 ( @string ) {
 		($stdout, $stderr, $exit) = $ssh->cmd("sudo $remotepath $argv", $string2);