Status Text on display (only few chars)

[GeorgSchwarz]

Hi!

having progressed, I'd like to share my Results with you...
Here a short perl-demonstration-script that sends a message to a phone...

@Forum-Admins: I hope you regard this as appropriate...
#!/usr/bin/perl
use IO::Socket;
use strict;

my %config = qw(NOTIFY_LOCAL_IP 172.27.255.254 NOTIFY_SOURCE_USER msgdispatch SOURCE_PORT 8888);

sipSendNotify('4711','10.27.0.12',"Redir on (102)",45);


sub sipSendNotify
# 0: Phone-User
# 1: Phone-IP
# 2: Message
# 3: Timeout
{
my $phoneIP = $_[1];
my $phoneUser = $_[0];
my $msg = $_[2];
my $timeout = $_[3];

my $payload="<YealinkIPPhoneStatus Beep=\"yes\" wrapList=\"no\" Timeout=\"$timeout\">
<Session>0</Session>
<Message Size=\"large\" Align=\"center\" Icon=\"Forward\">$msg</Message>
</YealinkIPPhoneStatus>
";

my $MESG="NOTIFY sip:$phoneUser\@$phoneIP:5062 SIP/2.0
Via: SIP/2.0/UDP $config{NOTIFY_LOCAL_IP}
From: <sip:$config{NOTIFY_SOURCE_USER}\@$config{NOTIFY_LOCAL_IP}>
To: <sip:$phoneUser\@$phoneIP>
Date: ".localtime(time())."
Call-ID: ".time()."msgto$phoneUser\@$config{NOTIFY_LOCAL_IP}
CSeq: 1300 NOTIFY
Contact: <sip:$config{NOTIFY_SOURCE_USER}\@$config{NOTIFY_LOCAL_IP}>
Event: yealink-xml
Content-Type: application/xml
Content-Length:".length($payload)."

$payload";



my $sock = new IO::Socket::INET (
LocalPort => $config{SOURCE_PORT},
PeerAddr => $phoneIP,
PeerPort => '5062',
Proto => 'udp',
);
die "Could not create socket: $!\n" unless $sock;

print $sock $MESG;



}