applyICMP :: String -> IO ()
applyICMP server = do
  iptables  ["-I", "INPUT", "-s", server, "-p", "icmp", "--icmp-type", "0", "-j", "DROP"]

clearICMP :: String -> IO ()
clearICMP server = do
  iptables  ["-D", "INPUT", "-s", server, "-p", "icmp", "--icmp-type", "0", "-j", "DROP"]
applyUDP :: String -> Int -> IO ()
applyUDP server port = do
  iptables  ["-I", "INPUT", "-s", server, "-p", "udp", "-m", "udp", "--sport", show port, "-j", "DROP"]
clearUDP :: String -> Int -> IO ()
clearUDP server port = do
  iptables  ["-D", "INPUT", "-s", server, "-p", "udp", "-m", "udp", "--sport", show port, "-j", "DROP"]

applyICMP :: String -> IO ()
applyICMP server = do
  iptables  ["-I", "INPUT", "-s", server, "-p", "icmp", "--icmp-type", "0", "-j", "DROP"]
clearICMP :: String -> IO ()
clearICMP server = do
  iptables  ["-D", "INPUT", "-s", server, "-p", "icmp", "--icmp-type", "0", "-j", "DROP"]

          let raw = fromMaybe ICMP (textToRawMode $ raw_mode entry)

          let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))

          start ip

          start ip raw

            _ <- forkIO $ (handleClient conn ip)

            _ <- forkIO $ (handleClient conn ip raw)

                -> RawMode

handleClient conn ip = do

handleClient conn ip raw = do

      start ip

      start ip raw

      stop ip

      stop ip raw

start :: String       -- ^ server IP (resolved at runtime)

start ::  String       -- ^ server IP (resolved at runtime)
          -> RawMode

start ip = do

start ip raw = do

  applyICMP ip

  case raw of
    ICMP     -> applyICMP ip
    UDP p    -> applyUDP ip p
    FakeTCP p-> applyFakeTCP ip p

stop :: String       -- ^ server IP (resolved at runtime)

stop ::   String       -- ^ server IP (resolved at runtime)
          -> RawMode

stop ip = do

stop ip raw = do

  clearICMP ip

  case raw of
      ICMP     -> do applyICMP ip
      UDP p    -> do applyUDP ip p
      FakeTCP p-> do applyFakeTCP ip p