#!/usr/bin/perl

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



  $lp = 1;


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

          print "--------------------------------------------- \n";
          print "                 FORWARDING PORTS: \n";
          print "--------------------------------------------- \n";

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

  print " $lp Nazwa: $5 \n\tPort internet: $2 Adres IP: $3 Port LAN: $4 \n";
system "iptables -t nat -I PREROUTING -p $1 -i eth0 --dport $2 -j DNAT --to $3:$4";

  $lp = $lp + 1;
}

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

close PLIK_FORWARD;
