X-Git-Url: http://git.plutz.net/?a=blobdiff_plain;f=list.sh;fp=list.sh;h=65d929a3204bd15967215b0729a9b2e8c6582a52;hb=ccc8de4ebdd18fb52cdb8ce2013573d079186fba;hp=2384da842185b41cc40d2aa6029055de801ad0ae;hpb=2c973a1497b88df3b970b7df316d5ece7730858d;p=serve0

diff --git a/list.sh b/list.sh
index 2384da8..65d929a 100755
--- a/list.sh
+++ b/list.sh
@@ -93,8 +93,12 @@ list_order(){
     sort -k6
   elif [ $ORDER = Group ]; then
     sed -E '
+      /^[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*\r$/bX;
+      /^[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*\r\t\\$/bX;
+      s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t)([^\r]*)\r\t(.*)$;\1\r\3 \2\r\t;;
+      t;
       :X
-      s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^ 0-9]*)-([0-9a-zA-Z_-]{11}\r|ph[0-9a-f]{13}\r|[0-9]{8}\r)(.*)$;\1-\r\3 \2\n;;
+      s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^ 0-9]*)-([0-9a-zA-Z_-]{11}\r|ph[0-9a-f]{13}\r|[0-9]{8}\r)(.*)$;\1-\r\3 \2;;
       t;
       s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^ 0-9]*)([0-9]+)(.*)$;\1\r\3 \2;;
       tX;' \
@@ -113,12 +117,16 @@ list_order(){
       ln="$name"
     done \
     | sort -s -n -k1,1 |sed -E 's;^[0-9]+\t;;;' \
-    | sed -E ':X s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*)\r([^ ]*) ([^ ]+)( .*)?$;\1\3\2\4;; tX'
+    | sed -E '
+      s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t)\r([0-9A-Za-z:=]{16}) ([^ ]+)$;\1\3\r\t\2;; t;
+      :X s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*)\r([^ ]*) ([^ ]+)( .*)?$;\1\3\2\4;; tX
+    '
   elif [ $ORDER = Length ]; then
     sort -sn -k1
   elif [ $ORDER = Date ]; then
     while read -r fm; do
-      fn="$(list_fullname "${fm##*	}")"
+      fn="${fm%${CR}	*}"
+      fn="$(list_fullname "${fn##*	}")"
       printf '%i	%s\n' \
              "$(stat -c %Y "$fn")" "${fm}"
     done \