putStrLn $ "First server " ++ show (name entry)

          putStrLn $ "The server is " ++ show (name entry)

      putStrLn "Received start command"

      putStrLn "Enabling global proxy"

      putStrLn "Received stop command"

      putStrLn "Disabling global proxy"

    "exit" -> do
      putStrLn "Exiting tproxy service"
      hPutStrLn h "bye"
      stop ip
      hClose h
      exitSuccess