Stuff

#!/usr/bin/perl

use Asterisk::AGI;
use strict;

close(STDERR); open(STDERR,">/etc/asterisk/agi-bin/stderr.out");
$SIG{"HUP"} = sub { print STDERR "Received hup!\n"; };

my $phone = "";

open(OUTFILE, ">>/etc/asterisk/agi-bin/dial.out");
($phone) = @ARGV;

$phone =~ s/^55(.)/0$1/;
my $peer = "okscm";
my $dialstr = "SIP/$peer/$phone|60";

print OUTFILE "----\ndial = $dialstr\n";

$res = $AGI->exec("DIAL $dialstr");

print OUTFILE "postdial\n";

$answeredtime = $AGI->get_variable("ANSWEREDTIME");
$dialstatus = $AGI->get_variable("DIALSTATUS");

print OUTFILE "peer = $peer\n";
print OUTFILE "phone = $phone\n";
print OUTFILE "sec = $answeredtime\n";
print OUTFILE "status = $dialstatus\n";

close(OUTFILE);

sub ignore_hup {
        print OUTFILE "\nHUP received!\n\n";
}