Hébergement
Forum
#!/bin/awk -f
BEGIN {
RS="<"
proxy="VOTRE PROXY "
port="ET SON PORT"
}
# <a href="http:// ...
/^(a|A) .*(h|H)(r|R)(e|E)(f|F) *="?http:\/\// {
sub(/^(a|A) .*(h|H)(r|R)(e|E)(f|F) *="?http:\/\//,"",$0)
match($0,/[^" ]+("| )?/)
link = substr($0,RSTART,RLENGTH-1)
sub(/\//," /",link)
links[link]=1
next
}
END {
for ( i in links )
{
system("client " proxy " " port " " i )
getline < "entete"
sub(/n.*$/,"")
print "----> "i " ---------- " $0
close("entete")
}
}