...
|
...
|
@@ -236,7 +236,7 @@ sub control_sms_flow {
|
236
|
236
|
close FILE;
|
237
|
237
|
log_bot(" ---> to send: $nbr; left: $left");
|
238
|
238
|
last if $nbr < $left;
|
239
|
|
- sleep 10;
|
|
239
|
+ sleep 60;
|
240
|
240
|
}
|
241
|
241
|
open (FILE,">>", $flow_control);
|
242
|
242
|
for (my $i = 0; $i < $nbr; $i++) { print FILE time, "\n"; }
|
...
|
...
|
@@ -278,10 +278,10 @@ sub xmpp_send_sms {
|
278
|
278
|
wait_open_time(21, 8); # pas d'envoi entre 21h et 8h
|
279
|
279
|
# TODO lock($next_sms);
|
280
|
280
|
# TODO $next_sms = $$ref[0];
|
281
|
|
- control_sms_flow(\$$ref[1], 30, 1800); # pas plus de 30 messages de 140 caractères par demi-heure
|
|
281
|
+# control_sms_flow(\$$ref[1], 30, 1800); # pas plus de 30 messages de 140 caractères par demi-heure
|
282
|
282
|
xmpp_send(\"sms:$$ref[0]:$$ref[1]");
|
283
|
283
|
log_bot("envoi à $$ref[0] : $$ref[1]");
|
284
|
|
- sleep 10; # en attendant la maîtrise de cond_wait et cond_signal: cond_signal() called on unlocked variable at ./bot line 348
|
|
284
|
+ sleep 60 + int(rand(30)); # en attendant la maîtrise de cond_wait et cond_signal: cond_signal() called on unlocked variable at ./bot line 348
|
285
|
285
|
# TODO cond_wait($next_sms); # attend le top
|
286
|
286
|
}
|
287
|
287
|
}
|