#!/bin/bash
# Parse Tellico database to BioOSM index.htm
# $1 = tellico .tc file
# Print result to /json/*.json
#
# Creates:
#   (to stdout) HTML file with the map and static entries
#   ./det/ID.htm details of each and every entry
#   ./bioosm.json JSON of all entries
#   ./bioosm.rss updated RSS feed
#   ./plainlog.htm sorted entries for easy human/alg
#



rm -rfv "./det/*"
mkdir -p "./det"

ICON_animalia="animalia.png"
ICON_bacteria="bacteria.png"
ICON_fungi="fungi.png"
ICON_chromista="chromista.png"
ICON_plantae="plantae.svg"
ICON_plostenkoid="plostenkoid.png"
ICON_protista="protista.png"
ICON_biohazard="biohazard.svg"

json=""
geojson=""

rss=$'<?xml version="1.0" encoding="UTF-8" ?>\n'
rss+=$'<rss version="2.0">\n'
rss+=$'<channel>\n'
rss+=$'<title>Brmlab BioOSM RSS feed</title>\n'
rss+=$'<description>New entries in the BioOSM database</description>\n'
rss+=$'<link>https://bioosm.s0c4.net</link>\n'
rss+=$'<lastBuildDate></lastBuildDate>\n'
rss+=$'<pubDate></pubDate>\n'
rss+=$'<ttl>86400</ttl>\n'

# paticka (co, rok, odkaz)
function obioosm () {
 r="<div id='obioosm'><p>Welcome to BioOSM! This site is owned and maintained by members of the <a href='https://brmlab.cz' target='_blank'>hackerspace brmlab</a>. See our wiki page for further <a href='https://brmlab.cz/project/bioosm/start' target='_blank'>details</a><br>License: <a href='https://creativecommons.org/licenses/by-nc-nd/4.0/' target='_blank'>CC BY-NC-ND</a>. In case you have any questions, suggestions, please let us know at bioosm<span id='zavinacvmejlu'></span>s0c4.net.</p><p>To cite any material (including images) in your publication, please use following format: <br><i>Plskova K, Sacha M, brmlab. BioOSM"
	if [[ "$1" != "" ]]; then
		r+=" - $1"
	fi
	r+=". "
	if [[ "$2" != "" ]]; then
		r+="$2. "
	else
		r+="2023. "
	fi
	if [[ "$3" != "" ]]; then
		r+="$3"
	else
		r+="https://bioosm.s0c4.net"
	fi
	r+="</i></p></div>"
	echo "$r"
}

# Return icon by Regnum
function geticon () {
	case "$1" in
		"Animalia")
			echo "$ICON_animalia";;
		"Bacteria")
			echo "$ICON_bacteria";;
		"Fungi")
			echo "$ICON_fungi";;
		"Chromista")
			echo "$ICON_chromista";;
		"Plantae")
			echo "$ICON_plantae";;
		"Protista")
			echo "$ICON_protista";;
		*)
			echo "$ICON_biohazard";;
	esac
}

function safehtml () {
	echo "$1" | sed -e 's/#/%23/g' -e "s/'/\&#39;/g" -e 's/"/\&#34;/g' -e 's/</\&lt;/g' -e 's/>/\&gt;/g' -e 's/^[ ]*//g' -e 's/[ ]*$//g'
}

function getgeo () {
	#g=$(echo "$1 $2" | gdallocationinfo -wgs84 ./geo/eusr5000_600dpi_cesko_8b_geo.tif | grep -v 255 | grep -oPe '[0-9]+$')
	g=$(echo "$1 $2" | gdallocationinfo -wgs84 ./geo/eusr5000_600dpi_cesko_8b_geo.tif | grep -v 255 | grep -oE '[0-9]+$')
	case "$g" in
		"1")
			echo "Fluvial deposits, sediments";;
		"128")
			echo "Weathering residues of different rocks, loess";;
		"130")
			echo "Volcanic rocks";;
		"133")
			echo "Igneous and metamorphic rocks, Palaeozoic sedimentary rocks, loess";;
		"143")
			echo "Loess, igneous and metamorphic rocks";;
		"144")
			echo "Loess, Cretaceous sandstone and marl";;
		"147")
			echo "Igneous, metamorphic and Palaeozoic sedimentary rocks, loess";;
		"148")
			echo "Igneous and metamorphic rocks, loess";;
		"149")
			echo "Igneous and metamorphic rocks, Palaeozoic sedimentary rocks, loess";; # asi fakt stejny jako 133 omg
		"150")
			echo "Igneous and metamorphic rocks, palaeozoic sedimentary rocks";;
		"153")
			echo "Sandy and loamy loess, Tertiary sediments, fluvial deposits";;
		"205")
			echo "Cretaceous and Tertiary flysch, marl, sandstone, limestone";;
		*)
			echo "";;
	esac
}

i=1 # GLOBAL increment must persist multiple spagety() calls; incremented to infinity
# Core function generating entries matching selection criteria (ie Kingdom)
# !!! BEZ ODSAZENI !!!
# $1 = list of entries
# $2 = layer name = JSON filename without suffix
# $3 = icon of the points
function spagety () {

	bylo="" # Minula pozice
	sam="" # HTML samostatneho zaznamu
	osam="" # predchozi $sam
	spoj="" # HTML had z popisu stejnych pozic
	ospoj="" # Predchozi $spoj
	ox="" # Old X
	oy="" # Old Y
	datelog="" # Entries sorted by date for plaintext log
	json="var data='{\"version\":\"$(date --rfc-3339=seconds)\",\"fund\":\"$2\",\"arma\":["
	geojson='{"type":"FeatureCollection","version":"BIOOSM_'
	geojson+="$(date --rfc-3339=seconds)"
	geojson+='","features":['

	while IFS='' read -r radek || [[ -n "$radek" ]]; do
		if [[ "$radek" = "" ]]; then
			continue;
		fi

		entryid=$(echo "$radek" | sed -E 's/^.*<entry id="([0-9]+)">.*$/\1/g;t;d')
		co=$(echo "$radek" | sed -E 's/^.*<title>(.*)<\/title>.*$/\1/g;t;d')
		co=$(safehtml "$co")
		obr=$(echo "$radek" | sed -E 's/^.*<image>(.*)<\/image>.*$/\1/g;t;d' | sed -E 's/^.*\///g')
		kde=$(echo "$radek" | sed -E 's/^.*<locality>(.*)<\/locality>.*$/\1/g;t;d')
		kde=$(safehtml "$kde")
		kdex=$(echo "$kde" | sed -E 's/^[0-9]+\.[0-9]+[, ]*//g;t;d') # keep second part
		kdey=$(echo "$kde" | sed -E 's/[, ]*[0-9]+\.[0-9]+$//g;t;d') # keep first part
		kdy=$(echo "$radek" | sed -E 's/^.*<taken-date>(.*)<\/taken-date>.*$/\1/g;t;d' | sed -E 's/([0-9]+)\.([0-9]+)\.([0-9]{4})/\3-\2-\1/g' | sed -E 's/-([0-9])-/-0\1-/g' | sed -E 's/-([0-9])$/-0\1/g')
		kdy=$(safehtml "$kdy")
		skop_typ=$(echo "$radek" | sed -E 's/^.*<new-field-1>(.*)<\/new-field-1>.*$/\1/g;t;d')
		skop_typ=$(safehtml "$skop_typ")
		skop=$(echo "$radek" | sed -E 's/^.*<microscope>(.*)<\/microscope>.*$/\1/g;t;d')
		skop=$(safehtml "$skop")
		imp=$(echo "$radek" | sed -E 's/^.*<new-field-3>(.*)<\/new-field-3>.*$/\1/g;t;d')
		imp=$(safehtml "$imp")
		reg=$(echo "$radek" | sed -E 's/^.*<new-field-4>(.*)<\/new-field-4>.*$/\1/g;t;d')
		reg=$(safehtml "$reg")
		phy=$(echo "$radek" | sed -E 's/^.*<phylum>(.*)<\/phylum>.*$/\1/g;t;d')
		phy=$(safehtml "$phy")
		cla=$(echo "$radek" | sed -E 's/^.*<class>(.*)<\/class>.*$/\1/g;t;d')
		cla=$(safehtml "$cla")
		ord=$(echo "$radek" | sed -E 's/^.*<order>(.*)<\/order>.*$/\1/g;t;d')
		ord=$(safehtml "$ord")
		fam=$(echo "$radek" | sed -E 's/^.*<family>(.*)<\/family>.*$/\1/g;t;d')
		fam=$(safehtml "$fam")
		gen=$(echo "$radek" | sed -E 's/^.*<genus>(.*)<\/genus>.*$/\1/g;t;d')
		gen=$(safehtml "$gen")
		spe=$(echo "$radek" | sed -E 's/^.*<species>(.*)<\/species>.*$/\1/g;t;d')
		spe=$(safehtml "$spe")
		loc=$(echo "$radek" | sed -E 's/^.*<locality---plaintext>(.*)<\/locality---plaintext>.*$/\1/g;t;d')
		loc=$(safehtml "$loc")
		des=$(echo "$radek" | sed -E 's/^.*<description>(.*)<\/description>.*$/\1/g;t;d')
		des=$(safehtml "$des")
		vid=$(echo "$radek" | sed -E 's/^.*<videolink>(.*)<\/videolink>.*$/\1/g;t;d')
		vid=$(safehtml "$vid")
		bio=$(echo "$radek" | sed -E 's/^.*<biotope>(.*)<\/biotope>.*$/\1/g;t;d')
		bio=$(safehtml "$bio")
		eng=$(echo "$radek" | sed -E 's/^.*<enlargement>(.*)<\/enlargement>.*$/\1/g;t;d')
		eng=$(safehtml "$eng")
		obs=$(echo "$radek" | sed -E 's/^.*<observer>(.*)<\/observer>.*$/\1/g;t;d')
		obs=$(safehtml "$obs")
		lnk=$(echo "$radek" | sed -E 's/^.*<localitylink>(.*)<\/localitylink>.*$/\1/g;t;d')
		lnk=$(safehtml "$lnk")
		har=$(echo "$radek" | sed -E 's/^.*<harvesting-method>(.*)<\/harvesting-method>.*$/\1/g;t;d')
		den=$(echo "$radek" | sed -E 's/^.*<population-density>(.*)<\/population-density>.*$/\1/g;t;d')
		dur=$(echo "$radek" | sed -E 's/^.*<min>(.*)<\/min>.*$/\1/g;t;d')
		lor=$(echo "$radek" | sed -E 's/^.*<locality-reference>(.*)<\/locality-reference>.*$/\1/g;t;d')
		lrl=$(echo "$radek" | sed -E 's/^.*<locality-reference---link>(.*)<\/locality-reference---link>.*$/\1/g;t;d')
		lov=$(echo "$radek" | sed -E 's/^.*<locality---vobrazek>(.*)<\/locality---vobrazek>.*$/\1/g;t;d' | sed -E 's/^.*\///g')
		lov=$(safehtml "$lov")
		cls=$(echo "$radek" | sed -E 's/^.*<cluster>([0-9]*)<\/cluster>.*$/\1/g;t;d')
		mpi=$(echo "$radek" | grep -oe ' <mainpic>yep</mainpic> ')
		elv=$(echo "$kdex $kdey" | gdallocationinfo -wgs84 ./elev/cesko_big.tiff | grep "Value" | grep -oe '[0-9]+$')
		geo=$(getgeo "$kdex" "$kdey")
		gra=$(echo "$radek" | sed -E 's/^.*<grant>(.*)<\/grant>.*$/\1/g;t;d')
		tem=$(echo "$radek" | sed -E 's/^.*<temperature>(.*)<\/temperature>.*$/\1/g;t;d')
		cnd=$(echo "$radek" | sed -E 's/^.*<conductivity>(.*)<\/conductivity>.*$/\1/g;t;d')
		 ph=$(echo "$radek" | sed -E 's/^.*<ph>(.*)<\/ph>.*$/\1/g;t;d')
		kar=$(echo "$radek" | sed -E 's/^.*<karyotype>(.*)<\/karyotype>.*$/\1/g;t;d')
		lid=$(echo "$radek" | sed -E 's/^.*<localityid>(.*)<\/localityid>.*$/\1/g;t;d')

		 #>&2 echo "$co - $har - $den - $dur - $lor - $lrl - $lov - $elv"
		 #continue;

		detid=$(echo "brmlab$co$obr$kde$kdy" | md5sum | grep -oe '[a-zA-Z0-9]*')

		if [[ "$kdex" = "" ]]; then
			>&2 echo -e "\033[31m $lid KDEX '$kde' '$co' \033[0m"
			>&2 echo -e "\033[31m $lid RADEK '$radek' \033[0m"
			continue;
		fi
		zkurvenetellico=$(echo "$obr" | grep -oe '\.[a-zA-Z]*$')
		odkurvenyobr=$(echo "$obr" | sed -e 's/%23/#/g')
		#if [[ "$zkurvenetellico" = ".jpeg" ]]; then
		if [[ ! -f "./img/$odkurvenyobr" ]]; then
			if [[ "$gen" != "negative" ]]; then
				>&2 echo -e "\033[31m $lid OBR $odkurvenyobr $co\033[0m"
				continue;
			fi
		fi
		obr=$(safehtml "$obr")

		if [[ "$spe" = "sp." ]]; then
			wikisp="https://en.wikipedia.org/wiki/$gen"
		else
			wikisp="https://en.wikipedia.org/wiki/$gen $spe"
		fi

		povr=""
		povs=""
		pov=""
		if [[ "$phy" = "Platyhelminthes" ]]; then
			povr=$(cat "./povodi_r.json" | ./povodi.py "$kdey" "$kdex")
			#povrf=$(echo "$povr" | grep -oPe '^[^ ]*' | tr 'e' 'E')
			povrf=$(echo "$povr" | sed -e 's/ .*$//g' | tr 'e' 'E')
			povrn=$(echo "$povr" | sed -e 's/^[^ ]* //g')
			povs=$(cat "./povodi_s.json" | ./povodi.py "$kdey" "$kdex")
			#povsf=$(echo "$povs" | grep -oPe '^[^ ]*' | tr 'e' 'E')
			povsf=$(echo "$povs" | sed -e 's/ .*$//g' | tr 'e' 'E')
			povsn=$(echo "$povs" | sed -e 's/^[^ ]* //g')
			if (( $(echo "$povsf < $povrf" | bc -l) )) ; then
				pov="$povsn - $povrn"
			else
				pov="$povrn"
			fi
		fi

		if [[ "$cls" = "" ]]; then
			cls=0
		fi

		if [[ "$mpi" = "" ]]; then
			mpi=""
		else
			mpi="y"
		fi

		Tjson="{"
		Tjson+=" \"title\":\"$co\"," # qualis
		Tjson+=" \"imperium\":\"$imp\","
		Tjson+=" \"regnum\":\"$reg\","
		Tjson+=" \"phylum\":\"$phy\","
		Tjson+=" \"classis\":\"$cla\","
		Tjson+=" \"ordo\":\"$ord\","
		Tjson+=" \"familia\":\"$fam\","
		Tjson+=" \"genus\":\"$gen\","
		Tjson+=" \"specie\":\"$spe\","
		Tjson+=" \"locality\":\"$kde\"," # locus
		Tjson+=" \"x\":\"$kdex\","
		Tjson+=" \"y\":\"$kdey\","
		Tjson+=" \"locplain\":\"$loc\","
		Tjson+=" \"description\":\"$des\"," # depictio
		Tjson+=" \"takendate\":\"$kdy\"," # quando
		Tjson+=" \"obr\":\"$obr\","
		Tjson+=" \"micro\":\"$skop\","
		Tjson+=" \"microtyp\":\"$skop_typ\","
		Tjson+=" \"videolink\":\"$vid\"," # vid
		Tjson+=" \"biotope\":\"$bio\"," # bio
		Tjson+=" \"enlargement\":\"$eng\"," # amp
		Tjson+=" \"observer\":\"$obs\"," # spec
		Tjson+=" \"detid\":\"$detid\","
		Tjson+=" \"harvestingmethod\":\"$har\"," # har
		Tjson+=" \"populationdensity\":\"$den\"," # den
		Tjson+=" \"min\":\"$dur\"," # dur
		Tjson+=" \"localityreference\":\"$lor\"," # lor
		Tjson+=" \"localityreferencelink\":\"$lrl\"," #lrl
		Tjson+=" \"localityvobrazek\":\"$lov\"," # lov
		Tjson+=" \"localitylink\":\"$lnk\"," # lnk
		Tjson+=" \"cluster\":$cls," # cls
		Tjson+=" \"mainpic\":\"$mpi\"," # mpi
		Tjson+=" \"pov\":\"$pov\","
		Tjson+=" \"elv\":\"$elv\","
		Tjson+=" \"geo\":\"$geo\","
		Tjson+=" \"temperature\":\"$tem\"," # tem
		Tjson+=" \"conductivity\":\"$cnd\"," # cnd
		Tjson+=" \"ph\":\"$ph\","
		Tjson+=" \"karyotype\":\"$kar\"" # kar # Last without ','
		Tjson+="}"

		json+="$Tjson,"
		geojson+='{"type":"Feature","geometry":{"type":"point","coordinates":['
		geojson+="$kdex,$kdey"
		geojson+=']},"properties":'
		geojson+="$Tjson},"

		rss+=$'<item>\n'
		rss+=$'  <title>'"$co"$'</title>\n'
		rss+=$'  <description>'"$des"$'</description>\n'
		rss+=$'  <link>http://brmlab.s0c4.net/bioosm/det/'"$detid"$'.htm</link>\n'
		rss+=$'  <guid isPermaLink="false">'"$detid"$'</guid>\n'
		rss+=$'  <pubDate>'"$kdy"$'</pubDate>\n'
		rss+=$'</item>\n'


		# Generate detail page
		detid=$(echo "brmlab$co$obr$kde$kdy" | md5sum | grep -oe '[a-zA-Z0-9]*')
		detpg="<html><head>"
		detpg+="<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>"
		detpg+="<link rel='stylesheet' href='../style.css' type='text/css'>"
		detpg+="<title>Brmlab - BioOSM $co $kde</title>"

		detpg+="<meta property='og:title' content='BioOSM - $co $kde'>"
		detpg+="<meta property='og:description' content='$obs found $co and took an image and additional notes.'>"
		detpg+="<meta property='og:image' content='https://brmlab.s0c4.net/bioosm/img/$obr'>"
		detpg+="<meta property='og:url' content='https://brmlab.s0c4.net/bioosm/det/$detid.htm'>"
		detpg+="<meta name='twitter:card' content='summary_large_image'>"
		detpg+="<meta name='og:type' content='website'>"
		detpg+="<meta property='og:site_name' content='BioOSM - creatures around us'>"
		detpg+="<meta name='twitter:image:alt' content='Image of $co'>"

		detpg+="</head>"
		if [[ "$cls" != "0" ]]; then
			detpg+="<script src='../bioosmdet.js'></script>"
			detpg+="<script>getJSONarma($cls)</script>"
		fi
		detpg+="<body>"
		detpg+="<table class='dettbl'><tr>"
		detpg+="<h1>$co (<a href='$wikisp' target='_blank'>wiki</a>)</h1>"
		detpg+="<td style='width:33%;vertical-align:top'>"
		if [[ "$imp" != "" ]]; then
			detpg+="<b>Domain:</b> <a href='https://en.wikipedia.org/wiki/$imp' target='_blank'>$imp</a><br>"
		fi
		if [[ "$reg" != "" ]]; then
			detpg+="<b>Kingdom:</b> <a href='https://en.wikipedia.org/wiki/$reg' target='_blank'>$reg</a><br>"
		fi
		if [[ "$phy" != "" ]]; then
			detpg+="<b>Phylum:</b> <a href='https://en.wikipedia.org/wiki/$phy' target='_blank'>$phy</a><br>"
		fi
		if [[ "$cla" != "" ]]; then
			detpg+="<b>Class:</b> <a href='https://en.wikipedia.org/wiki/$cla' target='_blank'>$cla</a><br>"
		fi
		if [[ "$ord" != "" ]]; then
			detpg+="<b>Order:</b> <a href='https://en.wikipedia.org/wiki/$ord' target='_blank'>$ord</a><br>"
		fi
		if [[ "$fam" != "" ]]; then
			detpg+="<b>Family:</b> <a href='https://en.wikipedia.org/wiki/$fam' target='_blank'>$fam</a><br>"
		fi
		if [[ "$gen" != "" ]]; then
			detpg+="<b>Genus:</b> <a href='https://en.wikipedia.org/wiki/$gen' target='_blank'>$gen</a><br>"
		fi
		if [[ "$spe" != "" ]]; then
			detpg+="<b>Species:</b> <a href='$wikisp' target='_blank'>$spe</a><br>"
		fi
		if [[ "$kar" != "" ]]; then
			detpg+="<b>Karyotype:</b> $kar<br>"
		fi
		detpg+="<br>"
		if [[ "$kdy" != "" ]]; then
			detpg+="<b>Date:</b> $kdy<br>"
		fi
		if [[ "$lnk" != "" ]]; then
			loc="<a href=\"$lnk\" target=\"_blank\">$loc</a>" # Yes, escaped "
		fi
		detpg+="<b>Place:</b> $kde ($loc)<br>"
		if [[ "$elv" != "" ]]; then
			detpg+="<b>Elevation:</b> $elv m<br>"
		fi

		if [[ "$obs" != "" ]]; then
			detpg+="<b>Observer:</b> $obs<br>"
		fi
		if [[ "$bio" != "" ]]; then
			detpg+="<b>Biotope:</b> $bio<br>"
		fi
		if [[ "$pov" != "" ]]; then
			detpg+="<b>River:</b> $pov<br>"
		fi
		if [[ "$geo" != "" ]]; then
			detpg+="<b>Bedrock:</b> $geo<br>"
		fi
		if [[ "$tem" != "" ]]; then
			detpg+="<b>Temperature:</b> $tem °C<br>"
		fi
		if [[ "$cnd" != "" ]]; then
			detpg+="<b>Conductivity:</b> $cnd mSv<br>"
		fi
		if [[ "$ph" != "" ]]; then
			detpg+="<b>pH:</b> $ph<br>"
		fi
		detpg+="<span id='microscopeval'>"
		if [[ "$skop" != "" ]]; then
			detpg+="<b>Microscope:</b> $skop ($skop_typ)<br>"
		fi
		detpg+="</span>"
		detpg+="<span id='ampval'>"
		if [[ "$eng" != "" ]]; then
			detpg+="<b>Amplification:</b> $eng<br>"
		fi
		detpg+="</span>"
		if [[ "$vid" != "" ]]; then
			detpg+="<b>Video:</b> <a href=\"$vid\" target=\"_blank\">$vid</a><br>"
		fi
		if [[ "$har" != "" ]]; then
			detpg+="<b>Collecting method:</b> $har<br>"
		fi
		if [[ "$den" != "" ]]; then
			detpg+="<b>Individuals found:</b> $den<br>"
		fi
		if [[ "$dur" != "" ]]; then
			detpg+="<b>Duration on stage:</b> $dur<br>"
		fi
		if [[ "$lrl" != "" ]]; then
			detpg+="<b>Locality reference:</b> <a href=\"$lrl\" target=\"_blank\">$lor</a><br>"
		elif [[ "$lor" != "" ]]; then
			detpg+="<b>Locality reference:</b> $lor<br>"
		fi
		detpg+="<span id='descval'>"
		if [[ "$des" != "" ]]; then
			detpg+="<b>Description:</b> $des<br>"
		fi
		detpg+="</span>"
		detpg+="<br><b>More on <a href=\"../\">BioOSM map</a></b><br>"
		detpg+="<br>"

		lhx=$(echo "$kdex-0.022" | bc)
		lhy=$(echo "$kdey-0.010" | bc)
		pdx=$(echo "$kdex+0.022" | bc)
		pdy=$(echo "$kdey+0.010" | bc)
		detpg+="<iframe id='minimapa' src='https://www.openstreetmap.org/export/embed.html?bbox=$lhx%2C$lhy%2C$pdx%2C$pdy&amp;layer=mapnik&amp;marker=$kdey%2C$kdex'></iframe>"
		detpg+="</td><td style='min-width:66%;vertical-align:top'>"

		if [[ "$obr" != "" ]]; then
			detpg+="<div id='maximatura'><a href=\"../img/$obr\"><img src=\"../img/$obr\" alt=\"$co\" class='detimg'></a></div>"
			detpg+="<div id='miniatury'></div>"
		else
			if [[ "$vid" != "" ]]; then
				detyt=$(echo "$vid" | sed -e 's/youtube.com\/watch?v=/youtube.com\/embed\//g')
				detpg+="<iframe class='detvid' src='$detyt' frameborder='0' allow='encrypted-media' allowfullscreen></iframe>"
			else
				if [[ "$gen" == "negative" ]]; then
					detpg+="<img src=\"../negative.png\" alt=\"Negative observation\" class='detimg'>"
				else
					detpg+="<img src=\"../$3\" alt=\"video\" class='detimg'>"
				fi
			fi
		fi
		if [[ "$lov" != "" ]]; then
			detpg+="<img class=\"detimg\" src=\"../lokality/$lov\" alt=\"Locality photo\"><br>"
		fi

		detpg+="</td></tr></table>"
		detpg+=$(obioosm "$co" "$quando" "https://brmlab.s0c4.net/bioosm/det/$detid.htm")
		detpg+="</body><script>document.getElementById('zavinacvmejlu').innerHTML='@'</script></html>"
		echo "$detpg" > "./det/$detid.htm"

		# Plain log of entries
		datelog+="$kdy $kde <a href='./det/$detid.htm' target='_blank'>$co</a><br>\n"

		>&2 echo -e "\033[32m$lid $co $obs\033[0m"

		ox="$kdex"
		oy="$kdey"

		i=$(($i+1))

	done <<< $(echo "$1") # Zere parametr spaget, nikoli $1 scriptu !!!
	echo -e "$json{}]}" | sed -e "s/^var data='//g" > "./jsonrss/$2.json"
#	echo -e "$json{}]}'"
	echo -e "$geojson{}]}" > "./jsonrss/geo_$2.geojson"

	rss+=$'</channel>\n'
	rss+=$'</rss>\n'
	echo "$rss" > "./jsonrss/$2.rss"

} # KONEC FCE SPAGETY



# Sorted unique Kingdoms (to be passed as selection criteria)
#kingdoms=$(unzip -p "$1" tellico.xml | grep -oe '<new-field-4>.*</new-field-4>' | sed -E 's/( )*<(\/)?new-field-4>( )*//g' | sort | uniq)
kingdoms=$(unzip -p "$1" tellico.xml | sed -E 's/^.*<new-field-4>(.*)<\/new-field-4>.*$/\1/g;t;d' | sort | uniq)

echo '<!DOCTYPE html>'
echo '<html>'
echo '<head>'
echo '	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">'
echo '	<title>brmlab - BioOSM</title>'
echo '	<link rel="stylesheet" href="./style.css" type="text/css">'
echo '	<link rel="favicon" href="./'$ICON_biohazard'">'
echo '	<script src="./OpenLayers.js"></script>'
echo '</head>'
echo '<body>'
# Generate select
echo "<div id='plainlog'><b><a href='./bioosm.rss'>RSS feed</a><br><a href='./plainlog.htm'>Quick news log</a></b></div>"
#echo "<h1 id='title'>BioOSM - arma biologica in tuis vicinia</h1>"
echo "<h1 id='title'>BioOSM - creatures around us</h1>"

ksel="<select id='reg' onChange='genphy()'>"
ksel="$ksel<option value='ALL' selected>ALL</option>"
while IFS='' read -r king || [[ -n "$king" ]]; do
	ksel="$ksel<option value='"$king"'>$king</option>"
done <<< $(echo "$kingdoms")
ksel="$ksel</select>"
echo "Kingdom: $ksel "
echo "Phylum: <select id='phy' onChange='gencla()'><option>ALL</option></select> "
echo "Class: <select id='cla' onChange='genord()'><option>ALL</option></select> "
echo "Order: <select id='ord' onChange='genfam()'><option>ALL</option></select> "
echo "Family: <select id='fam' onChange='gengen()'><option>ALL</option></select> "
echo "Genus: <select id='gen' onChange='genspe()'><option>ALL</option></select>"
echo "Species: <select id='spe' onChange='armageddon()'><option>ALL</option></select>"

echo "<br><input type='button' value='Platyhelminthes' onClick='plostenkoidy()'>"
echo "<label><input type='checkbox' id='studchecker' onChange='studdrv()'>Springs</label>"
#echo "<input type='button' value='Bugs' onClick='buggy()'>"
echo "<form style='display:inline;margin-left:5em'><input type='text' length=10 id='srch'><input type='submit' value='&#x1F50D;' onClick='limit();return false;'></form>"
echo "<br><br><div id='map' class='smallmap'></div>"
echo $(obioosm "" "" "")
echo "</body>"

echo "<script>"
echo 'document.getElementById("zavinacvmejlu").innerHTML="@";'
echo 'map = new OpenLayers.Map("map");'
echo 'map.addLayer(new OpenLayers.Layer.OSM());'
echo 'epsg4326 =  new OpenLayers.Projection("EPSG:4326"); //WGS 1984 projection'
echo 'projectTo = map.getProjectionObject(); //The map projection (Spherical Mercator)'
echo 'var lonLat = new OpenLayers.LonLat(15.478, 49.817).transform(epsg4326, projectTo);'
echo 'var zoom=8;'
echo 'map.setCenter (lonLat, zoom);'

echo 'var vectorLayer = new OpenLayers.Layer.Vector("Overlay",{attribution:"<a href=\"http://brmlab.cz\">Brmlab</a>"});'

echo '// Define markers as "features" of the vector layer:'

echo 'var atol = new OpenLayers.Feature.Vector('
echo '	new OpenLayers.Geometry.Point(14.41876, 50.10554).transform(epsg4326, projectTo),'
echo '		{description:"Atomovy atol Brmkini"} ,'
echo '		{externalGraphic: "./biohazard.svg", graphicHeight:8, graphicWidth:8, graphicXOffset:-4, graphicYOffset:-4},'
echo ');'
echo 'vectorLayer.addFeatures(atol);'
# Sem prijdou dalsi staticke ficury
echo "map.addLayer(vectorLayer);"



# Parse Tellico file to get list of entries
granty=$(unzip -p "$1" tellico.xml | grep "<grant>" | sed -E 's/( )*<(\/)?grant>( )*//g' | sed -E 's/_additional$//g' | sort -u | grep -v "^none$")
#praseTC=$(unzip -p "$1" tellico.xml | tr -d '\n' | sed -e $'s/<entry id="/\\\n<entry id="/g' -e $'s/<\/entry>/<\/entry>\\\n/g' | grep -Pe '^<entry id="' | grep "<strcit-do-mapy>yep</strcit-do-mapy>" | sed -E 's/(^.*)(<locality>.*<\/locality>)(.*$)/\2\1\3/' | sort)
#praseTC=$(unzip -p "$1" tellico.xml | tr -d '\n' | sed -e $'s/<entry id="/\\\n<entry id="/g' -e $'s/<\/entry>/<\/entry>\\\n/g' | grep -Pe '^<entry id="' | sed -E 's/(^.*)(<locality>.*<\/locality>)(.*$)/\2\1\3/' | sort)
praseTC=$(unzip -p "$1" tellico.xml | tr -d '\n' | sed -e $'s/<entry id="/\\\n<entry id="/g' -e $'s/<\/entry>/<\/entry>\\\n/g' | grep -E '^<entry id="' | sed -E 's/(^.*)(<locality>.*<\/locality>)(.*$)/\2\1\3/' | sort)


velkyvepr=$(echo "$praseTC" | grep "<strcit-do-mapy>yep</strcit-do-mapy>")
spagety "$velkyvepr" "bioosm" "$ICON_biohazard"

# VSECHNO i non-public - zakomentuj predchozi "spagety" a odkomunetuj tohle + exit
#spagety "$praseTC" "celytraktor" "$ICON_biohazard" # vsechno i non-public
#exit

while IFS='' read -r grnt || [[ -n "$grnt" ]]; do
 # 'nope' pokud to ma byt jen na grantstrance ale ne ve velkem bioosm
	#vepr=$(echo "$praseTC" | grep -Pe "<strcit-do-mapy>(yep)|(negative)|(nope)</strcit-do-mapy>" | grep -Pe "<grant>$grnt(_additional)?</grant>")
	vepr=$(echo "$praseTC" | grep -E "<strcit-do-mapy>(yep)|(negative)|(nope)</strcit-do-mapy>" | grep -E "<grant>$grnt(_additional)?</grant>")
	spagety "$vepr" "$grnt" "$ICON_biohazard"
done <<< $(echo "$granty")

#echo -e "$json{}]}"
echo '</script>'
echo '<script src="./bioosm.js"></script>' # Must be after JSON
echo "</html>"

# Create plaintext log
dateloghtm="<html><head>"
dateloghtm+="<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>"
dateloghtm+="<link rel='stylesheet' href='./style.css' type='text/css'>"
dateloghtm+="<title>Brmlab - BioOSM plaintext log</title>"
dateloghtm+="</head><body>"
datelogsort=$(echo -e "$datelog" | sort -r | uniq)
dateloghtm+="$datelogsort"
dateloghtm+="</body></html>"
echo "$dateloghtm" > "./plainlog.htm"