1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/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 \
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 \
https://bsky.app/profile/aleteoryx.me/lists/3lbnogsl36d2y
puts "imported!"