summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2020-11-22 18:54:58 +0100
committerJohn Ankarström <john@ankarstrom.se>2020-11-23 00:08:13 +0100
commit469143445f6ef32b7dff34a755f1464068db322b (patch)
tree7eda3a9970a65f7b4cab796b5a66d8d384f3e528
parent3537be9e7c578f8ca84e9d420044654577706a11 (diff)
downloadweb-blocket.tar.gz
Add 'blp' toolblocket
This script retrieves the phone number associated with a Blocket.se ad.
-rw-r--r--Makefile4
-rwxr-xr-xblp11
-rw-r--r--blp.135
3 files changed, 48 insertions, 2 deletions
diff --git a/Makefile b/Makefile
index 90e7260..d30a1e6 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
install:
- install blm blq xii /usr/bin/
- install -m 644 blq.1 blm.1 xii.1 /usr/share/man/man1/
+ install blm blp blq xii /usr/bin/
+ install -m 644 blm.1 blp.1 blq.1 xii.1 /usr/share/man/man1/
install -m 644 mboxu.5 /usr/share/man/man5/
diff --git a/blp b/blp
new file mode 100755
index 0000000..8ad30c4
--- /dev/null
+++ b/blp
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+sed -n 's/ID: //p' |
+while read id
+do
+ # Retrieve authorization token
+ tok=`curl -s "https://www.blocket.se/annons/a/b/$id" | awk '/id="initialState"/ {getline; print}' | jq -r .authentication.bearerToken`
+
+ # Retrieve phone number
+ curl -s -H "authorization: Bearer $tok" "https://api.blocket.se/search_bff/v1/content/$id/phone_numbers" | jq -r .phone_number
+done
diff --git a/blp.1 b/blp.1
new file mode 100644
index 0000000..4901b11
--- /dev/null
+++ b/blp.1
@@ -0,0 +1,35 @@
+.Dd $Mdocdate$
+.Dt blp 1
+.Os
+.
+.Sh NAME
+.Nm blp
+.Nd retrieve phone numbers for ads
+.
+.Sh SYNOPSIS
+.Nm
+.
+.Sh DESCIPTION
+.Pp
+.Nm
+retrieves the telephone number attached to Blocket.se ads formatted with
+.Xr blm 1
+on standard input.
+Specifically, it looks for
+.Ql ID
+headers.
+Any line not containing an
+.Ql ID
+header is ignored.
+
+You can pipe a message from
+.Xr mailx 1
+into
+.Nm
+to display the telephone number associated with a given ad.
+.
+.Sh AUTHORS
+.Pp
+.Nm
+is written by John Ankarström
+.Aq Mt john (at) ankarstrom.se .