fix scpt

bin/verse.zsh

@@ -1,17 +1,25 @@
 #!/bin/zsh
 
 function at_env_arg() {
-	handle=syui.syui.ai
-	col=ai.syui.verse.user
-	rkey=self
 	host=syu.is
+	handle=ai.syui.ai
+	col=ai.syui.verse.user
 }
 
 function at_env() {
+
+	if [ -n "$1" ];then
+		handle=$1
+	fi
+	if [ -n "$2" ];then
+		col=$2
+	fi
+
 	d=${0:a:h}
+	cd $d
 	dd=${0:a:h:h}
 	pds=$host
-	f=$d/token.json
+	f=$d/${handle}.json
 	if [ ! -f $f ];then
 		echo password
 		read password
@@ -21,14 +29,17 @@ function at_env() {
 		refresh=`cat $f|jq -r .refreshJwt`
 	fi
 	j_verse=`cat $dd/json/verse.json`
-	j_user=`cat $dd/json/user.json`
+	j_user=`cat $dd/json/${handle}.user.json`
 
 	case $col in
 		ai.syui.verse)
 			j=${j_verse}
+			rkey=self
 			;;
 		ai.syui.verse.user)
 			j=${j_user}
+			rkey=self
+			rkey=`echo $did|cut -d : -f 3`
 			;;
 	esac
 
@@ -82,16 +93,36 @@ function at_put_record() {
 			"rkey": $rkey,
 			"record": $record
 		}')
-
-	echo $json
 	if echo $json|jq . ;then
 		t=`curl -sL -X POST -H "Content-Type: application/json" -H "Authorization: Bearer $access" -d "$json" $url`
 		echo $t|jq .
 	fi
 }
 
+function at_delete_record() {
+	req=com.atproto.repo.DeleteRecord
+	url=https://$pds/xrpc/$req
+	echo collection:
+	read col
+	echo rkey:
+	read rkey
+	json="{\"collection\":\"$col\", \"rkey\":\"$rkey\", \"repo\":\"$handle\"}"
+	if echo $json|jq . ;then
+		t=`curl -sL -X POST -H "Content-Type: application/json" -H "Authorization: Bearer $access" -d $json $url`
+		echo $t|jq .
+	fi
+}
+
 at_env_arg
-at_env
+at_env $1 $2
 at_create_session
 at_refresh_session
-at_put_record
+
+case $1 in
+	d)
+		at_delete_record
+		;;
+	*)
+		at_put_record
+		;;
+esac