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