dbmeta_autogroup(){
sed -E '
+ # strip empty group field
+ s;\r \\$;\r;;
h; # save original dataset
# strip common suffixes of web video sites
s;-([0-9a-zA-Z_-]{11}|ph[0-9a-f]{13}|xh[0-9a-zA-Z]{5}|[0-9]{6,})\r;-\r;;
- # clear branching status
- tBRANCH; :BRANCH
-
# perform auto grouping if group id is missing or empty
- /\r$/bAUTOGROUP; s;\r \\$;\r;; tAUTOGROUP;
+ /\r$/bAUTOGROUP;
# only perform ordering if manual group id is present
/\r .+$/bAUTOORDER;
- b;
+ b; # pass invalid records without processing
:AUTOORDER
# strip all fields but the name