produ=./tmp/produ
appl/sh/produ |
awk -F"^" ' BEGIN { print "var und = new Array()\nvar prc = new Array()\n" }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
{
		print "und[\""$1"\"]=\""trail(substr($8,4))"\""
		print "prc[\""$1"\"]=\""trail($11)"\"" 
}
 ' $prods >../js/prod.js

