asterisk users - Feb 2009 - Continue processing AGI script after hangup

All;
  I wrote a PERL AGI script that prompts a caller to leave a message using 
print "RECORD FILE $recordfile wav # 60000 BEEP s=3\n"; 

When the caller is done, they need to press the # key. The message is then
delivered.
However, the message is not delivered if the caller simply hangs up when
finished.
If the user hangs up, the script ends right then. How do I keep on processing
the
rest of the script after the hangup? Any help at all would be greatly
appreciated.
Thanks




_________________________________________________________________
Windows Live?: Keep your life in sync. 
http://windowslive.com/explore?ocid=TXT_TAGLM_WL_t1_allup_explore_022009
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
http://lists.digium.com/pipermail/asterisk-users/attachments/20090213/6da43e24/attachment.htm

On Friday 13 February 2009 09:55:49 cbbs70a at hotmail.com
wrote:
> All;
>   I wrote a PERL AGI script that prompts a caller to leave a message using
> print "RECORD FILE $recordfile wav # 60000 BEEP s=3\n";
>
> When the caller is done, they need to press the # key. The message is then
> delivered. However, the message is not delivered if the caller simply hangs
> up when finished. If the user hangs up, the script ends right then. How do
> I keep on processing the rest of the script after the hangup? Any help at
> all would be greatly appreciated. Thanks
$SIG{HUP} = \&send_message;

-- 
Tilghman

Tilghman Lesher schrieb:
> On Friday 13 February 2009 09:55:49 cbbs70a at hotmail.com wrote:
>>   I wrote a PERL AGI script that prompts a caller to leave a message
using
>> print "RECORD FILE $recordfile wav # 60000 BEEP s=3\n";
>>
>> When the caller is done, they need to press the # key. The message is
then
>> delivered. However, the message is not delivered if the caller simply
hangs
>> up when finished. If the user hangs up, the script ends right then. How
do
>> I keep on processing the rest of the script after the hangup?
> $SIG{HUP} = \&send_message;
http://perldoc.perl.org/perlipc.html#Signals
http://perldoc.perl.org/perlfaq8.html#How-do-I-trap-control-characters/signals%3F


   Philipp Kempgen

-- 
AMOOCON 2009, May 4-5, Rostock / Germany   ->  http://www.amoocon.de
Asterisk: http://the-asterisk-book.com - http://das-asterisk-buch.de
AMOOMA GmbH - Bachstr. 126 - 56566 Neuwied  ->  http://www.amooma.de
Gesch?ftsf?hrer: Stefan Wintermeyer, Handelsregister: Neuwied B14998
--