#!/usr/local/bin/perl
  my $url='http://list.iblocklist.com/?list=bt_level1&fileformat=cidr&ar' ;
  my $count = 0;
  my $ip = "";
  my ($deleted,undef) = split(/ /,`pfctl -t p2p -T flush 2>&1`); 
  foreach my $el (`ftp -o - "$url" 2>/dev/null | zcat - |  grep "^[0-9]" | sort -u`)
  {
        chomp($el);
        $ip = $ip . " " . $el ;
        $count++;
        if($count == 10000)
        {
                `pfctl -t p2p -T add $ip 2>&1`; 
                $count = 0;
                $ip = "" ;
        }
  }
  $total += $count;
  `echo $ip | pfctl -t p2p -T add -f - 2>&1`; 
  my ($added,undef) = split(/ /,`pfctl -t p2p -T show|wc -l | tr -d ' '`);
  chomp($added,$deleted);
  my $diff = $added - $deleted ;
  if($diff == 0)
  {
        print "$added addresses (inchange).\n";
        exit();
  }
  if($diff > 0)
  {
        $diff = "+" . $diff ;
  }
  print "$added addresses ($diff).\n";
  # fin