Merge pull request #81 from 00tiagopolicarpo00/master

Incomprimento site imt acessibilidade

README.md

@@ -39,6 +39,6 @@ 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/10/13 ||
 | https://accessmonitor.acessibilidade.gov.pt/ | Acessibilidade | [Não cumpre regras de acessibilidade, segundo si mesmo](https://github.com/amagovpt/access-monitor-plus/issues/14) | 2021/10/13 | 2020/12/08 |
 | 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/10/13 | 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/10/13 | |
+| https://www.imt-ip.pt | TLS, Acessibilidade | [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), [site não cumpre WCAG 2.0 A](https://www.imt-ip.pt/) | 2021/10/23 | |
 
 Este [template](template.txt) é utilizado pela ANSOL e pela Comunidade LibreOffice Portugal para enviar um pedido de resolução do problema.

scripts/49-imt.sh

@@ -1,15 +1,27 @@
 #!/bin/bash
 
 fail=0;
+
+# Testing HTTPS
 if [ "$(curl https://www.imt-ip.pt/sites/IMTT/Portugues/Formularios/Documents/Mod9IMT.pdf -o /dev/null; echo $?)" -eq "35" ]; then
 	echo "imt: problema com o certificado SSL";
 	fail=1;
 fi
+
+# Testing HTTPS
 if [ "$(curl https://www.imt-ip.pt/sites/IMTT/Portugues/Formularios/Documents/Mod9IMT.pdf -o /dev/null; echo $?)" -eq "60" ]; then
 	echo "imt: problema com o certificado SSL";
 	fail=2;
 fi
 
+# https://www.imt-ip.pt/ - não cumpre WCAG 2.0 AA (nem A)
+## 23/10/2021: there are empty alts
+emptyalt=$(curl -k -L https://www.imt-ip.pt/ | hxclean | hxselect -s '\n' img | hxselect -s '\n' -c 'img::attr(alt)'|grep -c ^$);
+if [ "$emptyalt" -ne "0" ]; then
+	echo "imt: problemas de acessibilidade";
+	fail=3;
+fi
+
 if [ "$fail" = 0 ]; then
 	echo "imt: incumprimento pode já não existir";
 else

scripts/50-imt.sh

@@ -0,0 +1,25 @@
+#!/bin/bash
+
+# https://www.imt-ip.pt/ - não cumpre WCAG 2.0 AA (nem A)
+
+#TODO: find a good tool to make the validation on request
+# https://achecker.ca/documentation/web_service_api.php - API usage depends on user account creation
+# webaim.org - API's not gratis
+
+# While we don't have a validator on request, let's find out if a known violation exists
+
+## 23/10/2021: there are empty alts
+
+emptyalt=$(curl -k -L https://www.imt-ip.pt/ | hxclean | hxselect -s '\n' img | hxselect -s '\n' -c 'img::attr(alt)'|grep -c ^$);
+
+if [ "$emptyalt" -eq "0" ]; then
+	echo "imt: incumprimento pode já não existir";
+else
+	echo "imt: 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 imt|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