, rawMode :: RawMode

  , rawMode :: Maybe RawMode

            String -> --UDP2RAW_PWD
            String -> --UDP2SPEEDER_PWD

            Maybe String -> --UDP2RAW_PWD
            Maybe String -> --UDP2SPEEDER_PWD

        ++ "UDP2RAW_PWD=" ++ udp2raw_pwd ++ "\n"
        ++ "UDPSPEEDER_PWD=" ++ udpspeeder_pwd ++ "\n"
        ++ "RAW_MODE=" ++ rawModeToArg (rawMode env) ++ "\n"
        ++ "PORT=" ++ show (fromMaybe 443 (getPort (rawMode env))))

        ++ "UDP2RAW_PWD=" ++ fromMaybe "" udp2raw_pwd ++ "\n"
        ++ "UDPSPEEDER_PWD=" ++ fromMaybe "" udpspeeder_pwd ++ "\n"
        ++ "RAW_MODE=" ++ maybe "" rawModeToArg (rawMode env) ++ "\n"
        ++ "PORT=" ++ show (fromMaybe 443 (rawMode env >>= getPort)))

      (Just ipStr, Just modeStr) ->
        case parseRawMode modeStr mPort of
          Just raw -> pure $ Right $ Env ipStr raw
          Nothing  -> pure $ Left $ "Invalid RAW_MODE or missing PORT for mode: " ++ modeStr

      (Just ipStr, Just modeStr)->pure $ Right $ Env ipStr (parseRawMode modeStr mPort)
      (Just ipStr, _)-> pure $ Right $ Env ipStr Nothing

  , raw_mode         :: Text

  , raw_mode         :: Maybe Text

  , udpspeeder_password :: Text
  , udp2raw_password :: Text

  , udpspeeder_password :: Maybe Text
  , udp2raw_password :: Maybe Text

    <*> v .: "raw_mode"

    <*> v .:? "raw_mode"

    <*> v .: "udpspeeder_password"
    <*> v .: "udp2raw_password"

    <*> v .:? "udpspeeder_password"
    <*> v .:? "udp2raw_password"

                    let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))
                    Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) environment

                    let raw = raw_mode entry >>= \rm -> textToRawMode rm (port entry)
                    Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack <$> udp2raw_password entry) (T.unpack <$> udpspeeder_password entry) environment

                            let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))
                            Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) environment

                            let raw = raw_mode entry >>= \rm -> textToRawMode rm (port entry)
                            Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack <$> udp2raw_password entry) (T.unpack <$> udpspeeder_password entry) environment

start :: String -> RawMode -> IO ()

start :: String -> Maybe RawMode -> IO ()

        ICMP      -> applyICMP ip
        UDP p     -> applyUDP ip p
        FakeTCP p -> applyFakeTCP ip p

        Nothing          -> pure()
        Just ICMP        -> applyICMP ip
        Just (UDP p )    -> applyUDP ip p
        Just (FakeTCP p) -> applyFakeTCP ip p

stop :: String -> RawMode -> IO ()

stop :: String -> Maybe RawMode -> IO ()

        ICMP      -> clearICMP ip
        UDP p     -> clearUDP ip p
        FakeTCP p -> clearFakeTCP ip p

        Nothing          -> pure()
        Just ICMP        -> clearICMP ip
        Just (UDP p)     -> clearUDP ip p
        Just (FakeTCP p) -> clearFakeTCP ip p