INFGES=`pwd`/
awk -F">" '
$0=="" { next  } 
/Delivery-date/ { print >"'"$INFGES/DATGES/$1"'" }
/Content-Type: text\/html/ { getline; getline; getline;r=1 }
r=="" { next }
NF==1 { printf "%s",$0 ;next }
{
	#print  "\n=====\nNF="NF"\n"$0"\n================="
	for (i=1;i<NF;i++) printf "%s>\n",$i 
	printf "%s",$NF
}


' tmp/LINT > $INFGES/LINGES/$1 
awk -F">" '
/div dir=3D\"auto\" style=3D\"background-color/   { getline 
if( index($0,"mailto")) getline
rt++
split($0,a,"<") ; print  "T^"rt"^"a[1] }
/selected/ { rs++;split($0,a,"\"") ; print  "S^"rs"^"a[2] }
/checked/ && /Ambulatorio/ { rc++;split($0,a,"\"") ; print "C^"rc"^Ambulatorio" }
/checked/ && /Domicilio/ { rc++;split($0,a,"\"") ; print "C^"rc"^Domicilio" }
/q-text/ { getline;
if( index($0,"mailto")) getline
rt++
split($0,a,"<") ; print  "T^"rt"^"a[1] }

' $INFGES/LINGES/$1 > $INFGES/INFGES/$1
#[ -s $INFGES/LINGES/$1 ] || exit

[ -s $INFGES/INFGES/$1 ] || sh v01 $INFGES/LINGES/$1> $INFGES/INFGES/$1
[ -s $INFGES/INFGES/$1 ] || sh v02 $INFGES/LINGES/$1> $INFGES/INFGES/$1
