[Datamining] Zjistit, kolik nás stojí OSA a ČPU?

Nyní jsem mimochodem zjistil, že jen u Vrchního soudu v Praze (což je odvolací soud) bylo vedeno círka 250 případů, kde byla OSA žalobkyní. To stojí hrozně peněz, které všichni platíme, a navíc tohle je jen jeden soud.

Stálo by za to zjistit, v kolika celkem případech OSA vystupuje a vyčíslit cenu za provoz soudů. Totéž pro Protipirátskou unii ČPÚ, kde bych hledal mezi poškozenými v trestním řízení. Zkusit můžete podat žádost o informace http://www.infoprovsechny.cz/ všem soudům.

Skript na posílání z datovky může dodat Jakub Michálek.

lynx -dump 'http://portal.justice.cz/justice2/uvod/soudy.aspx' | grep -A 110 '^Okresní a krajské soudy$' | grep '^ \* \[[^[]\+\]' | sed 's/^ \* \[\([^[]\+\)\]\(.*\)$/\1|\2/' | while IFS="|" read NR COURT; do URL=`lynx -dump 'http://portal.justice.cz/justice2/uvod/soudy.aspx' | grep " ${NR}\." | sed 's/^[^.]\+\. //'`; echo -n "${COURT}|"; NR2=`lynx -dump "$URL" | grep '^ \* \[[^[]\+\]Kontakty$' | sed 's/^ \* \[\([^[]\+\)\]\(.*\)$/\1/'`; URL2=$(lynx -dump "$URL" | grep -A 1000 '^Reference$' | grep " ${NR2}\." | sed 's/^[^.]\+\. //'); ID=$(lynx -dump "$URL2" | grep 'ID datové schránky' | sort -u | grep -v '^ ID datové schránky:$' | sed 's/^ ID datové schránky: //' | tr '\n' ';' | sed 's/;$//'); echo "$ID"; done

Nektere adrey je treba doplnit rucne

</pirati>