- print "export GIT_"type"_NAME='\''" $3 " " $4 "'\'';"
- print "export GIT_"type"_EMAIL='\''" $5 "'\'';"
- }' ${author_file}
+ match($0, /^[^=]*=\s*([^<]*)<([^>]*)>/, a);
+ name = gensub(/\s+$/, "", "g", a[1]);
+ name = gensub(/^"/, "", "g", name);
+ name = gensub(/"$/, "", "g", name);
+ name = gensub(/'\''/, "'\''\\\\'\'''\''", "g", name);
+ email = a[2];
+ print "export GIT_"type"_NAME='\''" name "'\'';"
+ print "export GIT_"type"_EMAIL='\''" email "'\'';"
+ }' "${author_file}"