Stuff

#!/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";

system("mv /tmp/callfile /var/spool/asterisk/outgoing/mwi.call");