set_output to tcp port

[skype-conference-recorder.git] / SkypeAPI.pm

diff --git a/SkypeAPI.pm b/SkypeAPI.pm
index f506426..26683b5 100644 (file)
--- a/SkypeAPI.pm
+++ b/SkypeAPI.pm
@@ -106,6 +106,13 @@ sub Notify {
                # away mode is no good!  let's be not available
                $self->Invoke('SET USERSTATUS NA');
        }
+
+       if ( $string =~ m{CALL (\d+) STATUS INPROGRESS} ) {
+               my $call_id = $1;
+               my $port = 5000;
+               $self->Invoke(qq|ALTER CALL $call_id set_output port="$port"|);
+       }
+
        return 0;
 }