From feb392776913df5b1cac4c87a2616190ef0995e9 Mon Sep 17 00:00:00 2001
From: kaotisk <kaotisk@arching-kaos.org>
Date: Tue, 10 Dec 2024 18:34:29 +0200
Subject: Expanding scanning and peerings to be stored for yggdrasil network as
 well

---
 lib/_ak_network | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 74 insertions(+), 4 deletions(-)

diff --git a/lib/_ak_network b/lib/_ak_network
index a30001d..02e1d41 100755
--- a/lib/_ak_network
+++ b/lib/_ak_network
@@ -180,7 +180,7 @@ _ak_network_scan_cjdns_dump(){
         fi
     done
     printf ']' >> walk.aknet
-    mv walk.aknet $AK_ZPEERSFILE
+    mv walk.aknet $AK_ZPEERSFILE.hyperboria
     rm -rf $TEMPDIR
 }
 
@@ -245,7 +245,59 @@ _ak_network_scan_cjdns_full(){
         fi
     done
     printf ']' >> walk.aknet
-    mv walk.aknet $AK_ZPEERSFILE
+    mv walk.aknet $AK_ZPEERSFILE.hyperboria
+    rm -rf $TEMPDIR
+}
+
+_ak_network_scan_yggdrasil_full(){
+    # This scan is using HIA resources to scan the whole cjdns network for peers
+    #
+    # Ref:
+    #  - https://github.com/ircerr/yia/
+    #  - http://yia.yggdrasil-network.ca/watchlist/yia.iplist
+    #
+    TEMPDIR="$(_ak_make_temp_directory)"
+    cd $TEMPDIR
+    pubkeys_ips="$TEMPDIR/pi"
+    online_ips="$TEMPDIR/oi"
+    filtered_online_pubkeys_ips="$TEMPDIR/fopi"
+    curl -s \
+        --connect-timeout 5 \
+        "http://yia.yggdrasil-network.ca/crawler/crawler-yia.pubkey" > $pubkeys_ips
+    if [ $? -ne 0 ]
+    then
+        _ak_log_error "Couldn't fetch DB from YIA"
+        exit 1
+    fi
+    counter=0
+    printf '[' > walk.aknet
+    cat $pubkeys_ips \
+        | sort \
+        | uniq \
+        | while read -r pkey ip || [ -n "$ip" ]
+    do
+        _ak_log_debug "Scanning $ip..."
+        node_info="$(curl \
+            --connect-timeout 3 \
+            -A 'akd/0.1.0; https://github.com/arching-kaos' \
+            "http://[$ip]:8610/v0/node_info" 2>/dev/null | jq -c -M)"
+        if [ $? -eq 0 ] && [ $(echo -n "$node_info" | wc -c) -gt 0 ]
+        then
+            if [ "$counter" -ne "0" ]
+            then
+                printf ',' >> walk.aknet
+            fi
+            if [ ! -n "$node_info" ]
+            then
+                node_info="null"
+            fi
+            printf '{"yggdrasil":{"public_key":"%s","ip":"%s"},"node_info":%s}' \
+                "$pkey" "$ip" "$node_info" >> walk.aknet
+            counter="`expr $counter + 1`"
+        fi
+    done
+    printf ']' >> walk.aknet
+    mv walk.aknet $AK_ZPEERSFILE.yggdrasil
     rm -rf $TEMPDIR
 }
 
@@ -262,6 +314,17 @@ _ak_network_scan_cjdns(){
     fi
 }
 
+_ak_network_scan_yggdrasil(){
+    if [ ! -z $1 ] && [ -n "$1" ]
+    then
+        case $1 in
+            *) _ak_network_scan_yggdrasil_full; exit;;
+        esac
+    else
+        _ak_network_scan_yggdrasil_full
+    fi
+}
+
 _ak_network_scan(){
     if [ ! -z $1 ] && [ -n "$1" ]
     then
@@ -269,12 +332,14 @@ _ak_network_scan(){
             stellar) _ak_network_scan_stellar; exit;;
             ipfs) _ak_network_scan_ipfs; exit;;
             cjdns) shift; _ak_network_scan_cjdns $1; exit;;
+            yggdrasil) shift; _ak_network_scan_yggdrasil $1; exit;;
             * ) _ak_log_error "Unknown network $1";exit 1;;
         esac
     else
         _ak_network_scan_stellar
         _ak_network_scan_ipfs
         _ak_network_scan_cjdns
+        _ak_network_scan_yggdrasil
     fi
 }
 _ak_network_show_peers_stellar(){
@@ -301,7 +366,11 @@ _ak_network_show_peers_stellar(){
 }
 
 _ak_network_show_peers_cjdns(){
-    cat $AK_ZPEERSFILE | jq
+    cat $AK_ZPEERSFILE.hyperboria | jq
+}
+
+_ak_network_show_peers_yggdrasil(){
+    cat $AK_ZPEERSFILE.yggdrasil | jq
 }
 
 _ak_network_show_peers_ipfs(){
@@ -315,10 +384,11 @@ _ak_network_show_peers(){
             stellar) _ak_network_show_peers_stellar; exit;;
             cjdns) _ak_network_show_peers_cjdns; exit;;
             ipfs) _ak_network_show_peers_ipfs; exit;;
+            yggdrasil) _ak_network_show_peers_yggdrasil; exit;;
             * ) _ak_log_error "Unknown network $1";exit 1;;
         esac
     else
-        (_ak_network_show_peers_stellar; _ak_network_show_peers_cjdns; _ak_network_show_peers_ipfs) | \
+        (_ak_network_show_peers_stellar; _ak_network_show_peers_cjdns; _ak_network_show_peers_yggdrasil; _ak_network_show_peers_ipfs) | \
             jq -j | \
             sed -e 's/]\[/,/g' | \
             jq
-- 
cgit v1.2.3