Showing 1 changed files with 12 additions and 12 deletions
+12 -12
sms/bot
... ...
@@ -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
                 &copy(\%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>) {