[ "$1" = "" ] && exit 
f=`date`
BASE=
APPLDIR=/ptovt
DATADIR=/usr/ptovt
PATH=$PATH:/ihd/bin:/ptovt/bin:.
export APPLDIR DATADIR PATH
DOMAIN=..
WEBDIR=/var/www/base
BASEDIR=$WEBDIR
[ -d $BASEDIR ] || mkdir $BASEDIR
CGIDIR=$WEBDIR/cgi-bin
[ -d $CGIDIR ] || mkdir $CGIDIR
html=$BASEDIR/$1.htm
cgi=$CGIDIR/$1.cgi
gget=$CGIDIR/$1""get.cgi
list=$CGIDIR/$1""list.cgi
bsc=$CGIDIR/$1""bsc.cgi
shh=$APPLDIR/sh/$1
[ -f $APPLDIR/etc/$1/functions ] && fun=$APPLDIR/etc/$1/functions
[ -f $APPLDIR/etc/$1/javascripts ] && jav=$APPLDIR/etc/$1/javascripts
[ -f $APPLDIR/etc/$1/submit ] && sub=$APPLDIR/etc/$1/submit
[ -f $APPLDIR/etc/$1/flags ] && fla=$APPLDIR/etc/$1/flags
t1=/tmp/t1
t2=/tmp/t2
t3=/tmp/t3
t4=/tmp/t4
t5=$APPLDIR/$1/tf
cd $DATADIR/forms
hdsort /IHD/forms/forms h00: h01: h02: h03: h04: d01: d02: d03: d04: d05: d06: d07: d08: d00 |
awk -F: ' "'"$1"'" != $1 { next }
{ print > "'"$t3"'" }
{ print $7 > "'"$t2"'" }
x=="" {printf "%s:%s:%s:%s:%s",$1,$2,$3,$4,$5 ;x=1}
x!="" && $10=="  " { print "" }
{printf "%s%s:%s:%s:%s:",$NF,$7,$8,$9,$11} ' > $t1
[ -f $t5 ] || cp $t2 $t5
LL=`awk -F: ' { print $4 ;exit} ' $t3 `
PG=`awk -F: ' { print $5 ;exit} ' $t3 `
awk -F: ' $8+0 > 54 {
r0=$11
r1=$9
r2="'"$APPLDIR"'/"r0"/"r0".t0"
r3=$12
print r2
r4="/tmp/"r0
file="'"$DATADIR"'/"$11"/HEAD"
	fl=1
	x1=1
	while (( getline < r2 ) > 0)
	{
		if ($1==r3 ) x2=$2
		if ($1!=r3 && fl) x1+=$2
		else fl=0
		print ":"r3":"$1":"x2":"x1
	}
	close(r2)
	while (( getline < file ) > 0)
	print substr($0,1,r1)":"substr($0,x1,x2) > r4
	#command=sprintf ("sort -t: +1 %s -o %s",r4,r4)
	#command | getline
	
} ' $t3
awk -F: ' BEGIN { dflag="";rf=0
fun="'"$fun"'"
if(fun != "")
	while (( getline < fun ) > 0)
	{
		if($1=="D")
		{
			fncd[$2]=$3
			#print >"/dev/tty"
		}
		else if(NF>3) fnch[$2+0]=$3":"$4
		else fnch[$2+0]=$3
	}
alig["01"]="; text-align:right" }
NR==1 {
field=$1
print ""
print "<html>"
print ""
print "<head>"
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">"
print "<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 5.0\">"
print "<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">"
printf "<title>%s</title>\n",$2
print ""
print ""
print ""
print "</head>"
print ""
print ""
print "<body bgcolor=\"#D9CEF4\">"
print ""
print "<center>"
printf "<form name=\"%sform\" method=\"post\" onsubmit=\"swapin()\" action=\"%s/cgi-bin/%s.cgi\">\n",$1,"'"$DOMAIN"'",$1
print "<hr width=\"800\" color=\"#C0C0C0\">"
print "<table border=\"1\" cellspacing=\"0\" cellpadding=\"0\">"
print ""
print "<tr bgcolor=\"#003399\">"
print "<td colspan=4 bgcolor=\"#003399\">"
print "<p align=\"right\" style=\"margin-top: 0; margin-bottom: 0\"><font color=\"#FFFF00\">"
printf "<img border=\"0\" src=\"%s/logo.jpg\" align=\"left\" height=\"67\"\n>","'"$DOMAIN"'"
print "</font><b><font color=\"#FFFF00\" face=\"arial, helvetica\" size=\"5\">&nbsp;&nbsp; </font></b></p>"
print "<p align=\"center\" style=\"margin-top: 0; margin-bottom: 0\"><b>"
printf "<a href=\"%s/%s.htm\"><font color=\"#FFFF00\">\n","'"$DOMAIN"'",$1
print "<font color=\"#FFFF00\" face=\"Arial\" size=\"6\">"
printf "&nbsp;%s&nbsp;</font><font color=\"#FFFF00\" face=\"arial, helvetica\" size=\"5\"></font></a></b></p>\n",trail($2)
print "</td>"
print "</tr>"
next
}
substr($1,1,1)=="D" {
if(dflag=="")
{
	dd=0
	dflag=1
	printf "</table>\n"
print "<table border=\"1\" cellpadding=\"0\" bordercolor=\"#999999\">"
print "<tr>"
 tittle("#")
}
doc0[dd]=$2
doc1[dd]=$3
doc2[dd]=$4
if($2!=15)
 tittle(trail(substr($1,2)))
 dd++
 next
}
function tittle (tit)
{
print "<td bordercolor=\"#C0C0C0\" bgcolor=\"#003399\" align=\"center\">"
printf "<font face=\"Tahoma\" size=\"2\" color=\"#FFFFFF\"><b>%s</b></font>\n",toupper(tit)
print "</td>"
}
NF==5 { singlef(substr($1,2),$2,$3,trail($4)) ; next }
{ doubf(substr($1,2),$2,$3,trail($4),substr($5,2),$6,$7,trail($8)) }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
function docline(name,type,len,file)
{
#print "<p><td bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"23\" colspan=\"3\">"
if (type ==15) printf "<input type=\"hidden\" name=\"DOC%s%s\">\n",field,name
else if (type==16) printf "<td><p><input type=\"button\" style=\"font-family: Arial; font-size: 8pt\" size=\"%s\" name=\"DOC%s%s\" %s %s %s></p>\n",len,field,name,alig[type],sprintf(fncd[substr(name,3)],substr(name,1,2)+0,substr(name,1,2)+0),sprintf(fncd[name],substr(name,1,2)+0,substr(name,1,2)+0)
else if (type <50) printf "<td><p><input type=\"text\" style=\"font-family: Arial; font-size: 8pt %s\" size=\"%s\" name=\"DOC%s%s\" maxlength=\"%d\"%s %s></p>\n",alig[type], len,field,name,len,sprintf(fncd[substr(name,3)],substr(name,1,2)+0,substr(name,1,2)+0),sprintf(fncd[name],substr(name,1,2)+0,substr(name,1,2)+0)
else if (type <54)
{
	filer="sort '"$DATADIR/"'"file"/HEAD "
	#print "name="name"  field="field >"/dev/tty"
	printf "<td>\n<p><select name=\"DOC%s%s\" style=\"font-family: Arial; font-size: 8pt\" %s %s>\n",field,name,sprintf(fncd[substr(name,3)],substr(name,1,2)+0,substr(name,1,2)+0),sprintf(fncd[name],substr(name,1,2)+0,substr(name,1,2)+0)
	print "<option value=\"\">"
	#print "<option value=\" \">MOSTRAR"
	while (( filer | getline linex  ) > 0) 
	printf "<option value=\"%s\">%s\n",linex,trail(linex)
	close(filer)
	printf "</select></p>\n</td>\n"
}
else
{
	filer="sort -t: -k2 /tmp/"file
	#print "name="name"  field="field" fncd="fncd["00"] >"/dev/tty"
	printf "<td>\n<p><select name=\"DOC%s%s\" style=\"font-family: Arial; font-size: 8pt\" %s %s>\n",field,name,sprintf(fncd[substr(name,3)],substr(name,1,2)+0,substr(name,1,2)+0),sprintf(fncd[name],substr(name,1,2)+0,substr(name,1,2)+0)
	print "<option value=\"\">"
	#print "<option value=\" \">MOSTRAR"
	while (( filer | getline ) > 0) 
	printf "<option value=\"%s\">%s\n",trail($1),trail($2)
	close(filer)
	printf "</select></p>\n</td>\n"
}
print "</td>"
return (1)
}
function singlef(name,type,len,file)
{
if (type!=15)
{
	print "<tr>"
	print "<td align=\"right\" bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"23\">"
	printf "<b><font face=\"arial, helvetica\" size=\"-1\">&nbsp;%s:</b></font>\n",trail(name)
	print "</td>"
	print "<td bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"23\" colspan=\"3\">"
}
if (type>9 && type <15) printf "<textarea cols=\"%s\"  name=\"%sH%.2d\" rows=\"%d\">\n</textarea>\n",len*3,field,rf++,type-9
else if(type==15)  printf "<input type=\"hidden\" name=\"%sH%.2d\">\n",field,rf++
else if (type==16) printf "<input type=\"button\" name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" size=\"%s\" %s %s>\n",field,rf,len,fnch[rf++],alig[type]
else if (type <50) printf "<input type=\"text\" name=\"%sH%.2d\" OnChange=\"chng(%d)\" style=\"font-family: Arial; font-size: 8pt %s\" size=\"%s\" maxlength=\"%s\" %s>\n",field,rf,rf,alig[type],len,len,fnch[rf++]
else if (type <54)
{
	filer="sort '"$DATADIR/"'"file"/HEAD "
	printf "<select name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" OnChange=\"chng(%d)\">\n",field,rf,rf++
	print "<option value=\"\">"
	print "<option value=\" \">MOSTRAR"
	while (( filer | getline linex) > 0) 
	printf "<option value=\"%s\">%s\n",linex,trail(linex)
	close(filer)
	printf "</select>\n"
}
else
{
	filer="sort -t: -k2 /tmp/"file" "
	printf "<select name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" OnChange=\"chng(%d)\">\n",field,rf,rf++
	print "<option value=\"\">"
	print "<option value=\" \">MOSTRAR"
	while (( filer | getline) > 0) 
	printf "<option value=\"%s\">%s\n",trail($1),trail(substr($2,1,35))
	close(filer)
	printf "</select>\n"
}
if(type!=15)
{
	print "</td>"
	print "</tr>"
}
else type=""
return (1)
}
function doubf(name1,type1,len1,file1,name2,type2,len2,file2)
{
print "<tr>"
print "<td align=\"right\" bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"22\">"
printf "<b><font face=\"arial, helvetica\" size=\"-1\">&nbsp;%s:</b></font>\n",trail(name1)
print "</td>"
print "<td bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"22\">"
if (type1>9 && type1 <15) printf "<textarea cols=\"%s\"  name=\"%sH%.2d\" rows=\"%d\">\n</textarea>\n",len1,field,rf++,type1-9
else if (type1 <50) printf "<input type=\"text\" name=\"%sH%.2d\" OnChange=\"chng(%d)\" style=\"font-family: Arial; font-size: 8pt %s\" size=\"%s\" maxlength=\"%s\" %s>\n",field,rf,rf,alig[type1],len1,len1,fnch[rf++]
else if (type1 <54)
{
	filer="sort '"$DATADIR/"'"file1"/HEAD "
	printf "<select name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" OnChange=\"chng(%d)\">\n",field,rf,rf++
	print "<option value=\"\">"
	print "<option value=\" \">MOSTRAR"
	while (( filer | getline linex ) > 0) 
	printf "<option value=\"%s\">%s\n",linex,trail(linex)
	close(filer)
	printf "</select>\n"
}
else
{
	filer="sort -t: -k2 /tmp/"file1
	printf "<select name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" OnChange=\"chng(%d)\">\n",field,rf,rf++
	print "<option value=\"\">"
	print "<option value=\" \">MOSTRAR"
	while (( filer | getline) > 0) 
	printf "<option value=\"%s\">%s\n",trail($1),trail(substr($2,1,35))
	close(filer)
	printf "</select>\n"
}
print "<td bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"22\">"
printf "<p align=\"right\"><b><font face=\"arial, helvetica\" size=\"-1\">&nbsp;%s:</font></b></td>\n",trail(name2)
print "<td bordercolor=\"#FFFFFF\" bgcolor=\"#DCDCDC\" height=\"22\">"
if (type2>9 && type2 <15) printf "<textarea cols=\"%s\"  name=\"%sH%.2d\" rows=\"%d\">\n</textarea>\n",len2,field,rf++,type2-9
else if (type2 <50) printf "<input type=\"text\" name=\"%sH%.2d\" OnChange=\"chng(%d)\" style=\"font-family: Arial; font-size: 8pt %s\" size=\"%s\" maxlength=\"%s\" %s>\n",field,rf,rf,alig[type2],len2,len2,fnch[rf++]
else if (type2 <54)
{
	filer="sort '"$DATADIR/"'"file2"/HEAD"
	printf "<select name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" OnChange=\"chng(%d)\">\n",field,rf,rf++
	print "<option value=\"\">"
	print "<option value=\" \">MOSTRAR"
	while (( filer | getline linex ) > 0) 
	printf "<option value=\"%s\">%s\n",linex,trail(linex)
	close(filer)
	printf "</select>\n"
}
else
{
	filer="sort -t: -k2 /tmp/"file2
	printf "<select name=\"%sH%.2d\" style=\"font-family: Arial; font-size: 8pt\" OnChange=\"chng(%d)\">\n",field,rf,rf++
	print "<option value=\"\">"
	print "<option value=\" \">MOSTRAR"
	while (( filer | getline) > 0) 
	printf "<option value=\"%s\">%s\n",trail($1),trail(substr($2,1,35))
	close(filer)
	printf "</select>\n"
}

print "</td>"
print "</tr>"
}
END {
print "</tr>"
ff="'"$PG"'"*"'"$LL"'"
for (i=0;i<ff;i++)
{ for (j=0;j<dd;j++) printf "<input type=\"hidden\" name=\"%sD%.2d%.2d\">","'"$1"'",i,j
	print ""
}
if (dd!="")
	for (i=0;i<"'"$LL"'"+0;i++)
{
	r1=1
	print "<tr>"
printf "<td>\n<p><input type=\"text\" readonly ondblClick=\"insert(%d)\" value=\"%.2d\" name=\"T00\" align=\center\" style=\"font-family: Arial; font-size: 8pt;width: 22\"></p>\n</td>\n",i,i+1

for (j=0;j<dd;j++) docline(sprintf("%.2d%.2d",i,j),doc0[j],doc1[j],doc2[j])
	print "</tr>"
}
if (dd=="") r1=4
subm="'"$sub"'"
if(subm != "") { td1=3;td2=dd+r1-6;td3=3 }
else { td1=td3=(dd+r1)/2 }
	printf "</table>\n"
print "<table border=\"1\" cellpadding=\"0\" bordercolor=\"#999999\">"
#print "<tr></tr>"
printf "<td colspan=\"%d\" align=center bgcolor=\"#C0C0C0\" height=\"26\">\n",td1
print "<input type=\"submit\" value=\"Consultar\" name=\"B1\" style=\"font-family: Arial; font-size: 8pt;float: left\">\n"
printf "<input type=\"submit\" value=\"Actualizar\" disabled name=\"B1\" style=\"font-family: Arial; font-size: 8pt;float: left\">\n"
if(subm != "")
{
	printf "<td colspan=\"%d\" align=center bgcolor=\"#C0C0C0\" height=\"26\">\n",td2
	while (( getline < subm ) > 0)
	printf "<input type=\"%s\" value=\"%s\" %s name=\"B1\" style=\"font-family: Arial; font-size: 8pt\" float: %s\" %s>\n",$1,$2,$3,$4,$5
}
if (dd!="")
{
printf "<td colspan=\"%d\" align=center bgcolor=\"#C0C0C0\" height=\"26\">\n",td3
print "<input type=\"button\" value=\"Scroll-up\" OnMouseUp=\"scrollup()\" name=\"B1\" style=\"font-family: Arial; font-size: 8pt; float: right\">\n<input type=\"button\" value=\"Scroll-Down\" OnMouseUp=\"scrolldown()\" name=\"B1\" style=\"font-family: Arial; font-size: 8pt;float: right\">\n</td>"
}
else print "</td>"
fla="'"$fla"'"
if(fla != "")
	while (( getline < fla ) > 0)
	printf "<input type=\"hidden\" name=\"%s\">\n",$1
print "</tr>"
print ""
print "</table>"
print "</body>"
print "<script language=\"Javascript\">"
printf "nhd=%d\n",rf
printf "nrd=%d\n",ff
printf "ncd=%d\n",dd
printf "lin=%d\n","'"$LL"'"
printf "tp=0\n"
printf "swapout()\n"
print "valact()"
print "function valact()"
print "{"
printf "	if (document.%sform.elements[0].value!=\"\")\n","'"$1"'"
printf "	document.%sform.elements[%d].disabled = false\n","'"$1"'",rf+ff*dd+"'"$LL"'"*(dd+1)+1
printf "	else document.%sform.elements[%d].disabled = true\n","'"$1"'",rf+ff*dd+"'"$LL"'"*(dd+1)+1
print "}"
print "function swapout()"
print "{"
print "	lev=tp*ncd"
print "	ind=0"
print "	for(i=0;i<lin*(ncd+1);i++)"
printf "		if (i%%(ncd+1)) document.%sform.elements[nrd*ncd+nhd+i].value=document.%sform.elements[nhd+lev++].value\n","'"$1"'","'"$1"'"
printf "		else document.%sform.elements[nrd*ncd+nhd+i].value= (tp+1+ind < 10 ? %c0%c : %c%c) + (tp+1+ind++)\n","'"$1"'",39,39,39,39
print "}"
print "function swapin()"
print "{"
print "	lev=tp*ncd"
printf "	for(i=0;i<lin*(ncd+1);i++) if (i%%(ncd+1)) document.%sform.elements[nhd+lev++].value=document.%sform.elements[nrd*ncd+nhd+i].value\n","'"$1"'","'"$1"'"
print "}"
print "function scrollup()"
print "{"
print "	swapin()"
print "	tp -=5"
print "	if (tp < 0) tp=nrd-lin"
print "	swapout()"
print "	exswap()"
print "}"
print "function scrolldown()"
print "{"
print "	swapin()"
print "	tp +=5"
print "	if (tp >nrd-lin) tp=0"
print "	swapout()"
print "	exswap()"
print "}"
print "</script>"
printf "<script language=\"Javascript\" src=\"../insert.js\"> </script>\n"
printf "<script language=\"Javascript\" src=\"../brstype.js\"> </script>\n"
printf "<script language=\"Javascript\" src=\"../%s.js\"> </script>\n","'"$1"'"
jav="'"$jav"'"
if(jav != "")
	while (( getline < jav ) > 0)
printf "<script language=\"Javascript\" src=\"../%s\"> </script>\n",$1
print "</form>"
print ""
} ' $t1 >$html
[ "$2" = "" ] &&  rm -f $t1 $t2 $t3 $t4 $t5
[ "$2" = "" ] && exit
[ -f $BASEDIR/$1.js ] || echo "function chng(x) {
if(x==0) valact()
}
function exswap()
{
	return
}" >$BASEDIR/$1.js
awk -F: ' { } END {

print "#!/bin/sh"
print ""
print "# disable filename globbing"
print ""
print " echo Content-type: text/html"
print " echo"
printf "APPLDIR=%s\n","'"$APPLDIR"'"
printf "DATADIR=%s\n","'"$DATADIR"'"
print "PATH=$PATH:/ihd/bin:."
print "export PATH APPLDIR DATADIR"
print "T=/tmp/T$$"
print "T1=/tmp/T1$$"
print "T2=/tmp/T2$$"
#print "T=/tmp/TTT"
#print "T1=/tmp/TTT1"
#print "T2=/tmp/TTT2"
print "splash >$T"
printf "awk -F= %c$0==\"\" { next }\n",39
print "flag!=\"\" && NF==2 { print \"\" ; flag=\"\" }"
print "NF==2 && index($0,\"
\") { printf \"%s\",$0;flag=1; next}"
print "NF==1 && flag!=\"\" { printf \"%s\",$0}"
printf "$2!=\"\" && $1!=\"T00\" %c $T > $T1\n",39

printf "QRY=`awk -F= %c $1== \"B1\" {print $2} %c $T1 `\n",39,39
print "if [ \"$QRY\" = Consultar ]"
print "then"
printf "	COMMAND=`awk -F= %c BEGIN { printf \"/ihd/bin/ihmq %s \" }\n",39,"'"$1"'"
print "	$1!=\"B1\" {"
print "	if (NR==1 && substr($1,length($1)-1) !=\"00\") printf \"H00^ \""
print "	if (substr($1,1,3)==\"DOC\") printf \"D%s^%s \",substr($1,length($1)-1),adv($2)"
print "	else printf \"H%s^%s \",substr($1,length($1)-1),adv($2)"
print "}"
print "function adv(txt) { while (substr(txt,1,1)==\" \") txt=substr(txt,2); return (txt) }"
print "END {"
printf "print \"\" } %c $T1 `\n",39
print "$COMMAND | sort -t\\^ -k2 -k1 -u  >$T2"
printf "NF=`awk %c END { print NR } %c $T2`\n",39,39
print "if [ $NF = 1 ]"
print "then"
printf "		REG=`awk -F\"^\" %c { print $1 } %c $T2`\n",39,39
printf "		%sget.cgi $REG\n","'"$1"'"
print "	else"
printf "	%slist.cgi $T $T2\n","'"$1"'"
print "	fi"
print "fi"
print "if [ \"$QRY\" = Actualizar ]"
print "then"
printf "	COMMAND=`awk -F= %c END { printf \"/ihd/bin/ihmu %s %%s\\n\",\"%c\"$T2\"%c\" } %c `\n",39,"'"$1"'",39,39,39
printf "	awk -F= %c\n",39
printf "\t/%sH/ { printf \"H%%s%%s\\n\",substr($1,length($1)-1),$2 }\n","'"$1"'"
printf "\t/%sD/ { printf \"D%%s%%s\\n\",substr($1,length($1)-3),$2 }\n","'"$1"'"
printf "	%c $T1 > $T2\n",39
print "echo -n \" \" >>$T2"
print "	$COMMAND "
printf "	cat ../%s.htm\n","'"$1"'"
print "fi"
print "rm $T $T1 $T2"
} ' $t1 >$cgi

awk -F: '
$8 +0 >49 && $NF=="H" {  TH[NR]=$9+0 }
$NF=="D" { dnr++ }
$8 +0 >49 && $NF=="D" {  TD[NR]=$9+0 }
END {
printf "APPLDIR=%s\n","'"$APPLDIR"'"
printf "DATADIR=%s\n","'"$DATADIR"'"
print "PATH=$PATH:/ihd/bin:/usr/internet/apache/cgi-bin:."
print "export PATH APPLDIR DATADIR"
printf "%s/sh/%s $1 |\n","'"$APPLDIR"'","'"$1"'"
printf "awk -F\"^\" %c BEGIN {\n",39
for (i in TH) printf "TH[\"%.2d\"]=%s\n",i-1,TH[i]
for (i in TD) printf "TD[\"%.2d\"]=%s\n",i-1,TD[i]
printf "NH=%d\nND=%d\n",NR-dnr,dnr
print "}\n"
print "function trail(txt) { while (substr(txt,length(txt),1)==\" \") txt=substr(txt,1,length(txt)-1); return (txt) }"
print "FILENAME==ARGV[1] && NR==1 { for (i=1;i<=NH;i++) reg[sprintf(\"%.2d\",i-1)]=$i }"
print "FILENAME==ARGV[1] { for (i=NH+1;i<=NF;i++) doc[sprintf(\"%.2d\",NR-1)sprintf(\"%.2d\",i-1-NH)]=$i"
print "next }"
printf "/%sD/ {\n","'"$1"'"
print "m0=$0"
print "m1=\"\""
print "for (i=0;i<ND;i++)"
print "{"
printf "        x=index(m0,\"%sD\")\n","'"$1"'"
print "        y=index(substr(m0,2),\">\")"
print "        re=substr(m0,x+6,4)"
print "        m1=m1\"\"sprintf(\"%s value=\\\"%s\\\"%s\",substr(m0,1,y),trail(doc[re]),substr(m0,y+1,1))"
print "        m0=substr(m0,y+2)"
print "}"
print "print m1"
print "next"
print "}"
printf "/DOC%s/ { print ; next }\n","'"$1"'"
print "/textarea / {"
print "print "
printf "x=index($0,\"%sH\")\n","'"$1"'"
print "re=substr($0,x+6,2)"
print "print trail(reg[re])"
print "next"
print "}"
print "/input type=\\\"hidden/ {"
printf "x=index($0,\"%sH\")\n","'"$1"'"
print "y=index($0,\">\")"
print "re=substr($0,x+6,2)"
print "if (re==\"00\") rdonly=\"readonly\""
print "else rdonly=\"\""
print "printf \"%s value=\\\"%s\\\" %s %s\\n\",substr($0,1,y-1),trail(reg[re]),rdonly,substr($0,y)"
print "next"
print "}"
print "/input type=\\\"text/ {"
printf "x=index($0,\"%sH\")\n","'"$1"'"
print "y=index($0,\">\")"
print "re=substr($0,x+6,2)"
print "if (re==\"00\") rdonly=\"readonly\""
print "else rdonly=\"\""
print "printf \"%s value=\\\"%s\\\" %s %s\\n\",substr($0,1,y-1),trail(reg[re]),rdonly,substr($0,y)"
print "next"
print "}"
printf "/select name=\\\"%sH/ { print\n","'"$1"'"
printf "x=index($0,\"%sH\")\n","'"$1"'"
print "indx=substr($0,x+6,2)"
print "re=substr(reg[indx],1,TH[indx])"
print "while (index($0,\"/select\") ==0 ) "
print "{"
print "	getline"
print "	y=index($0,\">\")"
print "	x=index($0,\"=\")"
print "	if(re==substr($0,x+2,TH[indx])) printf \"%s selected %s\\n\",substr($0,1,y-1),substr($0,y)"
print "	else"
print "	print"
print "}"
print "next } "
print "/Consultar/ {"
print "	y=index($0,\">\")"
print "	printf \"%s disabled %s\\n\",substr($0,1,y-1),substr($0,y)"
print "	next"
print "}"
print "{print}"
printf "%c - ../%s.htm\n",39,"'"$1"'"
} ' $t3 >$gget

awk -F= '
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
BEGIN { 
	file="'"$t5"'"
printf "awk -F= %cBEGIN { \n",39
	while (( getline < file ) > 0) printf "T[\"%.2d\"]=\"%s\"\n",z++,trail(toupper($1))

print "	printf \"%s^\",T[\"00\"]"
printf "}\n"
printf "$2!=\"\" && $1!=\"B1\" && substr($1,length($1)-1)!=\"00\" {\n"
printf "	x=substr($1,length($1)-1)\n"
print "	printf \"%s^\",T[x]"
printf "}\n"
printf "END {\n"
printf "	print \"\"\n"
printf "} %c $1 |\n",39
printf " awk -F\"^\" %c BEGIN {ttop(\"Consulta de Datos\");bgcolor=\"#FFFFFF\"}\n",39
printf "NR==1 { for (i=1; i<NF; i++) labels($i)\n"
printf "print \"</tr>\"\n"
printf "next\n"
printf "}\n"
printf "{ for (i=1; i<NF; i++)if (i==1) boton($i)\n"
printf "else label($i)\n"
printf "print \"</tr>\"\n"
printf "if (NR%%2==0 ) bgcolor=\"#E1E1E1\"\n"
printf "else bgcolor=\"#FFFFFF\"\n"
printf "}\n"
printf "END { foot() } \n"
printf "function boton(value)\n"
printf "{\n"
printf "	print \"<td bgcolor=\\\"#E1E1E1\\\">\"\n"
print "printf \"<p><input type=\\\"submit\\\" style=\\\"width: 120\\\" value=\\\"%s\\\" name=\\\"T02\\\"></p>\\n\",value"
printf "print \"</td>\"\n"
printf "}\n"
printf "function label(value)\n"
printf "{\n"
print "printf \"<td bgcolor=\\\"%s\\\">\",bgcolor"
print "printf \"<p align=\\\"center\\\"><font face=\\\"Arial\\\" size=\\\"3\\\">&nbsp;%s&nbsp;</font></p>\\n\",value"
printf "print \"</td>\"\n"
printf "}\n"
printf "function labels(value)\n"
printf "{\n"
printf "print \"<td bordercolor=\\\"#C0C0C0\\\" bgcolor=\\\"#003399\\\" align=\\\"center\\\">\"\n"
print "printf \"<p align=\\\"center\\\"><b><font color=\\\"#FFFFFF\\\">%s</font></b></p>\\n\",value"
printf "print \"</td>\"\n"
printf "}\n"
printf "function ttop(value)\n"
printf "{\n"
printf "print \"<html>\"\n"
printf "print \"<head>\"\n"
printf "print \"<meta http-equiv=\\\"Content-Type\\\" content=\\\"text/html; charset=windows-1252\\\">\"\n"
printf "print \"<meta name=\\\"GENERATOR\\\" content=\\\"Microsoft FrontPage 4.0\\\">\"\n"
printf "print \"<meta name=\\\"ProgId\\\" content=\\\"FrontPage.Editor.Document\\\">\"\n"
print "printf \"<title>%s</title>\\n\",value"
printf "print \"</head>\"\n"
printf "print \"<center>\"\n"
printf "print \"<body bgcolor=\\\"#D0D0DF\\\">\"\n"
printf "print \"<p align=\\\"center\\\"><img border=\\\"0\\\" src=\\\"%s/logol.jpg\\\" width=\\\"200\\\" height=\\\"97\\\"></p>\"\n","'"$DOMAIN"'"
print "printf \"<H1>Resultado de la B%csqueda</H1>\\n\",250"
printf "print \"<form method=\\\"post\\\" action=\\\"%s/cgi-bin/%sbsc.cgi\\\" name=billform>\"\n","'"$DOMAIN"'","'"$1"'"
printf "print \"<center>\"\n"
printf "print \"<table border=\\\"1\\\" cellspacing=\\\"0\\\" cellpadding=\\\"0\\\" bordercolor=\\\"#999999\\\" height=\\\"50\\\">\"\n"
printf "printf \"<input type=\\\"hidden\\\" value=\\\"Query\\\" name=\\\"B1\\\">\\n\"\n"
printf "print \"<tr>\"\n"
printf "print \"</center>\"\n"
printf "}\n"
printf "function foot()\n"
printf "{\n"
printf "print \"</table>\"\n"
printf "print \"</center>\"\n"
printf "print \"</form>\"\n"
printf "print \"</body>\"\n"
printf "print \"</html>\"\n"
printf "} %c - $2\n",39
printf "awk %c BEGIN {\n",39
printf "print \"</body>\"\n"
printf "print \"</form>\"\n"
printf "print \"<form method=\\\"GET\\\" action=\\\"%s/%s.htm\\\">\"\n","'"$DOMAIN"'","'"$1"'"
printf "printf \"<p align=\\\"center\\\"><input type=\\\"submit\\\" value=\\\"Continuar\\\" name=\\\"B1\\\" style=\\\"width: 200; height: 50; font-weight: bold; font-size: 18pt\\\"></p>\\n\"\n"
printf "print \"</form>\"\n"
printf "print \"</body>\"\n"
printf "print \"</html>\"\n"
printf "exit } %c - $2\n",39
exit
} ' $t1 >$list

awk -F: ' BEGIN {
print "#!/bin/sh"
print ""
print "# disable filename globbing"
print ""
 print "echo Content-type: text/html"
 print "echo"
printf "APPLDIR=%s\n","'"$APPLDIR"'"
printf "DATADIR=%s\n","'"$DATADIR"'"
print "PATH=$PATH:/ihd/bin:/usr/internet/apache/cgi-bin:."
print "export PATH APPLDIR DATADIR"
print "T=/tmp/T$$"
print "splash >$T"
printf "REG=`awk -F= %c $1== \"T02\" {print $2} %c $T `\n",39,39
printf "	%sget.cgi $REG\n","'"$1"'"
print "rm $T"
} ' $t1 >$bsc
/ihd/bin/dss $1 
chmod 755 $html $cgi $gget $list $bsc $shh
chown www-data $html $cgi $gget $list $bsc $shh
#rm -f $t1 $t2 $t3 $t4 $t5
