OSD für Windows mit Rückrufmöglichkeit

#!/usr/bin/perl
use Asterisk::AGI;

$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my ($cid)=@ARGV;

my $basedir = "/etc/asterisk/";
$filename = "cid-match.settings";

&open_file("FILE1","","$basedir$filename");
my $counter = 0;
my $cidname = "unbekannt";

while (($line = &read_file("FILE1")) && ($counter < 100))
	{
    @tabledata = split(/\s*\|\s*/,$line ,$fields);
    if ($tabledata[0] =~ $cid)
    	{
		$cidname = $tabledata[1];
		print STDOUT "SET VARIABLE CALLER_NAME \"$cidname\"\n";
    	}

    else
    	{
		print STDOUT "SET VARIABLE CALLER_NAME \"$cidname\"\n";
		$counter++;
    	}
	}

close(FILE1);
if ($counter == 0)
	{
    print STDERR "Datei hat keinen Inhalt.\n";
	}

sub open_file
	{
    local ($filevar, $filemode, $filename) = @_;
    open ($filevar,$filemode . $filename) ||
    die ("Unable to open $filename");
	}

sub read_file
	{
    local ($filevar) = @_;
    <$filevar>;
	}

1234567|Hans Testermann
3456789|Julia Musterfrau

exten => s,n,AGI(cid-match.agi|${CALLERIDNUM}) ;Auswertung der CID und Rückgabe des Anrufer-Namens in ${CALLER_NAME}
exten => s,n,System(perl /usr/girder/ievent.pl osd "${CALLER_NAME}" ${CALLERIDNUM} "${DATETIME}")

#!/usr/bin/perl
# Set path according to your system

#
# Internet event client for Perl
# Modified from IE2Client.pl
#


$host = "10.10.x.x"; # Hardwire the host, port, and password
$port = 1244; # to match the settings of the server
$passwd = "xxxx"; # plugin.

use IO::Socket;
use Text::ParseWords;
use Digest::MD5;

my ($socket); # Socket will be global

##
## Mainline
##
{


my ($rsp, $ctx, $i, $DEBUG);
$DEBUG=0;
# Stop if no event
if ($#ARGV == -1) {die "Usage: ievent.pl <event payload(s)>\n"; }

# Create/connect the socket
$socket = IO::Socket::INET->new("$host:$port") || die $@;

$rsp = grdr_resp("quintessence"); # Validate/start the connection
$ctx = Digest::MD5->new->add("$rsp:$passwd");
$rsp = grdr_resp($ctx->hexdigest);
if ($rsp !~ /^accept$/) { die "Invalid password" }

if ($DEBUG) { printf("ARGV = %d\n", $#ARGV); }

if ($#ARGV > 0) {
for ($i = 1; $i <= $#ARGV; $i++) {
grdr_send("payload @ARGV[$i]");
if ($DEBUG) {printf("payload @ARGV[$i]\n");}
}
}

grdr_send(@ARGV[0]);
if ($DEBUG) {printf("$ARGV[0]\n");}

grdr_send("close"); # Shut everything down
close ($socket);
}

##
## Subroutines
##


sub grdr_send ## Send a girder command line
{
print $socket $_[0],"\n"; # Girder wants terminating "\n"
}

sub grdr_recv ## Get a girder response
{
my $line = <$socket>; # Get response
chomp $line; # Strip trailing "\n"
return $line;
}

sub grdr_resp ## Do a command-response sequence
{
grdr_send($_[0]);
return grdr_recv();
}

#!/usr/bin/perl
# empfaenger.pl -- Ein Single-threaded-TCP-Server

use strict;
use IO::Socket;
use Asterisk::AGI;

use constant MYPORT => 52401;

my $sock = '';
my $client = 0;
my $counter = 0;
my @payload = '';
my $spoolpath = "\/var/spool\/asterisk\/outgoing";

$sock = new IO::Socket::INET(LocalPort => MYPORT,
                             Reuse     => 1,
                             Listen    => 5)
    or die "can't create local socket: $@\n";
print "Accepting connections on Port ", MYPORT, "...\n";

while ($client = $sock->accept())
  {

  for (<$client>)
    {
    chomp;
    @payload = split(/\s*\-\s*/,$_);

	# Debug
	#    while (($payload[$counter] ne "") && ($counter < 30)) {
	#    print "Payload$counter: $payload[$counter]\n";
	#    $counter++; }

    my $callfile = (int(rand(99999))+ 1) . ".call";
    open(OUT, ">$spoolpath\/$callfile") or
		die "Cannot create file $callfile: $!";
    print OUT "Channel: $payload[0]\n";
    print OUT "MaxRetries: 1\n";
    print OUT "RetryTime: 60\n";
    print OUT "WaitTime: 30\n";
    print OUT "Context: osd-callback\n";
    print OUT "Extension: $payload[1]\n";
    print OUT "Priority: 1\n";
    close(OUT);
    print STDOUT "SET VARIABLE OSD-EXTERN \"$payload[1]\"\n";
    }

  $client->close() if defined $client;
  }

#!/usr/bin/perl
# sender.pl -- Ein einfacher TCP-Client.

use strict;
use IO::Socket;

use constant TIMEOUT => 5;
my $ipaddr = '10.10.x.x';
my $portnr = '52401';
my $sock = '';
my $reply = '';

$sock = new IO::Socket::INET(PeerAddr => $ipaddr,
                             PeerPort => $portnr,
                             Proto    => 'tcp', Timeout => TIMEOUT)
    or die "can't connect to $ARGV[0]:$ARGV[1]: $@\n";

print $sock $ARGV[0],$ARGV[1];

$sock->close();

[osd-callback]
exten => _.,1,NoOp(${EXTEN}) ;Debug
exten => _.,2,Dial(SIP/${EXTEN}@qsc_out||rm
exten => _.,3,Hangup
exten => h,1,Hangup