#
#	Generate report template for the respective institution/participant
#
function repchar(s1) {
        s2=""
        for (i=1; i<=length(s1); i++) {
          s = index(" /().'",substr(s1,i,1))>0 ? "_" : substr(s1,i,1)
          s2 = s2 s
          }
        return s2
        }
BEGIN	{
	FS=";"

        InstType["NatLib"] = "National Library"
        InstType["UniLib"] = "University Library"
        InstType["ResLib"] = "Research Library"
        InstType["Library"] = "Other Library"
        InstType["Consort"] = "Consortium"
        InstType["SWDevelop"] = "Software Developer"
        InstType["Ministry"] = "Ministry/Government"
        InstType["Consult"] = "Consultant"
        InstType["Other"] = "Other"

	filename= "/www/www-data/elag2001/Templates/" par ".html"

#  read in the header
	while (getline < "/www/www-data/elag2001/RepHead.html" != 0) Head[++Nhdln] = $0
	close "/www/www-data/elag2001/RepHead.html"

#  read in the footer
	while (getline < "/www/www-data/elag2001/RepFoot.html" != 0) Foot[++Nftln] = $0
	close "/www/www-data/elag2001/RepFoot.html"
#
	"date +'%d-%m-%Y'" | getline DCdate
	}

	{
	RepCode = repchar(substr($12,1,10) substr($5,1,25))
	RepAuth = repchar(substr($2,1,5) substr($3,1,5))
	if ( (RepCode == par) && (RepAuth == auth) ) {
# start creating page
       for (i=1; i<=Nhdln; i++) {
          line = Head[i]
          if (index(line, "__title__")) sub("__title__", "ELAG 2001 - Progress Report of the " $5, line)
          if (index(line, "__date__")) sub("__date__", DCdate, line)
          if (index(line, "__name__")) sub("__name__", $2 " " $3, line)
          if (index(line, "__inst__")) sub("__inst__", $5, line)
          print line
	}
	print "<h2>" $5 " Progress Report 2001</h2><ol>"
	print "<h3><li>Institution</h3> " $5 "<br>" $8
	if ($9) print ", POB " $9
	print "<br>" $10 ",&nbsp;&nbsp;" $11 "&nbsp;&nbsp;" $12
	print "<p><b> ELAG Contact Person</b>:<br>" $1 "&nbsp;" $2 "&nbsp;" $3
	if ($4) print " (" $4 ")"
	print ", <a href=\"mailto:" $15 "\">" $15 "</a> , phone:" $13 
	if ($14) print ", fax:" $14 
	print "<p><b>Institution Type</b>: " InstType[$6] "<p><b>Mission Statement</b><br>"
	print "<!-- Please enter your mission statement below -->\n"
        print "<p><h3><li>Computer networks and Internet connectivity</h3>"
	print "<!-- Please tell your colleagues about your network type, protocols used, services provider , telecommunication equipment used, etc. below -->\n"
	print "<ol type=a><h4><li>In general HW, SW</h4>"
	print "<h4><li>New HW, SW; connectivity upgrades</h4>"
	print "</ol><br>"
        print "<h3><li>Library automation</h3>"
	print "<!-- Please tell your colleagues below what library automated system you use, what hardware you use to run it and which unusual modules do you use or develop -->\n"
	print "<ol type=a>"
	print "<h4><li>In general HW/SW</h4>"
	print "<h4><li>New HW, SW, other</h4>"
	print "</ol>"
        print "<h3><li>Union Catalogue</h3>"
	print "<!-- If you run a Union Catalogue, please specify which software you use and which interesting features are linked to your UC -->"
	print "<!-- If you do not run a Union Catalogue, please delete this list item -->\n"
	print "<ol type=a>"
	print "<h4><li>Software used</h4>"
	print "<h4><li>New features</h4>"
	print "</ol>"
        print "<h3><li>Digital Library</h3>"
	print "<!-- If you run a Digital Library, please tell us more in following list items -->\n"
	print "<ol type=a>"
	print "<h4><li>Based on your own production of digital documents</h4>"
	print "<h4><li>If so, what is new in your digitization programmes?</h4>"
	print "<h4><li>Based on external sources</h4>"
	print "<h4><li>Important commercial web services accessible to your users</h4>"
	print "</ol>"
        print "<h3><li>New in-house databases</h3>"
	print "<!-- Any interesting databases? -->\n"
        print "<h3><li>Special web services</h3>"
	print "<!-- Something nobody else has? Or much better than any other place? -->\n"
        print "<h3><li>Electronic document delivery services</h3>"
	print "<!-- Do you have or plan EDD? How do you fight EU Copyright Directive? -->\n"
        print "<h3><li>Research and technology development projects</h3>"
	print "<!-- Any other interesting R&D projects? -->\n"
        print "<h3><li>Other important projects</h3>"
	print "<!-- Anything else you wish others to know about your library? -->\n"
	print "</ol>" 
	print "<p><i>Reported by " $2 " " $3
	print "&lt;<a href=\"mailto:" $15 "\">" $15 "</a>&gt;"
	print "<!-- You are welcome to enter any earlier real date :-) -->\n"
	print "<p>Your_home, 24 April 2001</i>"
#  close the main table
	print "</div></td></tr>"

#  insert the footer
	for (i=1; i<=Nftln; i++) print Foot[i]
	print "</font>"

	"date " | getline timestamp
	print "<font face=\"Tahoma, Arial, Garamond\" size=\"-2\">&nbsp;&nbsp;&nbsp;Generated: " timestamp "</font>"

	print "</body>\n</html>\n"

#  Create a permanent template copy
       for (i=1; i<=Nhdln; i++) {
          line = Head[i]
          if (index(line, "__title__")) sub("__title__", "ELAG 2001 - Progress Report of the " $5, line)
          if (index(line, "__date__")) sub("__date__", DCdate, line)
          if (index(line, "__name__")) sub("__name__", $2 " " $3, line)
          if (index(line, "__inst__")) sub("__inst__", $5, line)
          print line > filename
	}

	print "<h2>" $5 " Progress Report 2001</h2><ol>" > filename
	print "<h3><li>Institution</h3> " $5 "<br>" $8 > filename
	if ($9) print ", POB " $9 > filename
	print "<br>" $10 ",&nbsp;&nbsp;" $11 "&nbsp;&nbsp;" $12 > filename
	print "<p><b> ELAG Contact Person</b>:<br>" $1 "&nbsp;" $2 "&nbsp;" $3 > filename
	if ($4) print " (" $4 ")" > filename
	print ", <a href=\"mailto:" $15 "\">" $15 "</a> , phone:" $13  > filename
	if ($14) print ", fax:" $14  > filename
	print "<p><b>Institution Type</b>: " InstType[$6] > filename
	print "<p><b>Mission Statement</b><br>" > filename
	print "<!-- Please enter your mission statement below -->\n" > filename
	print "<p><h3><li>Computer networks and Internet connectivity</h3>" > filename
	print "<!-- Please tell your colleagues about your network type, protocols used, services provider , telecommunication equipment used, etc. below -->\n" > filename
	print "<ol type=a><h4><li>In general HW, SW</h4><h4><li>New HW, SW; connectivity upgrades</h4>" > filename
	print "</ol><br>" > filename
	print "<h3><li>Library automation</h3>" > filename
	print "<!-- Please tell your colleagues below what library automated system you use, what hardware you use to run it and which unusual modules do you use or develop -->\n" > filename
	print "<ol type=a>" > filename
	print "<h4><li>In general HW/SW</h4>" > filename
	print "<h4><li>New HW, SW, other</h4>" > filename
	print "</ol>" > filename
	print "<h3><li>Union Catalogue</h3>" > filename
	print "<!-- If you run a Union Catalogue, please specify which software you use and which interesting features are linked to your UC -->" > filename
	print "<!-- If you do not run a Union Catalogue, please delete this list item -->\n" > filename
	print "<ol type=a>" > filename
	print "<h4><li>Software used</h4>" > filename
	print "<h4><li>New features</h4>" > filename
	print "</ol>" > filename
	print "<h3><li>Digital Library</h3>" > filename
	print "<!-- If you run a Digital Library, please tell us more in following list items -->\n" > filename
	print "<ol type=a>" > filename
	print "<h4><li>Based on your own production of digital documents</h4>" > filename
	print "<h4><li>If so, what is new in your digitization programmes?</h4>" > filename
	print "<h4><li>Based on external sources</h4>" > filename
	print "<h4><li>Important commercial web services accessible to your users\n</ol></h4>" > filename
	print "<h3><li>New in-house databases</h3>" > filename
	print "<!-- Any interesting databases? -->\n" > filename
	print "<h3><li>Special web services</h3>" > filename
	print "<!-- Something nobody else has? Or much better than any other place? -->\n" > filename
	print "<h3><li>Electronic document delivery services</h3>" > filename
	print "<!-- Do you have or plan EDD? How do you fight EU Copyright Directive? -->\n" > filename
	print "<h3><li>Research and technology development projects</h3>" > filename
	print "<!-- Any other interesting R&D projects? -->\n" > filename 
	print "<h3><li>Other important projects</h3>" > filename
	print "<!-- Anything else you wish others to know about your library? -->\n" > filename
	print "</ol>"  > filename
	print "<p><i>Reported by " $2 " " $3 > filename
	print "&lt;<a href=\"mailto:" $15 "\">" $15 "</a>&gt;" > filename
	print "<!-- You are welcome to enter any earlier real date :-) -->\n" > filename
	print "<p>Your_home, 24 April 2001</i>" > filename

#  close the main table
	print "</div></td></tr>" > filename

#  insert the footer
	for (i=1; i<=Nftln; i++) print Foot[i] > filename
	print "</font>" > filename

	"date " | getline timestamp
	print "<font face=\"Tahoma, Arial, Garamond\" size=\"-2\">&nbsp;&nbsp;&nbsp;Generated: " timestamp "</font>" > filename

	print "</body>\n</html>\n" > filename
	close filename

#  insert Template code & Author name to CountryInst.csv
	filename = "/www/www-data/elag2001/CountryInst.csv"
	while (getline < filename != 0) {
	  ReportStatus[$1] = $2
	  ReportAuthor[$1] = $3
	  }
	close filename

	ReportStatus[par] = "T"
	ReportAuthor[par] = RepAuth

	system ("cp " filename " " filename "~")

	for (i in ReportStatus) print i ";" ReportStatus[i] ";" ReportAuthor[i] > filename
	close filename

	system ("sort -o " filename " " filename)
	}
	}