...
|
...
|
@@ -384,7 +384,7 @@ sub from_gtalksms_parse {
|
384
|
384
|
while (my $msg = $from_gtalksms_queue->dequeue) {
|
385
|
385
|
my %request = (body => $msg->GetBody);
|
386
|
386
|
my %part_from_gtalksms = (
|
387
|
|
- '^Message\s+de\s+\+33([67]\d{8})\s+:\W*' => sub { # Message de +33612345678 :
|
|
387
|
+ $cfg::gtalksms{"from"} => sub { # Message de +33612345678 :
|
388
|
388
|
$request{phone} = "0" . $1;
|
389
|
389
|
$request{phone_owner} = '';
|
390
|
390
|
my @results = sql_request("SELECT * FROM section WHERE phone = '$request{phone}'");
|
...
|
...
|
@@ -395,44 +395,44 @@ sub from_gtalksms_parse {
|
395
|
395
|
$request{phone_owner} .= "$_->{firstname} $_->{lastname}";
|
396
|
396
|
--$number_of_candidates > 0 and $request{phone_owner} .= ' ou ';
|
397
|
397
|
}
|
398
|
|
- $request{phone_owner} .= ')';
|
|
398
|
+ $request{"phone_owner"} .= ')';
|
399
|
399
|
log_bot("message de $request{phone} $request{phone_owner}");
|
400
|
400
|
},
|
401
|
|
- '^SMS "(.+)" pour (0\d{9}) délivré\.$' => sub { # SMS "un contenu de SMS" pour 0612345678 délivré.
|
|
401
|
+ $cfg::gtalksms{"delivered"} => sub { # SMS "un contenu de SMS" pour 0612345678 délivré.
|
402
|
402
|
log_bot("message $1 délivré pour $2");
|
403
|
403
|
# TODO cond_signal($next_sms);
|
404
|
404
|
},
|
405
|
|
- '^Le destinataire par défaut est (\+33|0)\d{9}$' => sub { # Le destinataire par défaut est 0612345678: inutile
|
|
405
|
+ $cfg::gtalksms{forget} => sub { # Le destinataire par défaut est 0612345678: inutile
|
406
|
406
|
return;
|
407
|
407
|
},
|
408
|
408
|
);
|
409
|
409
|
my %part_from_user = (
|
410
|
|
- '^stoppe le bousin$' => sub {
|
|
410
|
+ $cfg::user{"stop"} => sub {
|
411
|
411
|
log_bot("arrêt demandé par $request{phone} $request{phone_owner}");
|
412
|
412
|
$bot->Disconnect();
|
413
|
413
|
},
|
414
|
|
- '^\s*envoi\s+[aà]\s+(\w+)\s*:\W*' => sub {
|
|
414
|
+ $cfg::user{"message de groupe"} => sub {
|
415
|
415
|
$request{table} = lc $1;
|
416
|
416
|
&massive_send_sms(\%request);
|
417
|
417
|
},
|
418
|
|
- '^\s*sms\s+pour\s+(0\d{9})\s*:(.+)$' => sub {
|
|
418
|
+ $cfg::user{"message pour un destinataire"} => sub {
|
419
|
419
|
$to_gtalksms_queue->enqueue([$1, $2]);
|
420
|
420
|
},
|
421
|
|
- '^\s*copie\s+(\w+)\s+en\s+(\w+)(.*)$' => sub {
|
|
421
|
+ $cfg::user{"copie d'une base"} => sub {
|
422
|
422
|
$request{origin} = lc $1;
|
423
|
423
|
$request{destination} = lc $2;
|
424
|
424
|
$request{comment} = $3 =~ s/^\s*//r;
|
425
|
425
|
©(\%request);
|
426
|
426
|
},
|
427
|
|
- '^\s*ajoute\s+dans\+(\w+)\s*:\n' => sub {
|
|
427
|
+ $cfg::user{"ajout d'une entrée dans un base"} => sub {
|
428
|
428
|
$request{table} = lc $1;
|
429
|
429
|
&insert(\%request);
|
430
|
430
|
},
|
431
|
|
- '^\s*ping\s*$' => sub {
|
|
431
|
+ $cfg::user{"ping"} => sub {
|
432
|
432
|
log_bot("envoi d'un pong à $request{phone} $request{phone_owner}");
|
433
|
433
|
$to_gtalksms_queue->enqueue([$request{phone}, "pong ($phone_status)"]);
|
434
|
434
|
},
|
435
|
|
- '^\s*test\s+intro\s+(\w+)\s*$' => sub {
|
|
435
|
+ $cfg::user{"test intro pour action"} => sub {
|
436
|
436
|
my $intro = $1;
|
437
|
437
|
my $intro_file = $cfg::config{flag_prefix} . $intro . $cfg::config{flag_suffix};
|
438
|
438
|
if (! -r $intro_file) {
|
...
|
...
|
@@ -472,7 +472,7 @@ sub from_gtalksms_parse {
|
472
|
472
|
$to_gtalksms_queue->enqueue([$request{phone}, "le mail de test des actions avec intro $intro partira dans $time_left sur $request{address}"]);
|
473
|
473
|
}
|
474
|
474
|
},
|
475
|
|
- '^\s*action\s*$' => sub {
|
|
475
|
+ $cfg::user{"envoi normal pour action"} => sub {
|
476
|
476
|
my $time_left = 'time_error';
|
477
|
477
|
open(TIMER, "systemctl list-timers action.timer --no-legend |");
|
478
|
478
|
while (<TIMER>) {
|