From 47d1f1971145860191050f61c95b36d23c31bdb4 Mon Sep 17 00:00:00 2001
From: Jordi Sanfeliu <jordi@fibranet.cat>
Date: Tue, 11 Jun 2013 16:08:24 +0200
Subject: [PATCH] fixed the legend in the second graph of the 'icecast' graph

---
 lib/icecast.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/icecast.pm b/lib/icecast.pm
index 6b4595f..ddc7762 100644
--- a/lib/icecast.pm
+++ b/lib/icecast.pm
@@ -472,7 +472,7 @@ sub icecast_cgi {
 		$n = 0;
 		foreach my $i (split(',', $icecast->{desc}->{$url})) {
 			$i = trim($i);
-			$str = sprintf("%-15s", $i);
+			$str = sprintf("%-15s", substr($i, 0, 15));
 			push(@tmp, "LINE1:ice" . $e . "_mp$n" . $LC[$n] . ":$str");
 			push(@tmpz, "LINE2:ice" . $e . "_mp$n" . $LC[$n] . ":$i");
 			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":LAST: Cur\\:%3.0lf");