Netstrings are simpler than bencode

[paster.git] / contrib / paster.sh

diff --git a/contrib/paster b/contrib/paster.sh
similarity index 51%
rename from contrib/paster
rename to contrib/paster.sh
index 64f8c79aee9dc2617c17b3b8611525b8ab05bcb9..bac1926b0da2c728f4c66be573e6b9b1cb51b4d4 100755 (executable)
--- a/contrib/paster
+++ b/contrib/paster.sh
@@ -1,15 +1,16 @@
 #!/bin/sh -e
 DST=${DST:-nc paster.example.com 2020}
+ext="0:,"
 if [ -s "$1" ]; then
     src="$1"
     bn="${1##*/}"
     _ext="${bn##*.}"
-    [ "$bn" = "$_ext" ] || ext="1:e${#_ext}:$_ext"
+    [ "$bn" = "$_ext" ] || ext="${#_ext}:$_ext,"
 else
     src=`mktemp`
     trap "rm -f $src" HUP PIPE INT QUIT TERM EXIT
     cat > $src
-    [ $# -eq 0 ] || ext="1:e${#1}:$1"
+    [ $# -eq 0 ] || ext="${#1}:$1,"
 fi
-size=`perl -e 'print -s $ARGV[0]' $src`
-( echo -n "d${ext}1:v${size}:" ; cat $src ; echo -n e ) | $DST
+size=$(perl -e 'print -s $ARGV[0]' "$src")
+( echo -n "${ext}${size}:" ; cat "$src" ; echo -n , ) | $DST