Ajout des fichiers manquants

aliases/ipof.elv

@@ -0,0 +1,104 @@
+edit:add-var ipof~ [@argv]{
+  use str
+  use moi/util/condition
+  use moi/util/ip
+
+  fn less [cmp e1 e2]{ < ($cmp $e1 $e2) 0 }
+
+  fn sort-ip [e1 e2]{
+    local:i1 = (condition:cset (ip:is-ipv4 $e1) 0 (condition:cset (ip:is-ipv6 $e1) 1 2))
+    local:i2 = (condition:cset (ip:is-ipv4 $e2) 0 (condition:cset (ip:is-ipv6 $e2) 1 2))
+    if (!= $i1 $i2) {
+      < $i1 $i2
+    } elif (== $i1 2) {
+      <s $e1 $e2
+    } elif (== $i1 1) {
+      less $ip:cmp6~ $e1 $e2
+    } else {
+      less $ip:cmp4~ $e1 $e2
+    }
+  }
+
+  fn dnssolve [d]{
+    local:result = [
+      &ips=[&]
+      &resolvers=''
+      &txt=''
+    ]
+    e:dnscrypt-proxy -config /etc/dnscrypt-proxy/dnscrypt-proxy.toml -resolve (idn -a $d) | peach [l]{
+      local:l     = $l
+      local:idx   = (+ (str:index $l :) 1)
+      local:value = (str:trim-space $l[$idx".."])
+      if (or (str:has-prefix $l 'IPv4 addresses') (str:has-prefix $l 'IPv6 addresses')) {
+        str:split ', ' $value | peach [e]{
+          local:e = $e
+          if (ip:is-ip $e) {
+            result[ips][$e] = $nil
+          }
+        }
+      } elif (str:has-prefix $l 'TXT records') {
+        result[txt] = $value
+      } elif (str:has-prefix $l 'Resolver') {
+        result[resolvers] = $value
+      } elif (str:has-prefix $l 'Name servers') {
+        result[remote] = (not-eq $value 'name does not exist')
+      }
+    }
+    put $result
+  }
+
+  local:hosts = [&]
+  cat /etc/hosts | peach [l]{
+    local:l = $l
+    l = (str:trim-space $l)
+    if (and (not-eq $l '') (not-eq $l[0] '#')) {
+      put $l
+    }
+  } | eawk [_ ip @domains]{
+    peach [d]{
+      local:d = $d
+      if (has-key $hosts $d) {
+        hosts[$d][$ip] = $nil
+      } else {
+        hosts[$d] = [&$ip=$nil]
+      }
+    } $domains
+  }
+
+  local:remote = [&]
+  peach [d]{
+    local:d = $d
+    local:solve = (dnssolve $d)
+    if (> (keys $solve[ips] | count) 0) {
+      remote[$d] = $solve
+    }
+  } $argv
+
+  each [d]{
+    local:exists = $false
+    echo (styled 'Resolving '$d'…' bright-green)
+    echo
+    if (has-key $hosts $d) {
+      exists = $true
+      echo (styled '  local:' bright-yellow)
+      keys $hosts[$d] | order &less-than=$sort-ip~ | each [ip]{
+        echo '    - '$ip
+      }
+    }
+    if (and (has-key $remote $d) $remote[$d][remote]) {
+      exists = $true
+      local:info = $remote[$d]
+      echo (styled '  remote:' bright-yellow)
+      echo '    IPs:'
+      keys $info[ips] | order &less-than=$sort-ip~ | each [ip]{
+        echo '    - '$ip
+      }
+      echo '    Resolvers:   '$info[resolvers]
+      echo '    TXT records: '$info[txt]
+    }
+    if (not $exists) {
+      echo (styled 'No info found' bright-red)
+    }
+    echo
+  } $argv
+}