#!/usr/bin/perl
 
($xtn, $msgs) = @ARGV;
 
open (CALL, ">/tmp/callfile");
 
$xtn =~ s/^27//;
if ($msgs > 0) 
  { $dial = "SIP/20000@192.168.54.220"; } 
else 
  { $dial = "SIP/20001@192.168.54.220"; }
 
print CALL "Channel: $cont
MaxRetries: 1
RetryTime: 5
WaitTime: 45
CallerID: MWI <$xtn>
Context: macro-hangupcall
Extension: s
Priority: 1";
close CALL;
 
system("mv /tmp/callfile /var/spool/asterisk/outgoing/mwi.call");