是否有任何Perl模塊可用於將消息發送到Office Communicator？

Question

是否有任何Perl模塊可用於將消息發送到Office Communicator？ 我在CPAN搜索，但沒有任何運氣。 我可以使用Python或Ruby將消息發送到Office Communicator。 我想從Linux Box中完成此操作。

Answer 1

由於「Office Communicator」使用的是SIP的修改版本，因此您可以嘗試使用SIP客戶端，如Net::SIP（或來自同一軟件包的Net::SIP::Simple）。

Answer 2

我想你已經找到了解決之後一年多，但儘管如此，如果你只是想發送SIP消息編寫一個Perl程序，你可以看一下這種方法：http://archive.cert.uni-stuttgart.de/bugtraq/2005/07/msg00276.html

可能的定製：

#!/usr/bin/perl 
use strict; 
use warnings; 
use Socket; 

sub SendSIPTo { 
    my ($from, $to, $text, $ProxyIP) = @_; 

    my $contentLength = length($text); 

    my $AT = '@'; 
    my $domain = 'example.com'; 
    my $ToURI = 'sip:' . $to . $AT . $domain; 
    my $FromURI = 'sip:' . $from . $AT . $domain; 

    my $MESG = "MESSAGE $ToURI SIP\/2.0\r 
Via: SIP/2.0/UDP 10.10.10.10;branch=z9hG4bK8fe6.db5fade4.0\r 
To: $ToURI\r 
From: <$FromURI>;tag=578c0e59d7504cca4dc4a96522981b0a-0c8b\r 
CSeq: 1 MESSAGE\r 
Call-ID: 609ded3a79a9cbd5\r 
Content-Length: $contentLength\r 
User-Agent: perl\r 
\r 
" . $text; 

    my $proto = getprotobyname('udp'); 
    socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) ; 
    my $iaddr = inet_aton("0.0.0.0"); 
    my $paddr = sockaddr_in(5060, $iaddr); 
    bind(SOCKET, $paddr) ; 

    my $port = 5060; 
    my $hisiaddr = inet_aton($ProxyIP) ; 
    my $hispaddr = sockaddr_in($port, $hisiaddr); 
    send(SOCKET, $MESG, 0, $hispaddr) || warn "send $!\n"; 

    return 'OK'; 
} 

1;