1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/bin/env tclsh
if {$argc != 1} { return -code error "Usage: bin/updatelists.tcl DB" }
set uris [lassign $argv db]
cd [file dirname [file dirname [dict get [info frame [info frame]] file]]]
puts "importing rahaeli's lists..."
exec bin/importlist.tcl $db >@stdout \
https://bsky.app/profile/rahaeli.bsky.social/lists/3lbh3ebjhfv24 \
https://bsky.app/profile/rahaeli.bsky.social/lists/3lbgroz3w4c2i \
https://bsky.app/profile/rahaeli.bsky.social/lists/3lasodgegrc2a \
https://bsky.app/profile/rahaeli.bsky.social/lists/3l6do6yblno2a \
https://bsky.app/profile/rahaeli.bsky.social/lists/3l4d4bgyso72w \
https://bsky.app/profile/rahaeli.bsky.social/lists/3l42hr55vwl2o \
https://bsky.app/profile/rahaeli.bsky.social/lists/3l42hebnldp2w \
https://bsky.app/profile/rahaeli.bsky.social/lists/3l42gs6pmns22
puts "imported!"
puts "importing aleteoryx's lists..."
exec bin/importlist.tcl $db >@stdout \
https://bsky.app/profile/aleteoryx.me/lists/3lbnogsl36d2y
puts "imported!"
puts "importing skysentry's lists..."
exec bin/importlist.tcl $db >@stdout \
https://bsky.app/profile/skysentry.bsky.social/lists/3lblifk2bf32f \
https://bsky.app/profile/skysentry.bsky.social/lists/3lbli6wdryl2k \
https://bsky.app/profile/skysentry.bsky.social/lists/3lbli2oiex62h \
https://bsky.app/profile/skysentry.bsky.social/lists/3lblhu3jj5d2p \
https://bsky.app/profile/skysentry.bsky.social/lists/3lblhqcys7h2k \
https://bsky.app/profile/skysentry.bsky.social/lists/3lblhk24wkc2m \
https://bsky.app/profile/skysentry.bsky.social/lists/3lblgs57oei26
puts "imported!"