home
/
code
/
tt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Validate crawled peers
[tt.git]
/
tt.rkt
diff --git
a/tt.rkt
b/tt.rkt
index
2fbcfe2
..
a375c69
100644
(file)
--- a/
tt.rkt
+++ b/
tt.rkt
@@
-795,6
+795,8
@@
(build-path tt-home-dir "peers-all")]
[peers-mentioned-file
(build-path tt-home-dir "peers-mentioned")]
(build-path tt-home-dir "peers-all")]
[peers-mentioned-file
(build-path tt-home-dir "peers-mentioned")]
+ [peers-parsed-file
+ (build-path tt-home-dir "peers-parsed")]
[peers-mentioned-curr
(mentioned-peers-in-cache)]
[peers-mentioned-prev
[peers-mentioned-curr
(mentioned-peers-in-cache)]
[peers-mentioned-prev
@@
-810,8
+812,13
@@
[peers-discovered
(set-subtract peers-all (list->set peers-all-prev))]
[peers-all
[peers-discovered
(set-subtract peers-all (list->set peers-all-prev))]
[peers-all
- (peers-sort (set->list peers-all))])
+ (peers-sort (set->list peers-all))]
+ [peers-parsed
+ (filter
+ (λ (p) (< 0 (length (peer->msgs p))))
+ peers-all)])
(log-info "Known peers mentioned: ~a" (length peers-mentioned))
(log-info "Known peers mentioned: ~a" (length peers-mentioned))
+ (log-info "Known peers parsed ~a" (length peers-parsed))
(log-info "Known peers total: ~a" (length peers-all))
(log-info "Discovered ~a new peers:~n~a"
(set-count peers-discovered)
(log-info "Known peers total: ~a" (length peers-all))
(log-info "Discovered ~a new peers:~n~a"
(set-count peers-discovered)
@@
-821,6
+828,8
@@
(set->list peers-discovered))))
(peers->file peers-mentioned
peers-mentioned-file)
(set->list peers-discovered))))
(peers->file peers-mentioned
peers-mentioned-file)
+ (peers->file peers-parsed
+ peers-parsed-file)
(peers->file peers-all
peers-all-file)))]
[command
(peers->file peers-all
peers-all-file)))]
[command
This page took
0.028553 seconds
and
4
git commands to generate.