bvaudour/elvish_config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correction du script addbadips

Browse Source
This commit is contained in:
Benjamin VAUDOUR 2021-12-30 08:21:00 +00:00
parent f5bcaaf2ec
commit 1edc58d67b
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
aliases/addbadips.elv
View File

@ -4,31 +4,30 @@ edit:add-var addbadips~ {|@argv|
use framagit.org/benjamin.vaudour/elv-lib/mods/list
use framagit.org/benjamin.vaudour/elv-lib/mods/map
fn add {|f cmp ips|
fn add {|f cmp ips t|
var @cips = (cat $f)
var m c = (map:to-set $cips) 0
each {|e|
if (not (has-key $m $e)) {
echo $e ajoutée
set c = (+ $c 1)
set m[$e] = $nil
set @cips = $@cips $e
set c = (+ $c 1)
echo $e ajoutée
}
} $ips
if (> $c 0) {
set @cips = (list:sort $cmp $cips)
echo (str:join "\n" $cips) > $f
}
put $c (count $cips)
printf "%d %s ajoutées (%d au total)\n" $c $t (count $cips)
}
var ip4 ip6 = (list:filter $ip:is-ip~ $argv | list:unzip {|_ ip| ip:is-ipv4 $ip})
if (list:is-not-empty $ip4) {
var c t = (add $E:HOME/bad_ips.txt $ip:comp4~ $ip4)
printf "%d IPv4s ajoutées (%d au total)\n" $c $t
add $E:HOME/bad_ips.txt $ip:comp4~ $ip4 IPv4s
}
if (list:is-not-empty $ip6) {
var c t = (add $E:HOME/bad_ipsv6.txt $ip:comp6~ $ip6)
printf "%d IPv6s ajoutées (%d au total)\n" $c $t
add $E:HOME/bad_ipsv6.txt $ip:comp6~ $ip6 IPv6s
}
}