Skip to content
Permalink
master
Go to file
 
 
Cannot retrieve contributors at this time
93 lines (85 sloc) 2.6 KB
# ----------------------------------------------------------------------------
# Uma forma de ler o site Inovação Tecnológica.
# Sem opção mostra o resumo da página principal.
#
# Opções podem ser (ano)sub-temas e/ou número:
#
# Sub-temas podem ser:
# eletronica, energia, espaco, informatica, materiais,
# mecanica, meioambiente, nanotecnologia, robotica, plantao.
# Que podem ser precedido do ano ao qual se quer listar
#
# Se a opção for um número mostra a matéria selecionada,
# seja da página principal ou de um sub-tema.
#
# Uso: zzit [[ano] sub-tema] [número]
# Ex.: zzit # Um resumo da página principal
# zzit espaco # Um resumo do sub-tem espaço
# zzit 3 # Exibe a terceira matéria da página principal
# zzit mecanica 7 # Exibe a sétima matéria do sub-tema mecânica
# zzit 2003 energia # Um resumo do sub-tema energia em 2003
# zzit 2012 plantao 2 # Exibe a 2ª matéria de 2012 no sub-tema plantao
#
# Autor: Itamar <itamarnet (a) yahoo com br>
# Desde: 2016-02-28
# Versão: 5
# Licença: GPL
# Requisitos: zzsemacento zzutf8 zzxml zzsqueeze zzdatafmt zzlinha
# Tags: internet, consulta
# ----------------------------------------------------------------------------
zzit ()
{
zzzz -h it "$1" && return
local url='https://www.inovacaotecnologica.com.br'
local url2 opcao num ano
if test -n "$1" && zztool testa_numero $1
then
if test "$1" -ge 2001 -a "$1" -le $(zzdatafmt -f AAAA hoje)
then
ano=$1
shift
fi
fi
opcao=$(echo "$1" | zzsemacento)
case "$opcao" in
eletronica | energia | espaco | informatica | materiais | mecanica | meioambiente | nanotecnologia | robotica | plantao )
if test -n "$ano"
then
if test "$opcao" = "meioambiente" -a "$ano" -eq 2001
then
return
fi
url2="$url/noticias/${opcao}_${ano}.html"
else
url2="$url/noticias/assuntos.php?assunto=$opcao"
ano=$(zzdatafmt -f AAAA hoje)
fi
shift ;;
* ) url2="$url/index.php" ;;
esac
zztool testa_numero $1 && num=$1
if test -n "$num"
then
url2=$(
zztool source "$url2" |
zzutf8 |
zzxml --tidy --tag h2 |
sed '/<a href/!d;s/.*href="//;s/">//' |
zzxml --untag |
zzlinha $num
)
zztool grep_var 'noticias' "${url}/${url2#*/}" && url2="${url}/${url2#*/}" || url2="${url}/noticias/${url2#*/}"
zztool eco "${url2}"
zztool dump "${url2}" |
sed '1,/Plantão *$/d; s/ *\(Bibliografia:\)/\
\1/' |
sed 's/\[INS: *:INS\]//g; /\* Imprimir/{s///;q;}' |
zzsqueeze |
fmt -w 120
return
fi
zztool source "$url2" |
zzutf8 |
zzxml --tidy --tag h2 --untag |
awk '{printf "%02d - ",NR};1'
}
You can’t perform that action at this time.