[Asterisk-Users] VM Outcall: Rube Goldberg Edition

Kevin Asterisk at gtcus.com
Sat Jul 16 08:29:14 MST 2005


I have been trying to get this to work.  I monitor the spool directory
and no call file is created.  Am I missing something here?

My Config

Voicemail.conf

[general]

externnotify=/usr/local/bin/vm-notify.pl

[root@ root]# ls -lat /usr/local/bin/vm-notify.pl
-rwxrwxrwx    1 root     root         2993 Jul 13 21:37
/usr/local/bin/vm-notify.pl



2203=> 3333,Kevin
Test,kk at test.com,,|tz=eastern|notify=12035551212|attach=yes|saycid=no|di
alout=internal|callback=internal|review=yes|operator=yes|envelope=no|not
ify=12034878966


2204 => 2204,Toni Hawkins,,,tz=central,notify=12035551212


[root@ root]# cat /usr/local/bin/vm-notify.pl
#!/usr/bin/perl -w
use Fcntl;
use Fcntl ":flock";

$dial_context="ctdialing";

($vm_box, $vm_context) = $ARGV[1] =~/(.*)\@(.*)/; $current_vm_context =
"";

if(!sysopen($vm_conf_file_handle, "/etc/asterisk/voicemail.conf",
O_RDONLY)) {
   printf("Cannot open /etc/asterisk/voicemail.conf!\n");
   exit(1);
}

while($vm_conf_line = <$vm_conf_file_handle>) {
   chomp($vm_conf_line);
   if((substr($vm_conf_line,0,1) eq ";") || (length($vm_conf_line) ==
0)) {
     next;
   }
   ($tmp_vm_context) = $vm_conf_line =~ /\[(.*)\]/;
   if(defined($tmp_vm_context)) {
     if($current_vm_context ne "") {
       exit(0);
     }
     if($tmp_vm_context eq $vm_context) {
       $current_vm_context = $vm_context;
       next;
     }
   } else {
     if($current_vm_context eq $vm_context) {
       ($tmp_vm_box) = $vm_conf_line =~ /(\d+)/;
       if($tmp_vm_box eq $vm_box) {
         ($dial_dest) = $vm_conf_line =~ /.*notify=(\d+)/;
         if(!defined($dial_dest)) {
           exit(0);
         }
         close($vm_conf_file_handle);

         # If there's already a .call file for this mailbox then don't
do anything.
         # If there isn't already a .call file then create it.
         #$call_file_name = "/tmp/" . $vm_box . ".call";
         $call_file_name = "/var/spool/asterisk/outgoing/" . $vm_box .
".call";
         if(!sysopen($call_file_handle, "$call_file_name",
O_WRONLY|O_CREAT|O_EXCL)) {
           exit(0);
         }
         flock($call_file_handle, LOCK_EX);

         # Set the access and modification times to be 10 years in the
future so
         # Asterisk will ignore this file while we are doing stuff with
it.
         $long_time = time() + (10 * 365 * 24 * 60 * 60);
         utime($long_time, $long_time, "$call_file_name");

         srand;
         $call_delay=300 + rand(120);

         # Build our .call file.
         printf($call_file_handle "Channel:
Local/^%s^%s^%s^%s\@vm-notify\n", $vm_box, $vm_context, $dial_dest,
$dial_context);
         printf($call_file_handle "WaitTime: 30\n");
         printf($call_file_handle "RetryTime: %i\n", 60 + rand(5));
         printf($call_file_handle "MaxRetries: 12\n");
         printf($call_file_handle "Context: vm-notify\n");
         printf($call_file_handle "Extension: s\n");
         printf($call_file_handle "Priority: 1\n");
         printf($call_file_handle "Callerid: Voicemail Notify
\<9852463509\>\n");
         printf($call_file_handle "SetVar: VM_BOX=%s\n", $vm_box);
         printf($call_file_handle "SetVar: VM_CONTEXT=%s\n",
$vm_context);

         # Unlock and close the file.
         flock($call_file_handle, LOCK_UN);
         close($call_file_handle);

         # Set the access and modification times to be 10 mins in the
future so
         #Asterisk will delay for 10 mins before processing this .call
file
         $short_time = time() + $call_delay;
         utime($short_time, $short_time, "$call_file_name");

         exit(0);

       }
     } else {
       next;
     }
   }
}

[root at gtc01 root]#



-----Original Message-----
From: Eric Wieling aka ManxPower [mailto:eric at fnords.org] 
Sent: Friday, July 15, 2005 12:56 PM
To: Asterisk Users Mailing List - Non-Commercial Discussion
Subject: Re: [Asterisk-Users] VM Outcall: Rube Goldberg Edition

The script will create a file in /var/spool/asterisk/outgoing

That is the file that makes Asterisk make the call.  This this file 
exist when there should be a pending call?  Also make sure your 
externnotify= is set to the full path of the script.

Kevin wrote:
> Thanks for the update.  I had made that assumption after looking at
the
> script but checked as I can't seem to get it to call.  I added the
> variable to the general section, created the script, made it
executable
> and no call.  I wait the 10 minutes and monitor the asterisk and
system
> messages log.  Is there any way to monitor the script or perl log to
see
> what's going wrong?
> 
> 
> 
> -----Original Message-----
> From: Eric Wieling aka ManxPower [mailto:eric at fnords.org] 
> Sent: Friday, July 15, 2005 10:43 AM
> To: Asterisk Users Mailing List - Non-Commercial Discussion
> Subject: Re: [Asterisk-Users] VM Outcall: Rube Goldberg Edition
> 
> Kevin wrote:
> 
> 
>>Is the pager filed in the vm config still for the outcall destination
> 
> or
> 
>>where do you specify the number to call for the outcall?
> 
> Sorry.
> 
> You use notify= option in voicemail.conf:
> 
> 3532 => 8711,Toni Hawkins,,,tz=central,notify=15045556389
> 
> 
> 
>>-----Original Message-----
>>From: Eric Wieling aka ManxPower [mailto:eric at fnords.org] 
>>Sent: Sunday, July 10, 2005 5:11 PM
>>To: Kevin; asterisk-users at lists.digium.com
>>Subject: [Asterisk-Users] VM Outcall: Rube Goldberg Edition
>>
>>Resent to the list since I didn't think you would mind.
>>
>>Kevin wrote:
>>
>>
>>>Eric,
>>>
>>>I have been using your vm outcall script for some time and it has
>>
>>worked
>>
>>
>>>well.  Thanks for your efforts.
>>>
>>>I am trying to re-install and I can't seem to get a call file
>>
>>generated.
>>
>>
>>>I have set up postfix and in the log it appears that it pipes the
>>>message to the vmoutcall script. But that's as far as I get.
>>>
>>>I was hopeful that you could offer a suggestion on how to debug the
>>>activity of the script so I can try to figure out why it isn't
>>
>>working.
>>
>>I don't provide support for any of the sample scripts, etc that I
> 
> write.
> 
>>The original VM Outcall was very primitive.  Now that Asterisk has the
> 
> 
>>externnotify= option I have a much better, but still pretty primitive,
> 
> 
>>script.
>>
>>In /etc/voicemail.conf, in [general] put:
>>
> 
>
========================================================================
> 
>>===
>>externnotify=/usr/local/bin/vm-notify.pl
>>
> 
>
========================================================================
> 
>>===
>>
>>Here is the vm-notify.pl script:
>>
> 
>
========================================================================
> 
>>===
>>#!/usr/bin/perl -w
>>use Fcntl;
>>use Fcntl ":flock";
>>
>>$dial_context="local-access";
>>
>>($vm_box, $vm_context) = $ARGV[1] =~/(.*)\@(.*)/;
>>$current_vm_context = "";
>>
>>if(!sysopen($vm_conf_file_handle, "/etc/asterisk/voicemail.conf",
>>O_RDONLY))
>>{
>>   printf("Cannot open /etc/asterisk/voicemail.conf!\n");
>>   exit(1);
>>}
>>
>>while($vm_conf_line = <$vm_conf_file_handle>) {
>>   chomp($vm_conf_line);
>>   if((substr($vm_conf_line,0,1) eq ";") || (length($vm_conf_line) ==
>>0)) {
>>     next;
>>   }
>>   ($tmp_vm_context) = $vm_conf_line =~ /\[(.*)\]/;
>>   if(defined($tmp_vm_context)) {
>>     if($current_vm_context ne "") {
>>       exit(0);
>>     }
>>     if($tmp_vm_context eq $vm_context) {
>>       $current_vm_context = $vm_context;
>>       next;
>>     }
>>   } else {
>>     if($current_vm_context eq $vm_context) {
>>       ($tmp_vm_box) = $vm_conf_line =~ /(\d+)/;
>>       if($tmp_vm_box eq $vm_box) {
>>         ($dial_dest) = $vm_conf_line =~ /.*notify=(\d+)/;
>>         if(!defined($dial_dest)) {
>>           exit(0);
>>         }
>>         close($vm_conf_file_handle);
>>
>>         # If there's already a .call file for this mailbox then don't
> 
> 
>>do anything.
>>         # If there isn't already a .call file then create it.
>>         #$call_file_name = "/tmp/" . $vm_box . ".call";
>>         $call_file_name = "/var/spool/asterisk/outgoing/" . $vm_box .
> 
> 
>>".call";
>>         if(!sysopen($call_file_handle, "$call_file_name", 
>>O_WRONLY|O_CREAT|O_EXCL)) {
>>           exit(0);
>>         }
>>         flock($call_file_handle, LOCK_EX);
>>
>>         # Set the access and modification times to be 10 years in the
> 
> 
>>future so
>>         # Asterisk will ignore this file while we are doing stuff
> 
> with
> 
>>it.
>>         $long_time = time() + (10 * 365 * 24 * 60 * 60);
>>         utime($long_time, $long_time, "$call_file_name");
>>
>>         srand;
>>         $call_delay=300 + rand(120);
>>
>>         # Build our .call file.
>>         printf($call_file_handle "Channel: 
>>Local/^%s^%s^%s^%s\@vm-notify\n", $vm_box, $vm_context, $dial_dest, 
>>$dial_context);
>>         printf($call_file_handle "WaitTime: 30\n");
>>         printf($call_file_handle "RetryTime: %i\n", 60 + rand(5));
>>         printf($call_file_handle "MaxRetries: 12\n");
>>         printf($call_file_handle "Context: vm-notify\n");
>>         printf($call_file_handle "Extension: s\n");
>>         printf($call_file_handle "Priority: 1\n");
>>         printf($call_file_handle "Callerid: Voicemail Notify 
>>\<9852463509\>\n");
>>         printf($call_file_handle "SetVar: VM_BOX=%s\n", $vm_box);
>>         printf($call_file_handle "SetVar: VM_CONTEXT=%s\n",
>>$vm_context);
>>
>>         # Unlock and close the file.
>>         flock($call_file_handle, LOCK_UN);
>>         close($call_file_handle);
>>
>>         # Set the access and modification times to be 10 mins in the 
>>future so
>>         #Asterisk will delay for 10 mins before processing this .call
>>file
>>         $short_time = time() + $call_delay;
>>         utime($short_time, $short_time, "$call_file_name");
>>
>>         exit(0);
>>
>>       }
>>     } else {
>>       next;
>>     }
>>   }
>>}
>>
>>
> 
>
========================================================================
> 
>>===
>>
>>In /etc/asterisk/extensions.conf you need to put this:
>>
> 
>
========================================================================
> 
>>===
>>[vm-notify]
>>
>>exten => _^X.,1,Cut(VM_BOX=EXTEN,^,2)
>>exten => _^X.,2,Cut(VM_CONTEXT=EXTEN,^,3)
>>exten => _^X.,3,Cut(DIAL_DEST=EXTEN,^,4)
>>exten => _^X.,4,Cut(DIAL_CONTEXT=EXTEN,^,5)
>>exten => _^X.,5,HasNewVoiceMail(${VM_BOX}@${VM_CONTEXT})
>>exten => _^X.,6,Answer
>>exten => _^X.,7,Hangup
>>exten => _^X.,106,Dial(Zap/g2/${DIAL_DEST},20)
>>exten => _^X.,107,Noop(DIALSTATUS=${DIALSTATUS})
>>exten => _^X.,108,GotoIf($[${DIALSTATUS} = CHANUNAVAIL]?111)
>>exten => _^X.,109,GotoIf($[${DIALSTATUS} = CONGESTION]?111)
>>exten => _^X.,110,Answer
>>exten => _^X.,111,Hangup
>>
>>exten => s,1,Wait(1)
>>exten => s,2,HasNewVoiceMail(${VM_BOX}@${VM_CONTEXT},VM_NUMBER)
>>exten => s,3,Hangup
>>exten => s,103,SetVar(LOOP=1)
>>exten => s,104,ResponseTimeout(1)
>>exten => s,105,Background(vm-youhave)
>>exten => s,106,SayNumber(${VM_NUMBER})
>>exten => s,107,Background(vm-INBOX)
>>exten => s,108,Background(vm-messages)
>>exten => s,109,Background(vm-for)
>>exten => s,110,Background(extension)
>>exten => s,111,SayDigits(${VM_BOX})
>>exten => s,112,Background(vm-instructions)
>>
>>exten => 1,1,ResponseTimeout(0)
>>exten => 1,2,VoicemailMain(${VM_BOX}@${VM_CONTEXT})
>>
>>exten => #,1,Playback(goodbye)
>>exten => #,2,Hangup
>>
>>exten => t,1,GotoIf($[${LOOP} > 3]?#,1)
>>exten => t,2,SetVar(LOOP=$[${LOOP} + 1])
>>exten => t,3,Goto(s,104)
>>
>>
> 
>
========================================================================
> 
>>===
>>
>>
>>Why all the crap with CUT and ^ asd that weird pattern match?  Well,
> 
> as 
> 
>>far as I can tell when, in a .call file, you use SetVar, it does NOT
> 
> set
> 
>>those variables for "Channel: Local/" leg of the call, only the 
>>"Context: Extension: Priority:" part of the call.
>>
>>This script, run by externnotify, creates a .call file that "calls" a 
>>Local/ channel.  That channel runs an extension that checks to see if 
>>the user has new voicemail.  Maybe they checked their voicemail
> 
> between 
> 
>>the time the .call file was created (when the message was left) and
> 
> the 
> 
>>time the .call file actually runs.  The script makes sure the .call
> 
> file
> 
>>will run about 10 mins in the future.
>>
>>If the user has no new voicemail, the extension answers and then hangs
> 
> 
>>up the call.  This makes sure the .call system knows that the call was
> 
> 
>>"answered".
>>
>>If there is still new voicemail, then the call happens, and the person
> 
> 
>>is told how many messages they have, and have a chance to log into 
>>voicemail.  I would like to be able to detect voicemail answering and 
>>not start playing prompts unless a human answers.
>>
>>--Eric
> 
> 
> 


-- 
Always do right. This will gratify some people and astonish the rest.
Mark Twain
_______________________________________________
Asterisk-Users mailing list
Asterisk-Users at lists.digium.com
http://lists.digium.com/mailman/listinfo/asterisk-users
To UNSUBSCRIBE or update options visit:
   http://lists.digium.com/mailman/listinfo/asterisk-users





More information about the asterisk-users mailing list