@@ -189,8 +189,14 @@ sub massive_send_sms {

     my $request = shift;

     my @results = sql_request("SELECT * FROM __tables__ WHERE phone = '$request->{phone}' AND table_id = '$request->{table}'");

     if (scalar(@results) == 1) {

+        if ($to_gtalksms_queue->pending() > 0) {

+            $to_gtalksms_queue->insert(0, [$request->{phone}, "un envoi massif est déjà en cours, lancé par " . $cfg::config{last_sender} . ", reste " . $to_gtalksms_queue->pending() . ", annulation"]);

+            return;

+        }

+        $cfg::config{last_sender} = $request->{phone_owner};

         my @results = sql_request("SELECT * FROM $request->{table}");

-        my $start_msg = "envoi de " . scalar(@results) . " SMS (30 max par demi-heure)";

+        my $qty = scalar(@results);

+        my $start_msg = "envoi de " . $qty . " SMS (fin prévue entre ". strftime("%H:%M", localtime(time() + $qty * 60)) . " et " . strftime("%H:%M", localtime(time() + $qty * 90)) . ")";

         $to_gtalksms_queue->enqueue([$request->{phone}, $start_msg]);

         foreach my $contact (@results) {

             $contact->{phone} =~ s/[\s\.]//g;

@@ -470,8 +476,12 @@ sub from_gtalksms_parse {

                 &insert(\%request);

             },

             $cfg::user{"ping"} => sub {

+                my $envoi_en_cours = "";

+                if ($to_gtalksms_queue->pending() > 0) {

+                    $envoi_en_cours = "\nenvoi en cours de traitement " . $cfg::config{last_sender};

+                }

                 log_bot("envoi d'un pong à $request{phone} $request{phone_owner}");

-                $to_gtalksms_queue->enqueue([$request{phone}, "pong ($phone_status)"]);

+                $to_gtalksms_queue->insert(0, [$request{phone}, "pong ($phone_status)" . $envoi_en_cours]);

             },

             $cfg::user{"test intro pour action"} => sub {

                 my $intro = $1;