- s:^([A-Z].*)$:024 \1:p;
- ' \
- |sort |while read -r line; do
- case "$line" in
- 00[012]*)
- echo -E "$line"
- ;;
- 003*)
- fn=$(echo -E "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r')
- ;;
- 004*)
- n=$(echo -E "$line" \
- |sed -rn 's:^([0-9]{3} )([^;\:]+)(;[^"\:]+|;"[^"]+")*\:([^;]*)(\;[^;]*)(\;[^;]*)?(\;[^;]*)?(\;[^;]*)?$:\7 \5 \6 \4 \8:gp' \
- |sed -r 's:,: :;s:\;: :g;s: +: :g' \
- |tr -d '\r'
- )
- echo -E "$line"
- ;;
- 005*)
- nick=$(echo -E "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r')
- echo -E "$line"
- ;;
- *)
- [ -n "$n" ] && fn="$n"
- #[ -n "$fn" -a -n "$nick" ] && fn="$fn aka. $nick"
- [ -n "$fn" ] && echo -E "003 FN:$fn" \
- || echo -E "003 FN:$nick"
- echo -E "$line"
- cat
- ;;
- esac
- done |tr -d '\r' \
- | sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:key="\1"\nvalue="\3"\ntag=\2:g' \
- | while read -r line; do
- case "$line" in
- key=*) echo -E "$line"
- ;;
- value=*) echo -E "$line"
- ;;
- tag=*) ot=''
- echo -E "$line" \
- | sed -r 's:^tag=::;s:\;([A-Z+_-]+="[^"]+"|[A-Z+_-]+=[^\;]+):\n\1:g;' \
- | sed -r 's:([A-Z+_-]+)="?(.*)"?:tag\[\1\]="\2":g' \
- | sed -r '/^ *$/d' \
- | sort |while read -r tag; do
- nt="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\1:')"
- nv="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\2:')"
- [ "$nt" = "$ot" ] && vl="$nv,$vl" || vl="$nv"
- echo -E "tag[$nt]=\"$vl\""
- ot="$nt"
- done
- ;;
- esac
- done \
- | sed -r 's:[\\$`]:\\&:g'
+ # === Update obsolete LABEL property ===
+ s;^LABEL((\;[a-zA-Z0-9-]+|\;[a-zA-Z0-9-]+=([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*)*):(.*)$;ADR\1\;LABEL="\5":;;
+
+ /^([a-zA-Z0-9-]+)((\;[a-zA-Z0-9-]+=?|\;[a-zA-Z0-9-]+=([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*)*):(.*)$/{
+ h;
+ s;^([a-zA-Z0-9-]+)((\;[a-zA-Z0-9-]+=?|\;[a-zA-Z0-9-]+=([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*)*):(.*)$;key='\''\1'\'';;
+ H; g;
+ s;^([a-zA-Z0-9-]+)((\;[a-zA-Z0-9-]+=?|\;[a-zA-Z0-9-]+=([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*)*):([^\n]*)\n.*$;\6;;
+ s;'\'';'\'\\\\\'\'';g
+ s;^.*$;value='\''&'\'';
+ H; g;
+ s;^([a-zA-Z0-9-]+)((\;[a-zA-Z0-9-]+=?|\;[a-zA-Z0-9-]+=([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*)*):([^\n]*)\n.*$;\2;;
+ s;'\'';'\'\\\\\'\'';g
+ s;\;([a-zA-Z0-9-]+)(=|=(([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*))?;\ntag[\1]='\''\3'\'';g
+ H; g;
+ s;^[^\n]*[\n ]+;;
+
+ s;\n[\n ]+;\n;g; s;\n$;;;
+
+ p;
+ }
+ '