bud: novo incumprimento

O site https://bud.gov.pt/ddn/dispensa/requerer.html tem um documento
de requerimento exclusivamente em formato doc, em incumprimento com a
Lei das Normas Abertas.

Closes: #78

.github/workflows/scripts.yml

@@ -40,6 +40,7 @@ jobs:
           "${GITHUB_WORKSPACE}/scripts/40-sef.sh"
           "${GITHUB_WORKSPACE}/scripts/48-insa.sh"
           "${GITHUB_WORKSPACE}/scripts/49-imt.sh"
+          "${GITHUB_WORKSPACE}/scripts/50-bud.sh"
 
       - name: Commit file(s)
         run: |

README.md

@@ -43,6 +43,7 @@ Esta tabela mostra casos de incumprimento do regulamento:
 | https://www.sef.pt/                          | Documentos em .doc                                                                                                                 | [Documentos em .doc no final da página (anunciados como .pdf)](https://www.sef.pt/pt/pages/conteudo-detalhe.aspx?nID=73)                                                                                                                                                                                                                                                                                                                                                                          | 2021/11/06 |                     |
 | http://www.insa.min-saude.pt                 | XLSX                                                                                                                               | [dados do R(t) em XLSX](http://www.insa.min-saude.pt/category/areas-de-atuacao/epidemiologia/covid-19-curva-epidemica-e-parametros-de-transmissibilidade/)                                                                                                                                                                                                                                                                                                                                        | 2021/11/06 | 2021/03/12          |
 | https://www.imt-ip.pt                        | TLS                                                                                                                                | [Certificado SSL/TLS expirado há um ano, havendo um novo que alberga todos os domínios \*.imt-ip.pt - sugerindo má configuração do servidor](https://www.imt-ip.pt/sites/IMTT/Portugues/Formularios/Documents/Mod9IMT.pdf)                                                                                                                                                                                                                                                                        | 2021/11/06 |                     |
+| https://bud.gov.pt/ | Documento em .doc | [https://bud.gov.pt/ddn/dispensa/requerer.html](página com formulário em .doc, sem outra alternativa) | 2021/11/07 ||
 
 Este [template](template.txt) é utilizado pela ANSOL e pela Comunidade LibreOffice Portugal para enviar um pedido de resolução do problema.
 

scripts/50-bud.sh

@@ -0,0 +1,20 @@
+#!/bin/bash
+
+files=$(
+	for i in $(wget https://bud.gov.pt/ddn/dispensa/requerer.html -o /dev/null -O -); do echo $i; done | \
+		grep href|cut -d\" -f2|grep -v html$|grep -v ^#|grep -v ^http|grep -v "\.css"|grep -v png$|grep -v ico$
+);
+nfiles=$(echo "$files"|wc -l);
+docs=$(echo "$files"|grep .doc$|wc -l);
+
+if [ "$nfiles" != 1 ] || [ "$docs" != 1 ]; then
+	echo "bud: incumprimento pode já não existir";
+else
+	echo "bud: 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 bud|wc -l) -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