Asterisk-LCR

 view release on metacpan or  search on metacpan

lib/Asterisk/LCR/Dialer/MinTime.pm  view on Meta::CPAN

package Asterisk::LCR::Dialer::MinTime;
use base qw /Asterisk::LCR::Dialer::MinCost/;
use warnings;
use strict;


sub _process
{
    my $self  = shift;
    my $dial  = $self->SUPER::_process (@_);
    my $str   = join '&', @{$dial};
    return [ $str ];
}


1;


__END__

lib/Asterisk/LCR/Importer.pm  view on Meta::CPAN

Asterisk::LCR::Importer is just a base class. To write your own importer:

  package MyOwnImporter;
  use base qw /Asterisk::LCR::Importer/;
  use warnings;
  use strict;
  
  sub new
  {
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{prefix_locale}            = 'us'
    $self->{prefix_position}          = '0'
    $self->{label_position}           = '1'
    $self->{rate_position}            = '4'
    $self->{first_increment_position} = '2'
    $self->{increment_position}       = '3'
    $self->{connection_fee}           = '0'
    $self->{currency}                 = 'USD'
    $self->{uri}                      = 'http://www.plainvoip.com/ratedump.php'
    $self->{separator}                = '(?:,|(?<=\d)\/(?=\d))'

lib/Asterisk/LCR/Importer/MutualPhone.pm  view on Meta::CPAN

package Asterisk::LCR::Importer::PlainVoip;
use base qw /Asterisk::LCR::Importer/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{prefix_locale}   = 'us';
    $self->{prefix_position} = '0';
    $self->{label_position}  = '1';
    $self->{rate_position}   = '2';
    $self->{first_increment} = '1';
    $self->{increment}       = '1';
    $self->{connection_fee}  = '0';
    $self->{currency}        = 'USD';
    $self->{uri}             = 'http://mutualphone.com/mutualphone-a-z.csv';
    return $self;

lib/Asterisk/LCR/Importer/NuFone.pm  view on Meta::CPAN

package Asterisk::LCR::Importer::NuFone;
use base qw /Asterisk::LCR::Importer/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{prefix_position}          ||= 1;
    $self->{prefix_locale}            ||= 'us';
    $self->{label_position}           ||= 0;
    $self->{rate_position}            ||= 2;
    $self->{currency}                 ||= 'USD';
    $self->{connection_fee}           ||= 0;
    $self->{first_increment}          ||= 15;
    $self->{increment}                ||= 15;
    $self->{uri}                      ||= 'https://www.nufone.net/rates.csv';
    $self->{filter}                   ||= '^.*,\d+,';

lib/Asterisk/LCR/Importer/PlainVoip.pm  view on Meta::CPAN

package Asterisk::LCR::Importer::PlainVoip;
use base qw /Asterisk::LCR::Importer/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{prefix_locale}            = 'us';
    $self->{prefix_position}          = '0';
    $self->{label_position}           = '1';
    $self->{rate_position}            = '4';
    $self->{first_increment_position} = '2';
    $self->{increment_position}       = '3';
    $self->{connection_fee}           = '0';
    $self->{currency}                 = 'USD';
    $self->{uri}                      = 'http://www.plainvoip.com/ratedump.php';
    $self->{separator}                = '(?:,|(?<=\d)\/(?=\d))';

lib/Asterisk/LCR/Importer/RichMedium.pm  view on Meta::CPAN

package Asterisk::LCR::Importer::RichMedium;
use base qw /Asterisk::LCR::Importer/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{uri}                      ||= "http://www.richmedium.com/wholesale-termination.csv";
    $self->{prefix_position}          ||= 0;
    $self->{prefix_locale}            ||= 'us';
    $self->{label_position}           ||= 4;
    $self->{rate_position}            ||= 1;
    $self->{first_increment_position} ||= 2;
    $self->{increment_position}       ||= 3;
    $self->{connection_fee}           ||= 0;
    $self->{currency}                 ||= 'USD';
    return $self;

lib/Asterisk/LCR/Importer/VoIPJet.pm  view on Meta::CPAN

package Asterisk::LCR::Importer::VoIPJet;
use base qw /Asterisk::LCR::Importer/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{prefix_position}          ||= 1;
    $self->{prefix_locale}            ||= 'us';
    $self->{label_position}           ||= 0;
    $self->{rate_position}            ||= 2;
    $self->{first_increment_position} ||= 3;
    $self->{increment}                ||= 6;
    $self->{connection_fee}           ||= 0;
    $self->{currency}                 ||= 'USD';
    $self->{uri}                      ||= 'http://voipjet.com/ratescsv.php';
    $self->{filter}                   ||= '^.*(?<!dialing),\d+,';

lib/Asterisk/LCR/Locale.pm  view on Meta::CPAN

package Asterisk::LCR::Locale;
use base qw /Asterisk::LCR::Object/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (id => @_) || return;
    $self->parse();
    return $self;
}


# does global => local => global ($prefix) conversion
sub normalize
{
    my $self = shift;
    my $prefix = shift;

lib/Asterisk/LCR/Storage/DiskBlob.pm  view on Meta::CPAN

use constant DEFAULT_LIMIT => 10000;
our $SORT = undef;
our $SINGLETON = undef;

sub new
{
    my $class = shift;
    $SINGLETON and return $SINGLETON;
    
    my $self  = $class->SUPER::new (@_);
    my $file  = $self->db_file();
    
    $self->{map} = {};
    if (-e $file)
    {
        open FP, "<$file" or die "Cannot read-open $file";
        print STDERR "Loading data, please be patient...";
        while (<FP>)
        {
            chomp();