Šī lapa labāk darbojas, ja pārlūkam ir iespējots JavaScript.
Sākums
Izpētīt
lain.church
Palīdzība
Reģistrēties
Pierakstīties
overflow
/
mariobot
Vērot
1
Pievienot zvaigznīti
0
Atdalīts
0
Kods
Problēmas
0
Izmaiņu pieprasījumi
0
Laidieni
0
Vikivietne
Aktivitāte
Pārlūkot izejas kodu
print status for safebooru request to stdout
master
Brent Gordon
pirms 4 gadiem
vecāks
6a5eee6390
revīzija
e5ecd19676
1 mainītis faili
ar
1 papildinājumiem
un
0 dzēšanām
Dalītais skats
Salīdzināšanas iespējas
Rādīt statistiku
Lejupielādēt ielāpa failu
Lejupielādēt izmaiņu failu
+1
-0
bot.rkt
+ 1
- 0
bot.rkt
Parādīt failu
@@ -27,6 +27,7 @@
(define (search-safebooru)
(define-values (status header response)(http-sendrecv safebooru (string-append "/posts.json?limit=" limit "&page=" page "&tags="tags ) #:ssl? #t))
(displayln status)
(define posts (read-json response))
(list-ref posts pos))
Rakstīt
Priekšskatītījums
Notiek ielāde…
Atcelt
Saglabāt