Màj suite au changement de layout

Modules/Meteo.pm

@@ -16,6 +16,10 @@ my %mktime_day = %Common::mktime_day;
 
 
 
+# Quelques signes, au cas où ça sert un jour :
+# ☀☁☂☃☄☔☼⛄⛅⛆⛇⛈
+
+
 # ###
 #  meteo_main
 # Donne la meteo
@@ -56,7 +60,7 @@ sub send_result
 	my ($conn, $status, $buffer, $params) = @_;
 	$::logger->debug("Meteo result received\n");
 
-	if($status)
+	if($status != -1)
 	{
 		$::logger->debug("Status ok\n");
 
@@ -93,15 +97,23 @@ sub send_result
 		{
 			# On récupère tout ce dont on a besoin
 			my $jour = $ts->rows->[0]->[0];
-			my $prev_matin = $ts->rows->[2]->[1];
-			my $prev_aprem = $ts->rows->[2]->[2];
-			my $temp_matin = $ts->rows->[3]->[1];
-			my $temp_aprem = $ts->rows->[3]->[2];
+			my $msg = "\x034[\x033".$params->{"ville"}."\x034]\x03 \x1F$jour\x1F ";
+			my @prevs = ();
+
+			for (my $i = 1; $i <= $#{$ts->rows->[0]}; $i++)
+			{
+				my $hour = $ts->rows->[0]->[$i];
+				my $prev = $ts->rows->[2]->[$i];
+				my $temp = $ts->rows->[3]->[$i];
+
+				$prev =~ s/[\n\t]//g;
+				$hour =~ s/^0// unless $hour =~ /^0h/;
+				$hour =~ s/00$//;
 
-			$prev_matin =~ s/[\n\t]//g;
-			$prev_aprem =~ s/[\n\t]//g;
+				push(@prevs, "\x0304$hour\x03 \x0312$prev\x03 \x0307$temp\x03");
+			}
 
-			my $msg = "\x034[\x033".$params->{"ville"}."\x034]\x03 \x1F$jour\x1F \x034Jour\x03 \x0312$prev_matin\x03 \x0307$temp_matin\x03 \x038|\x03 \x034Nuit\x03 \x0312$prev_aprem\x03 \x0307$temp_aprem\x03";
+			$msg .= join(" \x038|\x03 ", @prevs);
 
 			$::displayer->sendto($params->{"reply_to"}, $msg);
 			$::logger->debug("Sent ok");