是否有任何Perl模块可用于将消息发送到Office Communicator? 我在CPAN搜索,但没有任何运气。 我可以使用Python或Ruby将消息发送到Office Communicator。 我想从Linux Box中完成此操作。是否有任何Perl模块可用于将消息发送到Office Communicator?
4
A
回答
4
由于“Office Communicator”使用的是SIP的修改版本,因此您可以尝试使用SIP客户端,如Net::SIP(或来自同一软件包的Net::SIP::Simple)。
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;
相关问题
- 1. 是否可以开发用于Microsoft Office Communicator的插件?
- 2. 是否可以从网页发送Office传播者消息?
- 3. 是否可以从sql server发送任何alert()消息?
- 4. 是否有任何关于Perl的统计模块的评论?
- 5. 是否有任何Perl模块可以阻止我将“或死”添加到任何可能失败的东西?
- 6. 是否有任何Python模块可用于[{},{} ...]比较?
- 7. 是否可以在任务(OmniThreadLibrary)之间发送消息?
- 8. 任何可用于将消息从COBOL发送到Java的开源消息队列?
- 9. Erlang:发送消息给模块?
- 10. 如何验证发送到PubSub的所有消息是否已正确发送?
- 11. 用户是否也可以在NServiceBus中发布/发送消息?
- 12. 是否可以使用STOMP将消息发送到多个队列?
- 13. 是否可以向所有主题发送消息?
- 14. 是否有任何用于JavaSE的WebSocket消息监听器?
- 15. 如何将WM_CHAR消息发送到Firefox
- 16. Excel VBA - 通过Lync/Communicator API发送群组消息
- 17. Microsoft Office Communicator Automation API 2007和接收即时消息
- 18. 将消息重新发送回Azure队列有任何问题
- 19. 如何将消息发送到TOPIC然后发送到MDB?
- 20. C2DM没有收到任何发送的消息
- 21. iPhone - 发送消息“在空中”用于任何听众对象
- 22. 是否可以将WM_QUERYENDSESSION消息发送到不同进程中的窗口?
- 23. 是否有Perl模块用于解析数字,包括范围?
- 24. 在Perl中是否有可用于引用模块名称的别名?
- 25. ios - 是否有可能发送消息到设备与交付确认
- 26. Aphlict不发送任何消息
- 27. 发送消息到DotNetNuke的不同选项卡中的模块
- 28. python cmd模块是否有问候/使用总结消息?
- 29. 如何知道消息是否从iPhone发送到服务器?
- 30. 是否有任何直接的方法将消息发送到SQL Server中的MS内部的MSMQ?