dgterritorio: novo incumprimento

http://tcp.dgterritorio.gov.pt/procurar (no fundo) tem exportação
apenas para XLS.

Closes: #45

README.md

@@ -47,6 +47,7 @@ Esta tabela mostra casos de incumprimento do regulamento:
 | https://online.dgo.pt/ | versão insegura de TLS | [protocolo utilizado para https é TLS 1.0](http://online.dgo.pt/) | 2020/03/29 ||
 | http://www.base.gov.pt | erros de configuração de HTTPS | [página de autenticação insegura](https://www.base.gov.pt/idp/Authn/UserPassword) | 2020/03/29 ||
 | http://www2.sg.pcm.gov.pt/ | autenticação sem HTTPS | [página de autenticação insegura](http://www2.sg.pcm.gov.pt/GEUPF/Login.aspx) | 2020/03/29 | [2] |
+| http://tcp.dgterritorio.gov.pt/ | Informação apenas em XLS | [exportação para XLS no final da página](http://tcp.dgterritorio.gov.pt/procurar) | 2020/03/29 ||
 
 Este [template](template.txt) é utilizado pela ANSOL e pela Comunidade LibreOffice Portugal para enviar um pedido de resolução do problema.
 

scripts/44-dgterritorio.sh

@@ -0,0 +1,15 @@
+#!/bin/bash
+
+wget http://tcp.dgterritorio.gov.pt/procurar -o /dev/null -O -| hxnormalize -x -l 10000|hxselect .feed-icon > xls
+if [ ! "$(diff xls scripts/44/xls|wc -l)" -eq "0" ]; then
+	echo "dgterritorio: incumprimento pode já não existir";
+else
+	echo "dgterritorio: Incumprimento mantém-se, a actualizar o README (faça um git diff, valide, e commit!)";
+	while IFS='' read -r line || [[ -n "$line" ]]; do
+		test "$(echo "$line"|grep -v -c "dgterritorio")" -eq "1" \
+			&& echo "$line" \
+			|| (h=$(echo "$line"|cut -d\| -f1-4); t=$(echo "$line"|cut -d\| -f6-); echo "$h| $(date +%Y/%m/%d) |$t");
+	done < README.md > new
+	mv new README.md
+fi
+rm xls

scripts/44/xls

@@ -0,0 +1 @@
+<div class="feed-icon"> <a href="/exportar-lista/ListaTCP.xls"><img alt="Exportar" src="http://tcp.dgterritorio.gov.pt/sites/all/modules/views_data_export/images/xls.png" title="Exportar" typeof="foaf:Image"></img></a></div>