Re-enable broadcast on the server now that clients only run in a dock…

…er environment

bin/smokerupdate

@@ -33,16 +33,15 @@ my $s = IO::Socket::INET->new(PeerPort => $port,
 		Broadcast => 1)
 	or die "Can't broadcast to port $port";
 
-# Disabled
-# while(my $line = <$pin>) {
-	# next if($line =~ /\/perl-?[56][\.\/]/i);
-	# next unless(($line =~ /^authors\/id\/(.+)\.tar\.gz/) || ($line =~ /^authors\/id\.(.+)\.tgz/));
-	# my $dist = $1;
-	# $dist .= "\n" if($dist !~ /\n$/);
-	# $s->send($dist);
-	# sleep(1);	# Give the clients a chance to do something so they don't miss the message
-	# $count++;
-# }
+while(my $line = <$pin>) {
+	next if($line =~ /\/perl-?[56][\.\/]/i);
+	next unless(($line =~ /^authors\/id\/(.+)\.tar\.gz/) || ($line =~ /^authors\/id\.(.+)\.tgz/));
+	my $dist = $1;
+	$dist .= "\n" if($dist !~ /\n$/);
+	$s->send($dist);
+	sleep(1);	# Give the clients a chance to do something so they don't miss the message
+	$count++;
+}
 
 close $pin;