Added git-remote-tor-annex, which allows git pull and push to the tor hidden service.
Almost working, but there's a bug in the relaying. Also, made tor hidden service setup pick a random port, to make it harder to port scan. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.
This commit is contained in:
parent
9cf9ee73f5
commit
070fb9e624
17 changed files with 254 additions and 61 deletions
|
@ -26,6 +26,12 @@ import qualified Data.ByteString.Lazy as L
|
|||
newtype AuthToken = AuthToken String
|
||||
deriving (Show)
|
||||
|
||||
mkAuthToken :: String -> Maybe AuthToken
|
||||
mkAuthToken = fmap AuthToken . headMaybe . lines
|
||||
|
||||
nullAuthToken :: AuthToken
|
||||
nullAuthToken = AuthToken ""
|
||||
|
||||
newtype Offset = Offset Integer
|
||||
deriving (Show)
|
||||
|
||||
|
@ -157,6 +163,7 @@ type Net = Free NetF
|
|||
data RelayData
|
||||
= RelayData L.ByteString
|
||||
| RelayMessage Message
|
||||
deriving (Show)
|
||||
|
||||
newtype RelayHandle = RelayHandle Handle
|
||||
|
||||
|
@ -400,8 +407,8 @@ relayCallback hout (RelayMessage (DATA len)) = do
|
|||
return Nothing
|
||||
relayCallback _ (RelayMessage (CONNECTDONE exitcode)) =
|
||||
return (Just exitcode)
|
||||
relayCallback _ (RelayMessage _) = do
|
||||
sendMessage (ERROR "expected DATA or CONNECTDONE")
|
||||
relayCallback _ (RelayMessage m) = do
|
||||
sendMessage $ ERROR $ "expected DATA or CONNECTDONE not " ++ unwords (Proto.formatMessage m)
|
||||
return (Just (ExitFailure 1))
|
||||
relayCallback _ (RelayData b) = do
|
||||
let len = Len $ fromIntegral $ L.length b
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue