--- googlecode.com/svn/trunk/Meteor/Connection.pm	2008/02/01 21:22:03	37
+++ googlecode.com/svn/trunk/Meteor/Connection.pm	2008/02/27 13:55:35	50
@@ -111,6 +111,8 @@
 	$self->{'writeBuffer'}='';
 	$self->{'readBuffer'}='';
 	
+	$self->{'bytesWritten'}=0;
+	
 	push(@Connections,$self);
 	
 	&::syslog('debug',"New %s for %s",ref($self),$socket->{'connection'}->{'remoteIP'});
@@ -195,7 +197,7 @@
 		{
 			# Connection closed
 			$self->{'remoteClosed'}=1;
-			$self->close();
+			$self->close(1, 'remoteClosed');
 			
 			return;
 		}
@@ -205,7 +207,7 @@
 			{
 				&::syslog('notice',"Connection closed: $!");
 				$self->{'remoteClosed'}=1;
-				$self->close();
+				$self->close(1, 'remoteClosed');
 				
 				return;
 			}
@@ -224,6 +226,7 @@
 		if(defined($bytesWritten) && $bytesWritten>0)
 		{
 			$::Statistics->{'total_outbound_bytes'}+=$bytesWritten;
+			$self->{'bytesWritten'}+=$bytesWritten;
 			$self->{'writeBuffer'}=substr($self->{'writeBuffer'},$bytesWritten);
 			if(length($self->{'writeBuffer'})==0)
 			{
@@ -241,7 +244,7 @@
 			{
 				&::syslog('notice',"Connection closed: $!");
 				$self->{'remoteClosed'}=1;
-				$self->close();
+				$self->close(1, 'remoteClosed');
 				
 				return;
 			}
@@ -282,7 +285,8 @@
 	# Remove connection from list of connections
 	#
 	my $idx=undef;
-	for(my $i=0;$i<scalar(@Connections);$i++)
+	my $numcon = scalar(@Connections);
+	for(my $i=0;$i<$numcon;$i++)
 	{
 		if($Connections[$i]==$self)
 		{