#!/usr/bin/perl

### Skrypt do mac listy :)
### wykonany przez dhapollo
### Mozna wykozystać pozostawiajac powuższe nagłówki :)



  $lp = 1;


open (PLIK_BLOK, "/etc/serwer/blokada/blokada.list") or die "open $alert_file: $!\n";
{
  sleep 1;
    if (seek(PLIK_BLOK,0,1))
      {

          print "--------------------------------------------- \n";
          print "                 BLOKUJEMY INTERNET DLA: \n";
          print "--------------------------------------------- \n";

    while (<PLIK_BLOK>)
        {
    chop;
  next if (/^\s*$/); # wyjazd z pustymi liniami
  next if (/^#/);    # wyjazd z #
     if (/(\S+) \; (\d+\.\d+\.\d+\.\d+)/)
        {

  print " $lp -> Nazwa: $1 Adres IP $2\n";
system "iptables -A FORWARD -s $2 -j DROP";
system "iptables -A FORWARD -d $2 -j DROP";
  $lp = $lp + 1;
}

} # end while
     } # end if seek
 } # end for

close PLIK_BLOK;
