Premium rates numbers

Мы защищаем наших клиентов используя встроенных механизм против антифрод звонков. В частности это:

1. Блокировка звонков на телефоны по стоимости, заданной индивидуально
2. Анализ звонков, стоимость которых превышает некоторое предельное значение. В этом случае выявленный номер заносится автоматически в black-лист.

#!/bin/sh
wget -O /tmp/codes.pdf http://www.mediatel.com.au/pdfs/RateSheetlatest.pdf  &>/dev/null 
pdftotext /tmp/codes.pdf
rm /tmp/codes.pdf
sed -n '50,$p' /tmp/codes.txt | grep -E '^[0-9]{3,5}$'
rm /tmp/codes.txt

wget -O /tmp/siptraffic/1.xls http://www.siptraffic.com/public/download/ratelist_gold.xls -c  -o /tmp/get.res

/var/www/parse.pl

файл /var/www/parse.pl выглядит както так(можно написать свой, минимальный навык програмирования приветсвуется)

#!/usr/bin/perl

#######################################################################
##
#######################################################################

##  Define Variables
#######################################################################

##  Path Preferences
$path_to_excel_file  = "/tmp/siptraffic/1.xls";
$max_cost = 0.5;

##  Begin Program
#######################################################################

use Spreadsheet::ParseExcel;

do_main();

##  Subroutines
#######################################################################

sub do_main
{
  my ($oBook, $iR, $iC, $oWkS, $oWkC);
  $oBook = Spreadsheet::ParseExcel::Workbook->Parse($path_to_excel_file);
  print "file parsed\n";
  open(FILE_OUT, "> $path_to_output_file");
  my $oWkS =@{$oBook->{Worksheet}}[1];
  my $first_cell=$oWkS->{Cells}[0][0]->Value ;
        $first_cell =~ s/^\s*//;  $first_cell =~ s/\s*$//;
  if( $first_cell eq 'Afghanistan - Fixed'){
    for (my $iR = $oWkS->{MinRow}; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++)
    {
      if($oWkS->{Cells}[$iR][2]->Value <$max_cost){
                print $oWkS->{Cells}[$iR][1]->Value ;
        }
      #print $oWkS->{Cells}[$iR][0]->Value." [[" . $oWkS->{Cells}[$iR][1]->Value . "]]: " . $oWkS->{Cells}[$iR][2]->Value . "\n";
    }
  }else{
  print "format changed\n;";
  print   $oWkS->{Cells}[0][0]->Value ;
  print "-";
  print   $oWkS->{Cells}[0][1]->Value ;
  }
  close(FILE_OUT);
}

соответвенно получаете список направлений которые НЕ являются платными или сильно дорогими.

дальше просто ложите их в базу и проверяете перед звонком.

можно повторить еще для пары-тройки агрегаторов.