ignore rogue matrix call events; support verto.media RPC as a horrible hack; fix NA::Matrix dep

contrib/vertobot/.gitignore

@@ -1 +1,2 @@
-vuc.yaml
+vucbot.yaml
+vertobot.yaml

contrib/vertobot/bot.pl

@@ -6,7 +6,7 @@ use 5.010; # //
 use IO::Socket::SSL qw(SSL_VERIFY_NONE);
 use IO::Async::Loop;
 use Net::Async::WebSocket::Client;
-use Net::Async::Matrix 0.11;
+use Net::Async::Matrix 0.11_002;
 use JSON;
 use YAML;
 use Data::UUID;
@@ -148,11 +148,16 @@ sub on_unknown_event
         }
     }
     elsif ($event->{type} eq 'm.call.hangup') {
+        if ($bridgestate->{$room_id}->{matrix_callid} eq $event->{content}->{call_id}) {
             send_verto_json_request("verto.bye", {
                 "dialogParams" => \%dp,
                 "sessid" => $bridgestate->{$room_id}->{sessid},
             })->get;
         }
+        else {
+            warn "Ignoring unrecognised callid: ".$event->{content}->{call_id};
+        }
+    }
     else {
         warn "Unhandled event: $event->{type}";
     }
@@ -253,11 +258,13 @@ exit 0;
     {
         my $json = JSON->new->decode( $_[0] );
         if ($json->{method}) {
-            if ($json->{method} eq 'verto.answer') {
+            if (($json->{method} eq 'verto.answer' && $json->{params}->{sdp}) ||
+                $json->{method} eq 'verto.media') {
                                 
                 my $room_id = $roomid_by_callid->{$json->{params}->{callID}};
                 my $room = $bot_matrix_rooms{$room_id};
 
+                if ($json->{params}->{sdp}) {
                     # HACK HACK HACK HACK
                     $room->_do_POST_json( "/send/m.call.answer", {
                         call_id => $bridgestate->{$room_id}->{matrix_callid},
@@ -268,12 +275,16 @@ exit 0;
                         },
                     })->then( sub {
                         send_verto_json_response( {
-                        method => "verto.answer",
+                            method => $json->{method},
                         }, $json->{id});
                     })->get;
                 }
+            }
             else {
                 warn ("[Verto] unhandled method: " . $json->{method});
+                send_verto_json_response( {
+                    method => $json->{method},
+                }, $json->{id});
             }
         }
         elsif ($json->{result}) {

contrib/vertobot/cpanfile

@@ -1,6 +1,6 @@
 requires 'parent', 0;
 requires 'Future', '>= 0.29';
-requires 'Net::Async::Matrix', '>= 0.11';
+requires 'Net::Async::Matrix', '>= 0.11_002';
 requires 'Net::Async::Matrix::Utils';
 requires 'Net::Async::WebSocket::Protocol', 0;
 requires 'Data::UUID', 0;