iopq/proxy - Change ZJRI2OJNH6Q6ZS4FXWDQBHSECRO3TK3W4EIJ3UIWXNFDMI6XISYQC

Atomic writes of the .env file

Created by EbwjwgbHP64g5DPwCqcF1oKFEikinCPQ2vNWwmnsaYkz on November 13, 2025

ZJRI2OJNH6Q6ZS4FXWDQBHSECRO3TK3W4EIJ3UIWXNFDMI6XISYQC

Dependencies

In channels

main

Change contents

Deletion in src/Udp2Raw.hs at line 40 [3.35]

B:BD[3.1001] → [3.1001:1485]


writeEnv :: String -> --SERVER_IP
            String -> --UDP2RAW_PWD
            String -> --UDP2SPEEDER_PWD
            RawMode ->
            IO ()
writeEnv ip udp2raw_pwd udpspeeder_pwd raw = do
    writeFile "/run/udp2raw/.env" (
        "SERVER_IP=" ++ ip ++ "\n"
        ++ "UDP2RAW_PWD=" ++ udp2raw_pwd ++ "\n"
        ++ "UDPSPEEDER_PWD=" ++ udpspeeder_pwd ++ "\n"
        ++ "RAW_MODE=" ++ rawModeToArg raw ++ "\n"
        ++ "PORT=" ++ show (fromMaybe 443 (getPort raw)))

Insertion in src/Env.hs at line 6 [4.178]
[4.250]
[4.250]
```
  , writeEnv
```

Replacement in src/Env.hs at line 16 [4.178]

B:BD[4.441] → [4.441:519]

import Udp2Raw (RawMode(..))  -- Import the RawMode type (ICMP, UDP, FakeTCP)

[4.441]

[4.519]

import Udp2Raw  -- Import the RawMode type (ICMP, UDP, FakeTCP)
import System.IO.Temp (withTempFile)
import System.Directory (renameFile)
import System.FilePath (takeDirectory)

Insertion in src/Env.hs at line 28 [4.178]

[4.795]


write ::  String -> --filename
          String -> --content
          IO ()
write path content = do
  let dir = takeDirectory path
  withTempFile dir "env.tmp" $ \tmpPath tmpHandle -> do
    hPutStrLn tmpHandle (content)
    hClose tmpHandle
    renameFile tmpPath path  -- atomic replacement

Insertion in src/Env.hs at line 39 [4.178]

[4.796]


writeEnv :: Env ->
            String -> --UDP2RAW_PWD
            String -> --UDP2SPEEDER_PWD
            String -> --filename
            IO ()
writeEnv env udp2raw_pwd udpspeeder_pwd file = do
    write file (
        "SERVER_IP=" ++ ip env ++ "\n"
        ++ "UDP2RAW_PWD=" ++ udp2raw_pwd ++ "\n"
        ++ "UDPSPEEDER_PWD=" ++ udpspeeder_pwd ++ "\n"
        ++ "RAW_MODE=" ++ rawModeToArg (rawMode env) ++ "\n"
        ++ "PORT=" ++ show (fromMaybe 443 (getPort (rawMode env))))

Deletion in src/Env.hs at line 85 [4.178]

B:BD[4.2228] → [4.2228:2290]

       "TCP"     -> FakeTCP <$> port     -- alias for FakeTCP

Insertion in proxy.cabal at line 35 [5.10426]
[5.11018]
[5.11018]
```
    , filepath
```
Insertion in proxy.cabal at line 39 [5.10426]
[5.11058]
[5.11058]
```
    , temporary
```
Insertion in proxy.cabal at line 61 [5.10426]
[5.11452]
[5.11452]
```
    , filepath
```
Insertion in proxy.cabal at line 66 [5.10426]
[5.11504]
[5.11504]
```
    , temporary
```
Insertion in package.yaml at line 24 [5.11607]
[5.12209]
[5.12209]
```
- filepath
- temporary
```

Replacement in app/Controller.hs at line 41 [5.12987]

B:BD[4.5554] → [4.5554:5598]

    eEnv <- Env.loadEnv "/run/udp2raw/.env"

[4.5554]

[4.5598]

    let environment = "/run/udp2raw/.env"
    eEnv <- Env.loadEnv environment

Replacement in app/Controller.hs at line 54 [5.12987]

B:BD[4.6110] → [4.6110:6221]

                    writeEnv ip (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) raw

[4.6110]

[4.6221]

                    Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) environment

Replacement in app/Controller.hs at line 66 [5.12987]

B:BD[5.14326] → [4.6634:6684]

∅:D[4.6684] → [5.14448:14449]

B:BD[5.14448] → [5.14448:14449]

B:BD[5.14449] → [4.6685:6757]

    let envVal = either (const Nothing) Just eEnv
    acceptThread <- forkIO $ acceptLoop sock stopFlag configFile envVal

[5.14326]

[6.144]

    acceptThread <- forkIO $ acceptLoop sock stopFlag configFile environment

Replacement in app/Controller.hs at line 81 [5.12987]

B:BD[4.7091] → [4.7091:7216]

acceptLoop :: Socket -> MVar () -> FilePath -> Maybe Env.Env -> IO ()
acceptLoop sock stopFlag configFile envFallback = loop

[4.7091]

[4.7216]

acceptLoop :: Socket -> MVar () -> FilePath -> String -> IO ()
acceptLoop sock stopFlag configFile env = loop

Replacement in app/Controller.hs at line 89 [5.12987]

B:BD[4.7340] → [4.7340:7400]

          forkIO $ handleClient conn configFile envFallback

[4.7340]

[4.7400]

          forkIO $ handleClient conn configFile env

Deletion in app/Controller.hs at line 93 [5.12987]
B:BD[7.975] → [4.7437:7476]
```
-- | Handle a single client connection
```

Replacement in app/Controller.hs at line 94 [5.12987]

B:BD[4.7515] → [4.7515:7576]

B:BD[4.7576] → [2.0:38]

handleClient :: Socket -> FilePath -> Maybe Env.Env -> IO ()
handleClient sock configFile env = do

[4.7515]

[4.7622]

handleClient :: Socket -> FilePath -> String -> IO ()
handleClient sock configFile environment = do

Replacement in app/Controller.hs at line 114 [5.12987]

B:BD[4.8398] → [2.113:153]

∅:D[2.153] → [8.48:98]

B:BD[8.48] → [8.48:98]

                            case env of
                                Just envVal -> do

[4.8398]

[8.98]

                            e <- Env.loadEnv environment
                            case e of
                                Right envVal -> do

Replacement in app/Controller.hs at line 119 [5.12987]

B:BD[8.250] → [8.250:334]

                                Nothing -> hPutStrLn h "No previous rules detected"

[8.250]

[2.154]

                                Left _ -> hPutStrLn h "No previous rules detected"

Replacement in app/Controller.hs at line 122 [5.12987]

B:BD[2.353] → [2.353:472]

                            writeEnv ip (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) raw

[2.353]

[2.472]

                            Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) environment

Replacement in app/Controller.hs at line 129 [5.12987]

B:BD[4.9600] → [2.636:660]

∅:D[2.660] → [4.9632:9666]

B:BD[4.9632] → [4.9632:9666]

            case env of
                Just envVal -> do

[4.9600]

[4.9666]

            e <- Env.loadEnv environment
            case e of
                Right envVal -> do

Replacement in app/Controller.hs at line 134 [5.12987]

B:BD[4.9770] → [4.9770:9839]

                Nothing -> hPutStrLn h "No .env loaded, cannot stop"

[4.9770]

[4.9839]

                Left _ -> hPutStrLn h "No .env loaded, cannot stop"