diff options
author | Joe Crayne <joe@jerkface.net> | 2019-12-19 14:23:17 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:27:24 -0500 |
commit | 9b3154f9e86fa19a7df08e8a0ad013ab273202af (patch) | |
tree | fe875ea55e3104a79045dc239f5b45f63d11e672 /dht | |
parent | 7895f56e787823af98197981dbdd6c11f2f25597 (diff) |
Renamed 'onion' command to just 'o'.
Diffstat (limited to 'dht')
-rw-r--r-- | dht/examples/dhtd.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs index 99ff746c..96f0cb72 100644 --- a/dht/examples/dhtd.hs +++ b/dht/examples/dhtd.hs | |||
@@ -418,11 +418,8 @@ clientSession s@Session{..} sock cnum h = do | |||
418 | , ["r"] | 418 | , ["r"] |
419 | , ["k"] | 419 | , ["k"] |
420 | , ["roster"] | 420 | , ["roster"] |
421 | , ["sessions"] | ||
422 | , ["session"] | ||
423 | , ["netcrypto"] | ||
424 | , ["tcp"] | 421 | , ["tcp"] |
425 | , ["onion"] | 422 | , ["o"] |
426 | , ["g"] | 423 | , ["g"] |
427 | , ["p"] | 424 | , ["p"] |
428 | , ["a"] | 425 | , ["a"] |
@@ -717,7 +714,7 @@ clientSession s@Session{..} sock cnum h = do | |||
717 | hPutClientChunk h $ unwords [show addr, show (now - tm), TCP.showStat tcp] ++ "\n" | 714 | hPutClientChunk h $ unwords [show addr, show (now - tm), TCP.showStat tcp] ++ "\n" |
718 | hPutClient h $ show (MM.size tcps) ++ " active or pending connections.\n" | 715 | hPutClient h $ show (MM.size tcps) ++ " active or pending connections.\n" |
719 | 716 | ||
720 | ("onion", s) | "" <- strp $ map toLower s | 717 | ("o", s) | "" <- strp $ map toLower s |
721 | -> cmd0 $ do | 718 | -> cmd0 $ do |
722 | now <- getPOSIXTime | 719 | now <- getPOSIXTime |
723 | join $ atomically $ do | 720 | join $ atomically $ do |
@@ -763,12 +760,12 @@ clientSession s@Session{..} sock cnum h = do | |||
763 | hPutClientChunk h $ showColumns $ ["","responses","timeouts", "tcp", "age", "version"]:r | 760 | hPutClientChunk h $ showColumns $ ["","responses","timeouts", "tcp", "age", "version"]:r |
764 | hPutClient h $ unlines $ ("relays: " ++ show rcnt) : map (mappend " " . show) relays | 761 | hPutClient h $ unlines $ ("relays: " ++ show rcnt) : map (mappend " " . show) relays |
765 | 762 | ||
766 | ("onion", s) | "udp" <- strp $ map toLower s | 763 | ("o", s) | "udp" <- strp $ map toLower s |
767 | -> cmd0 $ do | 764 | -> cmd0 $ do |
768 | tcpm <- requestTCPMode onionRouter (Just False) | 765 | tcpm <- requestTCPMode onionRouter (Just False) |
769 | hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP." | 766 | hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP." |
770 | 767 | ||
771 | ("onion", s) | "tcp" <- strp $ map toLower s | 768 | ("o", s) | "tcp" <- strp $ map toLower s |
772 | -> cmd0 $ do | 769 | -> cmd0 $ do |
773 | tcpm <- requestTCPMode onionRouter (Just True) | 770 | tcpm <- requestTCPMode onionRouter (Just True) |
774 | hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP." | 771 | hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP." |