Hi
I just did a small patch to allow for reverselookups for swiss numbers. However, i don't know how to bring it into the cvs, so i just post it here, maybe someone could be kind enough to put it into.
thanks anyway.
Niknak
telsearch.sh
------------------------------------------------------------------------------
_reverse_telsearch_request() {
wget "http://tel.search.ch/result.html/?\&tel=$(urlencode "$1")" -q -O -
}
_reverse_telsearch_extract() {
sed -n -e '
\#Keine Einträge gefunden.# q
\#detail# b name
\#raddr# b address
b
: name
s,.*a href=\"\/detail\/.*\">\(.*\)<\/a>.*,\1,
h
b
: address
s#.*\"raddr\">\(.*\).*<\/div>.*#\1#
H
x
s/\n/, /g
p
q
'
}
----------------------------------------------------------------------------------
I just did a small patch to allow for reverselookups for swiss numbers. However, i don't know how to bring it into the cvs, so i just post it here, maybe someone could be kind enough to put it into.
thanks anyway.
Niknak
telsearch.sh
------------------------------------------------------------------------------
_reverse_telsearch_request() {
wget "http://tel.search.ch/result.html/?\&tel=$(urlencode "$1")" -q -O -
}
_reverse_telsearch_extract() {
sed -n -e '
\#Keine Einträge gefunden.# q
\#detail# b name
\#raddr# b address
b
: name
s,.*a href=\"\/detail\/.*\">\(.*\)<\/a>.*,\1,
h
b
: address
s#.*\"raddr\">\(.*\).*<\/div>.*#\1#
H
x
s/\n/, /g
p
q
'
}
----------------------------------------------------------------------------------