Rewrite line every 80 chars

1 files changed, 6 insertions, 0 deletions

diff --git a/bin/ekgping b/bin/ekgping
index 65b066f..f8d13da 100755
--- a/bin/ekgping
+++ b/bin/ekgping
@@ -16,6 +16,7 @@ my $last_id = 0;
 my $beep;
 my $was_beep   = 1;
 my $dead_count = 0;
+my $column     = 0;
 
 my $ping = harness(
 	[ 'ping', '-n', $host ],
@@ -46,6 +47,11 @@ while ( usleep(100_000) ) {
 
 	$ping->pump_nb();
 
+	if ($column++ == 80) {
+		print "\r";
+		$column = 0;
+	}
+
 	if ( $id != $last_id ) {
 		$beep = 1;
 		print q{^};