ajout script d'analyse des v...
|
1 |
#!/bin/bash |
2 | ||
fix info parfois manquante s...
|
3 |
set -e |
4 | ||
n'autorise qu'une seule exéc...
|
5 |
# on n'autorise qu'une seule exécution à la fois |
6 |
process_token=$(mktemp --dry-run /dev/shm/XXXXXXXXXXXXXXXX) |
|
7 |
token_file="$process_token.${0##*/}" |
|
8 | ||
améliore la récupération des...
|
9 |
for tool in sqlite3 getopt mktemp w3m jq; do |
complète re-écriture
|
10 |
which $tool > /dev/null 2>&1 || { |
11 |
echo missing tool $tool |
|
12 |
exit 1 |
|
13 |
} |
|
plus de souplesse dans les p...
|
14 |
done |
15 | ||
ajout possibilité de compare...
|
16 |
IFS_=$IFS |
17 | ||
amélioration code
|
18 |
function sqlite_request () { |
améliore la récupération des...
|
19 |
sqlite3 ${2:+-cmd} ${2:+".mode $2"} "$in_ram_database" <<< "$1" |
amélioration code
|
20 |
} |
21 | ||
complète re-écriture
|
22 |
function create_database () { |
améliore la récupération des...
|
23 |
sqlite_request "create table if not exists dossiers (id integer primary key, titre text, url text)" |
24 |
sqlite_request "create table if not exists votes (id integer primary key, nom text)" |
|
25 |
sqlite_request "create table if not exists députés (id integer primary key, nom text, groupe integer, date text)" |
|
26 |
sqlite_request "create table if not exists groupes (id integer primary key, nom text unique, nom_court text)" |
|
27 |
sqlite_request "create table if not exists scrutins (num integer primary key, séance text, date text not null, intitulé text non null, adoption boolean, dossier integer, mise_au_point text)" |
|
28 |
sqlite_request "create table if not exists dépouillements (scrutin integer not null, député integer not null, vote integer not null)" |
|
29 |
sqlite_request "create unique index if not exists 'index_députés' on députés (nom, groupe)" |
|
30 |
sqlite_request "create unique index if not exists 'index_dossiers' on dossiers (titre, url)" |
|
31 |
sqlite_request "create unique index if not exists 'index_dépouillements' on dépouillements (député, scrutin)" |
|
complète re-écriture
|
32 | |
33 |
for v in Pour Contre Abstention Non-votant; do |
|
améliore la récupération des...
|
34 |
sqlite_request "insert or ignore into votes (nom) values ('$v')" |
ajout script d'analyse des v...
|
35 |
done |
complète re-écriture
|
36 |
} |
ajout script d'analyse des v...
|
37 | |
complète re-écriture
|
38 |
function update_database () { |
39 |
test "$no_db_update" = $true_flag && return |
|
40 |
tempfile="/dev/shm/scrutin.$$" |
|
41 |
progress=0 |
|
améliore la récupération des...
|
42 |
for r in "${!acronymes[@]}"; do |
43 |
sqlite_request "update groupes set nom_court = \"${acronymes[$r]}\" where nom = \"$r\"" |
|
44 |
done |
|
45 |
sqlite_request "create table if not exists dossier_par_scrutin (scrutin integer, url text)" |
|
46 |
echo "récupération des dossiers" |
|
47 |
wget -qO- "https://www.assemblee-nationale.fr/dyn/$mandature/dossiers" \ |
|
48 |
| sed -rn 's/<p class="m-0"><a title="Accéder au dossier législatif" href="([^"]+)">([^<]+)<.+$/\1 \2/p' \ |
|
49 |
| sed -r "s/^[[:space:]]*//; s/'/'/g" \ |
|
50 |
| awk -v dq='"' '{ |
|
51 |
printf("insert or ignore into dossiers (titre, url) values (%s, %s);\n", dq gensub($1 " ", "", "1", $0) dq, dq "https://www.assemblee-nationale.fr" $1 dq) |
|
52 |
}' > $tempfile |
|
53 |
sqlite3 "$in_ram_database" < $tempfile |
|
fix bug sur premier scrutin
|
54 |
first_=$first |
améliore la récupération des...
|
55 |
first=$(sqlite_request "select max(num) from scrutins") |
complète re-écriture
|
56 |
if test ${first:-0} -lt $last; then |
57 |
echo "récupération des scrutins n°$((${first:-0}+1)) à n°$last dans "$database" (à conserver autant que possible)" >&2 |
|
ajout script d'analyse des v...
|
58 | |
complète re-écriture
|
59 |
test $((last % 100)) -ne 0 && last_offset=0 |
fix dossiers manquants
|
60 |
IFS=$' \t\n' |
complète re-écriture
|
61 |
for offset in $(seq $((last - 100)) -100 ${first:-0} ) $last_offset; do |
sélection possible de la man...
|
62 |
wget -qO- "http://www2.assemblee-nationale.fr/scrutins/liste/(offset)/$offset/(legislature)/$mandature/(type)/TOUS/(idDossier)/TOUS" \ |
améliore la récupération des...
|
63 |
| awk -v dq='"' ' |
64 |
BEGIN { |
|
65 |
} |
|
complète re-écriture
|
66 |
/<td class="denom">/ { |
améliore la récupération des...
|
67 |
scrutin = gensub(/^.+denom.>([[:digit:]]+)\\*?<.td./,"\\1","1",$0) |
complète re-écriture
|
68 |
} |
améliore la récupération des...
|
69 |
/<td class="desc">/ { |
70 |
if (match($0, ">dossier<") > 0) |
|
71 |
dossier[scrutin] = gensub(/^.+.<a href="([^"]+)">dossier<.a>.*$/,"\\1","1",$0) |
|
complète re-écriture
|
72 |
} |
73 |
END { |
|
améliore la récupération des...
|
74 |
for (i in dossier) { |
75 |
printf("insert into dossier_par_scrutin (scrutin, url) values (%i, %s);\n", i, dq dossier[i] dq) |
|
76 |
} |
|
77 |
}' > $tempfile |
|
78 |
sqlite3 "$in_ram_database" < $tempfile |
|
complète re-écriture
|
79 |
done |
80 | ||
améliore la récupération des...
|
81 | |
82 |
# IFS=$'\n' |
|
complète re-écriture
|
83 |
begin=$(date +%s) |
84 |
for scrutin in $(seq $((${first:-0}+1)) $last); do |
|
améliore la récupération des...
|
85 |
w3m -cols 512 -dump "http://www2.assemblee-nationale.fr/scrutins/detail/(legislature)/$mandature/(num)/$scrutin" \ |
86 |
| sed -n '/^Analyse du scrutin n° /,/^Votes des groupes/{/^Navigation/,/^ • Non inscrits/d;/^[[:space:]]*$/d;p}' \ |
|
87 |
| awk -v sq="'" -v dq='"' ' |
|
88 |
BEGIN { adoption = -1; map = 0 } |
|
89 |
/^Analyse du scrutin/ { scrutin = $NF } |
|
90 |
/séance du [0-3][0-9]\/[01][0-9]\/(19|20)[0-9]+/ { date = $NF; seance = $1 } |
|
91 |
/^Scrutin public sur / { titre = gensub("^Scrutin public sur l[ae" sq "]s? ?", "", "1") } |
|
92 |
/^L.Assemblée .+ adopté/ { adoption = NF == 3 } |
|
93 |
/^Nombre de votants :/ { votants = $NF } |
|
94 |
/^Nombre de suffrages exprimés :/ { exprimes = $NF } |
|
95 |
/^Majorité absolue :/ { majo_absolue = $NF } |
|
96 |
/^Pour l.adoption :/ { pour = $NF } |
|
97 |
/^Contre :/ { contre = $NF } |
|
98 |
/^Groupe / { groupe = gensub("^Groupe (.+) \\([1-9].+$", "\\1", "1") |
|
99 |
groupe = gensub("^(la|les|le|l" sq "|du|des|de|de la|d" sq ") ", "", "1", groupe) |
|
100 |
} |
|
101 |
/^Non inscrits/ { groupe = "Non inscrits" } |
|
102 |
/^(Pour|Abstention|Contre):/ { position = gensub(":", "", "1", $1) } |
|
103 |
/^Non-votants?:/ { |
|
104 |
position = gensub("s?:", "", "1", $1) |
|
105 |
nvl = "" |
|
non-votant dans le dernier g...
|
106 |
while ($1 != "Groupe" || $0 != "Contenus annexes") { |
améliore la récupération des...
|
107 |
getline |
non-votant dans le dernier g...
|
108 |
if ($1 == "Groupe" || $0 == "Contenus annexes") |
améliore la récupération des...
|
109 |
break |
110 |
nvl = nvl $0 |
|
111 |
} |
|
112 |
f = split(nvl, nv, "(, | et )") |
|
113 |
for (i=1; i<=f; i++) { |
|
114 |
votes[groupe][position][gensub("(^ +|M\\. |Mme |Mlle | \\(.+)", "", "g", nv[i])]++ |
|
115 |
} |
|
116 |
groupe = gensub("^Groupe (.+) \\([1-9].+$", "\\1", "1") |
|
117 |
} |
|
le point médian n'est pas da...
|
118 |
/^ • / { votes[groupe][position][gensub("^[^A-Z]*", "", "1")]++ } |
améliore la récupération des...
|
119 |
/^Mises au point/,/^Votes des groupes/ { if ($1 != "(Sous") mises_au_point[map++] = $0 } |
120 |
END { |
|
121 |
if (adoption < 0) |
|
122 |
adoption = pour >= majo_absolue |
|
123 | ||
124 |
for (i=1; i<map-1; i++) |
|
125 |
mise_au_point = sprintf("%s[%s]", mise_au_point, mises_au_point[i]) |
|
126 | ||
127 |
printf("insert into scrutins (num, séance, date, intitulé, adoption, mise_au_point) values (%i, %s, %s, %s, %i, %s);\n", |
|
128 |
scrutin, |
|
129 |
sq seance sq, |
|
130 |
sq date sq, |
|
131 |
dq gensub(dq, dq dq, "g", titre) dq, |
|
132 |
adoption, |
|
133 |
dq gensub(dq, dq dq, "g", mise_au_point) dq, |
|
134 |
scrutin) |
|
135 |
printf("update scrutins set dossier = ( select id from dossiers inner join dossier_par_scrutin where dossiers.url = dossier_par_scrutin.url and dossier_par_scrutin.scrutin = %i) where num = %i;\n", |
|
136 |
scrutin, |
|
137 |
scrutin) |
|
138 |
for (groupe in votes) { |
|
139 |
printf("insert or ignore into groupes (nom) values (%s);\n", dq groupe dq) |
|
140 |
for (position in votes[groupe]) { |
|
141 |
for (nom in votes[groupe][position]) { |
|
142 |
if (nom !~ " \\(.+\\) *$") |
|
143 |
printf("insert or ignore into députés (nom, groupe, date) select %s, id, %s from groupes where nom = %s;\n", |
|
144 |
dq nom dq, |
|
145 |
dq date dq, |
|
146 |
dq groupe dq) |
|
147 |
printf("insert or ignore into dépouillements (scrutin, député, vote) select %i, députés.id, votes.id from députés inner join votes where députés.nom = %s and votes.nom = %s;\n", |
|
148 |
scrutin, |
|
149 |
dq nom dq, |
|
150 |
dq position dq) |
|
151 |
} |
|
152 |
} |
|
153 |
} |
|
154 |
} |
|
155 |
' > $tempfile |
|
156 |
sqlite3 "$in_ram_database" < $tempfile |
|
écriture directe en feuille ...
|
157 | |
complète re-écriture
|
158 | |
améliore la sortie de progre...
|
159 |
if test $(( ($scrutin - ${first:-0}) * 100 / ( $last - ${first:-0} ) )) -ne ${progress:-0}; then |
160 |
progress=$(( ($scrutin - ${first:-0}) * 100 / ( $last - ${first:-0} ) )) |
|
complète re-écriture
|
161 |
if test $(($progress % ${update_progress:-1})) -eq 0; then |
162 |
now=$(date +%s) |
|
163 |
delta=$(( $now - $begin )) |
|
améliore la sortie de progre...
|
164 |
# scrutin = {first:-0}+1 à la première itération |
165 |
printf "\r%d%%, ETA %s" $progress $(date +%H:%M:%S -d "$(($delta * ($last - $scrutin) / ($scrutin - ${first:-0}) )) seconds") |
|
complète re-écriture
|
166 |
fi |
167 |
fi |
|
168 |
done |
|
améliore la récupération des...
|
169 |
sqlite_request 'drop table dossier_par_scrutin' |
170 | ||
améliore la sortie de progre...
|
171 |
echo -e "\r\033[KTerminé: $(($scrutin - ${first:-0} - 1)) scrutins ajoutés" |
améliore la récupération des...
|
172 |
rm -f "$tempfile" |
complète re-écriture
|
173 |
fi |
fix bug sur premier scrutin
|
174 |
first=$first_ |
complète re-écriture
|
175 |
} |
176 | ||
177 |
function write_comparaison () { |
|
multiples modifications
|
178 |
result="scrutins ($(sum <<< "${groupe[@]}" | cut -b1-5))${dossier:+ - ${dossier}}" |
ajout de l'envoi du résultat...
|
179 |
if test "$envoi_par_mail" = $true_flag; then |
180 |
result="scrutins" |
|
181 |
fi |
|
complète re-écriture
|
182 |
content="/dev/shm/$result/content.xml" |
multiples modifications
|
183 |
id_cols=(Scrutin Date Séance Titre Adoption Dossier) |
améliore le fichier de sorti...
|
184 |
eval $(sqlite_request 'select printf("typevotes[%i]=%s;", id, nom) from votes') |
185 |
nb_cols=$(( ${#id_cols[@]} + ${#typevotes[@]} * ${#groupe[@]} )) |
|
ajout possibilité de compare...
|
186 |
last_col=$(awk -v n=$nb_cols 'BEGIN{printf("%c%c", n < 27 ? "" : int(n/26) + 64, (n % 26) + (n % 26 == 0 ? 26 : 0) + 64)}' | tr -d '\0') |
multiples modifications
|
187 |
colors=($(awk -v n=${#groupe[@]} -v from=${from_color:-2A0636} -v to=${to_color:-D09B8A} ' |
188 |
function rgbL (p) { |
|
189 |
r = rgb_from[1] + p * (rgb_to[1] - rgb_from[1]) |
|
190 |
g = rgb_from[2] + p * (rgb_to[2] - rgb_from[2]) |
|
191 |
b = rgb_from[3] + p * (rgb_to[3] - rgb_from[3]) |
|
192 |
L = r * 0.299 + g * 0.587 + b * 0.114 |
|
193 |
printf("%02x%02x%02x:%s\n", int(r), int(g), int(b), L > 185 ? "000000" : "ffffff") |
|
194 |
} |
|
195 |
BEGIN { |
|
196 |
for (i = split(gensub("(..)(..)(..)", "\\1,\\2,\\3", "1", from), rgb_from, ","); i > 0; i--) |
|
197 |
rgb_from[i] = strtonum(sprintf("%d", strtonum("0x" rgb_from[i]))) |
|
198 |
for (i = split(gensub("(..)(..)(..)", "\\1,\\2,\\3", "1", to), rgb_to, ","); i > 0; i--) |
|
199 |
rgb_to[i] = strtonum(sprintf("%d", strtonum("0x" rgb_to[i]))) |
|
200 | ||
201 |
print "pour_bash_array_qui_commence_a_index_0" |
|
202 |
rgbL(0) |
|
203 |
for (i = 1; i < n-1; i++) { |
|
204 |
rgbL(i/n) |
|
205 |
} |
|
206 |
if (n > 1) rgbL(1) |
|
207 |
} |
|
208 |
')) |
|
simplification écriture des ...
|
209 |
function write_cell () { |
210 |
case $1 in |
|
211 |
url) |
|
212 |
cell='<table:table-cell office:value-type="string" calcext:value-type="string">' |
|
améliore le fichier de sorti...
|
213 |
cell+="<text:p><text:a xlink:href=$2 xlink:type=\"simple\">$3</text:a></text:p>" |
214 |
;; |
|
simplification écriture des ...
|
215 |
texte) |
216 |
cell='<table:table-cell office:value-type="string" calcext:value-type="string">' |
|
217 |
cell+="<text:p>$2</text:p>" |
|
218 |
;; |
|
219 |
nombre) |
|
220 |
cell="<table:table-cell office:value-type=\"float\" office:value=\"$2\" calcext:value-type=\"float\">" |
|
221 |
cell+="<text:p>$2</text:p>" |
|
222 |
;; |
|
223 |
*) |
|
224 |
return 1;; |
|
225 |
esac |
|
226 |
cell+='</table:table-cell>' |
|
227 |
echo $cell >> "$content" |
|
228 |
} |
|
complète re-écriture
|
229 | |
ajout de l'envoi du résultat...
|
230 |
if test -z "$envoi_par_mail"; then |
231 |
echo "génération du fichier $result" |
|
232 |
fi |
|
complète re-écriture
|
233 | |
234 |
mkdir -p "/dev/shm/$result/META-INF" |
|
235 | ||
236 |
cat > "/dev/shm/$result/META-INF/manifest.xml" << EOmetainf |
|
écriture directe en feuille ...
|
237 |
<?xml version="1.0" encoding="UTF-8"?> |
238 |
<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0" manifest:version="1.2"> |
|
239 |
<manifest:file-entry manifest:full-path="/" manifest:version="1.2" manifest:media-type="application/vnd.oasis.opendocument.spreadsheet"/> |
|
240 |
<manifest:file-entry manifest:full-path="content.xml" manifest:media-type="text/xml"/> |
|
241 |
</manifest:manifest> |
|
242 |
EOmetainf |
|
243 | ||
complète re-écriture
|
244 |
printf 'application/vnd.oasis.opendocument.spreadsheet' > "/dev/shm/$result/mimetype" |
écriture directe en feuille ...
|
245 | |
complète re-écriture
|
246 |
echo '<?xml version="1.0" encoding="UTF-8"?>' > "$content" |
écriture directe en feuille ...
|
247 | |
complète re-écriture
|
248 |
cat >> "$content" << EOcontent |
249 |
<office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0" xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer" xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events" xmlns:xforms="http://www.w3.org/2002/xforms" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:rpt="http://openoffice.org/2005/report" xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:grddl="http://www.w3.org/2003/g/data-view#" xmlns:tableooo="http://openoffice.org/2009/table" xmlns:drawooo="http://openoffice.org/2010/draw" xmlns:calcext="urn:org:documentfoundation:names:experimental:calc:xmlns:calcext:1.0" xmlns:loext="urn:org:documentfoundation:names:experimental:office:xmlns:loext:1.0" xmlns:field="urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0" xmlns:formx="urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:form:1.0" xmlns:css3t="http://www.w3.org/TR/css3-text/" office:version="1.2"> |
|
250 |
<office:scripts/> |
|
251 |
<office:font-face-decls> |
|
252 |
<style:font-face style:name="Liberation Sans" svg:font-family="'Liberation Sans'" style:font-family-generic="swiss" style:font-pitch="variable"/> |
|
253 |
<style:font-face style:name="DejaVu Sans" svg:font-family="'DejaVu Sans'" style:font-family-generic="system" style:font-pitch="variable"/> |
|
254 |
<style:font-face style:name="FreeSans" svg:font-family="FreeSans" style:font-family-generic="system" style:font-pitch="variable"/> |
|
255 |
</office:font-face-decls> |
|
256 |
<office:automatic-styles> |
|
257 |
EOcontent |
|
258 | ||
ajout possibilité de compare...
|
259 |
IFS=$'\n' |
complète re-écriture
|
260 |
for i in $(seq $nb_cols); do |
261 |
cat >> "$content" << EOcontent |
|
262 |
<style:style style:name="co$i" style:family="table-column"> |
|
263 |
<style:table-column-properties fo:break-before="auto" style:column-width="30.00mm"/> |
|
264 |
</style:style> |
|
écriture directe en feuille ...
|
265 |
EOcontent |
complète re-écriture
|
266 |
done |
écriture directe en feuille ...
|
267 | |
268 |
cat >> "$content" << EOcontent |
|
complète re-écriture
|
269 |
<style:style style:name="ro1" style:family="table-row"> |
270 |
<style:table-row-properties style:row-height="4.52mm" fo:break-before="auto" style:use-optimal-row-height="true"/> |
|
271 |
</style:style> |
|
272 |
<style:style style:name="ta1" style:family="table" style:master-page-name="Default"> |
|
273 |
<style:table-properties table:display="true" style:writing-mode="lr-tb"/> |
|
274 |
</style:style> |
|
multiples modifications
|
275 |
EOcontent |
276 | ||
277 |
for i in $(seq ${#groupe[@]}); do |
|
278 |
cat >> "$content" << EOcontent |
|
279 |
<style:style style:name="ce$i" style:family="table-cell" style:parent-style-name="Default"> |
|
280 |
<style:table-cell-properties fo:wrap-option="wrap" style:vertical-align="middle" fo:background-color="#${colors[$i]%:*}"/> |
|
281 |
<style:text-properties fo:hyphenate="false" fo:color="#${colors[$i]}"/> |
|
282 |
</style:style> |
|
283 |
EOcontent |
|
284 |
done |
|
285 | ||
286 |
cat >> "$content" << EOcontent |
|
complète re-écriture
|
287 |
</office:automatic-styles> |
288 |
<office:body> |
|
289 |
<office:spreadsheet> |
|
290 |
<table:calculation-settings table:automatic-find-labels="false"/> |
|
291 |
<table:table table:name="$result" table:style-name="ta1"> |
|
292 |
<office:forms form:automatic-focus="false" form:apply-design-mode="false"/> |
|
améliore le fichier de sorti...
|
293 |
<table:table-column table:style-name="co1" table:number-columns-repeated="${#id_cols[@]}" table:default-cell-style-name="Default"/> |
écriture directe en feuille ...
|
294 |
EOcontent |
295 | ||
améliore le fichier de sorti...
|
296 |
for i in $(seq ${#typevotes[@]}); do |
multiples modifications
|
297 |
for g in $(seq ${#groupe[@]}); do |
ajout possibilité de compare...
|
298 |
cat >> "$content" << EOcontent |
multiples modifications
|
299 |
<table:table-column table:style-name="co1" table:default-cell-style-name="ce$g"/> |
ajout possibilité de compare...
|
300 |
EOcontent |
301 |
done |
|
complète re-écriture
|
302 |
done |
303 |
echo '<table:table-row table:style-name="ro1">' >> "$content" |
|
écriture directe en feuille ...
|
304 | |
ajout possibilité de compare...
|
305 |
IFS=$IFS_ |
améliore le fichier de sorti...
|
306 |
for colonne in ${id_cols[@]}; do |
simplification écriture des ...
|
307 |
write_cell texte $colonne |
complète re-écriture
|
308 |
done |
écriture directe en feuille ...
|
309 | |
améliore le fichier de sorti...
|
310 |
for typevote in ${typevotes[@]}; do |
ajout possibilité de compare...
|
311 |
for g in "${groupe[@]}"; do |
simplification écriture des ...
|
312 |
write_cell texte "$typevote - $g" |
complète re-écriture
|
313 |
done |
314 |
done |
|
315 | ||
316 |
echo '</table:table-row>' >> "$content" |
|
317 | ||
318 |
progress=0 |
|
319 |
begin=$(date +%s) |
|
320 |
line=1 |
|
améliore progression
|
321 |
test -z "$seq" && qty=$(( $last - $first )) |
ajout possibilité de compare...
|
322 |
IFS=$'\n' |
améliore le fichier de sorti...
|
323 |
scrutin_base_url="https://www2.assemblee-nationale.fr/scrutins/detail/(legislature)/$mandature/(num)/" |
complète re-écriture
|
324 |
for scrutin in $(eval ${seq:-seq $first $last}); do |
325 | ||
améliore le fichier de sorti...
|
326 |
data=$(sqlite_request "select date,séance,intitulé,adoption,dossiers.url,dossiers.titre from scrutins left join dossiers on scrutins.dossier = dossiers.id where num is $scrutin" json) |
327 |
date=$(jq -r '.[].date' <<< $data) |
|
328 |
seance=$(jq -r '.[]."séance"' <<< $data) |
|
329 |
title=$(jq -r '.[]."intitulé" | @html' <<< $data) |
|
330 |
adoption=$(jq '.[].adoption' <<< $data) |
|
331 |
dossier_url=$(jq '.[].url' <<< $data) |
|
332 |
dossier_texte=$(jq -r '.[].titre | @html' <<< $data) |
|
complète re-écriture
|
333 |
test $adoption -eq 1 && adoption='oui' || adoption='non' |
groupe de référence: GDR
|
334 | |
simplification écriture des ...
|
335 |
echo '<table:table-row table:style-name="ro1">' >> "$content" |
336 | ||
améliore le fichier de sorti...
|
337 |
write_cell url "\"$scrutin_base_url$scrutin\"" $scrutin |
simplification écriture des ...
|
338 |
write_cell texte "$date" |
améliore le fichier de sorti...
|
339 |
write_cell texte "$seance" |
340 |
write_cell texte "$title" |
|
simplification écriture des ...
|
341 |
write_cell texte "$adoption" |
multiples modifications
|
342 |
write_cell url "${dossier_url/#null/\"\"}" "${dossier_texte/#null}" |
ajoute colonnes loyauté, pan...
|
343 | |
multiples modifications
|
344 |
unset votes |
améliore le fichier de sorti...
|
345 |
for typevote in $(seq ${#typevotes[@]}); do |
multiples modifications
|
346 |
for (( g = 0; g < ${#groupe[@]}; g++ )); do |
347 |
votes[${#votes[@]}]=$(sqlite_request "select |
|
ajoute colonnes loyauté, pan...
|
348 |
count(député) |
349 |
from |
|
améliore le fichier de sorti...
|
350 |
dépouillements |
351 |
inner join |
|
352 |
députés, groupes |
|
353 |
on |
|
354 |
députés.groupe = groupes.id and dépouillements.député = députés.id |
|
ajoute colonnes loyauté, pan...
|
355 |
where |
356 |
scrutin is $scrutin |
|
357 |
and |
|
358 |
vote is $typevote |
|
359 |
and |
|
fix nom avec apostrophe
|
360 |
${id_groupe[$g]%:*}.nom = '${groupe[$g]//\'/\'\'}'") |
ajoute colonnes loyauté, pan...
|
361 |
done |
multiples modifications
|
362 |
done |
363 |
for ((j = 0; j < ${#groupe[@]}; j++)); do |
|
364 |
presence=1 # `let presence+=0` sort en erreur si variable est unset ou égale à 0 |
|
365 |
for ((i = $j; i < ${#votes[@]}; i += ${#groupe[@]})); do |
|
366 |
let presence+=${votes[$i]} |
|
complète re-écriture
|
367 |
done |
multiples modifications
|
368 |
if test $presence -eq 1; then |
369 |
for ((i = $j; i < ${#votes[@]}; i += ${#groupe[@]})); do |
|
370 |
votes[$i]=-1 |
|
371 |
done |
|
372 |
fi |
|
373 |
done |
|
374 |
for ((i = 0; i < ${#votes[@]}; i ++)); do |
|
375 |
write_cell nombre ${votes[$i]} |
|
ajout possibilité de compare...
|
376 |
done |
complète re-écriture
|
377 |
echo '</table:table-row>' >> "$content" |
378 | ||
meilleur calcul progression
|
379 |
if test $(( ($line * 100) / ${qty:-$last} )) -ne $progress; then |
380 |
progress=$(( ($line * 100) / ${qty:-$last} )) |
|
381 |
if test $(( $progress % ${generation_progress:-5} )) -eq 0; then |
|
complète re-écriture
|
382 |
now=$(date +%s) |
383 |
delta=$(( $now - $begin )) |
|
améliore la sortie de progre...
|
384 |
printf "\r%d%%, ETA %s" $progress $(date +%H:%M:%S -d "$(( $delta * (${qty:-$last} - $line) / $line )) seconds") |
complète re-écriture
|
385 |
fi |
386 |
fi |
|
meilleur calcul progression
|
387 | |
388 |
let line++ |
|
389 | ||
ajout script d'analyse des v...
|
390 |
done |
complète re-écriture
|
391 | |
392 |
cat >> "$content" << EOcontent |
|
393 |
</table:table> |
|
394 |
<table:named-expressions/> |
|
395 |
<table:database-ranges> |
|
ajout possibilité de compare...
|
396 |
<table:database-range table:name="__Anonymous_Sheet_DB__0" table:target-range-address="'$result'.D1:'$result'.$last_col$line" table:display-filter-buttons="true"/> |
complète re-écriture
|
397 |
</table:database-ranges> |
398 |
</office:spreadsheet> |
|
399 |
</office:body> |
|
400 |
</office:document-content> |
|
401 |
EOcontent |
|
402 | ||
403 |
( cd "/dev/shm/$result" && zip -r ../"$result" * > /dev/null 2>&1 && cd .. && rm -fr "$result" ) |
|
404 | ||
ajout de l'option de destina...
|
405 |
mv -f "/dev/shm/$result.zip" "${destination_path:+$destination_path/}$result.ods" |
complète re-écriture
|
406 | |
ajout de l'envoi du résultat...
|
407 |
if test -z "$envoi_par_mail"; then |
408 |
echo -e "\r\033[KTerminé : ${destination_path:+$destination_path/}$result.ods" |
|
409 |
fi |
|
complète re-écriture
|
410 |
} |
411 | ||
412 |
function save_database () { |
|
ne bloque pas inutilement (a...
|
413 |
rm -f "$token_file" |
améliore abandon
|
414 |
test -n "$result" -a -d "/dev/shm/$result" && rm -fr "/dev/shm/$result" |
améliore le trap
|
415 |
test -n "$database" -a -n "$in_ram_database" || return |
ajout de l'envoi du résultat...
|
416 |
if test "$envoi_par_mail" = $true_flag; then |
417 |
if test -n "$mailconfig_file" && test -r "$mailconfig_file"; then |
|
418 |
source "$mailconfig_file" |
|
419 |
elif test -r "/usr/local/etc/${0##*/}.mail.conf"; then |
|
420 |
source "/usr/local/etc/${0##*/}.mail.conf" |
|
421 |
fi |
|
422 |
stat -Lc "(date de mise à jour de la base: %x)" $database |
|
423 |
cat > $process_token.headers << EOC |
|
424 |
From: ${from_mail:?} |
|
425 |
To: $destinataire |
|
426 |
Subject: les scrutins demandés |
|
427 |
EOC |
|
428 |
curl_opt=( |
|
429 |
--url smtp://${smtp_address:?}:${smtp_port:?} |
|
430 |
--mail-rcpt $destinataire |
|
431 |
-H @$process_token.headers |
|
432 |
-F "=(;type=multipart/alternative" |
|
433 |
-F "=<$process_token.txt;encoder=quoted-printable" |
|
434 |
-F "=<$process_token.html;encoder=quoted-printable" |
|
435 |
-F "=)" |
|
436 |
) |
|
437 |
if test -r "${destination_path:+$destination_path/}$result.ods"; then |
|
438 |
curl_opt[${#curl_opt[@]}]="-F" |
|
439 |
curl_opt[${#curl_opt[@]}]="=@${destination_path:+$destination_path/}$result.ods;encoder=base64" |
|
440 |
fi |
|
441 |
exec 1>&- |
|
442 |
aha -f $process_token.mail -t "envoi automatisé" > $process_token.html |
|
443 |
w3m -dump $process_token.html > $process_token.txt |
|
444 |
curl ${curl_opt[@]} |
|
445 |
rm -f "${destination_path:+$destination_path/}$result.ods" $process_token* |
|
446 |
elif test -r "$database" && sqldiff=$(sqldiff $in_ram_database $database) && test -z "$sqldiff"; then |
|
améliore la sauvegarde de la...
|
447 |
echo "pas de modification" |
complète re-écriture
|
448 |
elif test -w "$database"; then |
améliore la sauvegarde de la...
|
449 |
rm -f "$database" |
450 |
sqlite_request '.dump' | sqlite3 "$database" |
|
451 |
echo "base de données $database mise à jour" |
|
452 |
elif test ! -e "$database" -a -w ${database%/*}; then |
|
453 |
sqlite_request '.dump' | sqlite3 "$database" |
|
454 |
echo "base de données $database créée" |
|
complète re-écriture
|
455 |
else |
améliore la sauvegarde de la...
|
456 |
echo "je ne peux rien faire avec $database !" |
complète re-écriture
|
457 |
fi |
ne bloque pas inutilement (a...
|
458 |
rm -f "$in_ram_database" "$tempfile" |
complète re-écriture
|
459 |
} |
460 | ||
factorisation
|
461 |
function dernier_scrutin_public () { |
sélection possible de la man...
|
462 |
wget -qO- "http://www2.assemblee-nationale.fr/scrutins/liste/(legislature)/$mandature/(type)/TOUS/(idDossier)/TOUS" \ |
corrige récupération du numé...
|
463 |
| sed -rn 's/^.*<td class="denom">([0-9]+)[^0-9].*$/\1/p' \ |
factorisation
|
464 |
| head -1 |
465 |
} |
|
466 | ||
complète re-écriture
|
467 |
trap save_database EXIT |
468 | ||
corrige la configuration écr...
|
469 |
test -z "$database" && database="${0}.db" |
470 | ||
fix configuration non sourcé...
|
471 |
echo "$0 $@" > $token_file |
corrige la configuration écr...
|
472 |
declare -A acronymes |
complète re-écriture
|
473 |
true_flag=$(mktemp --dry-run XXXXX) |
474 | ||
475 |
while [[ $# -gt 0 ]]; do |
|
476 |
case "$1" in |
|
477 |
"--no-db-update") |
|
ajout d'un message d'aide
|
478 |
#|ne met pas à jour la base de données |
multiples modifications
|
479 |
if test ${db_update_only:-OK} = $true_flag; then |
480 |
echo "option incompatible avec --db-update-only" |
|
481 |
exit 1 |
|
482 |
fi |
|
complète re-écriture
|
483 |
no_db_update=$true_flag;; |
484 |
"--db-update-only") |
|
ajout d'un message d'aide
|
485 |
#|ne génère pas de fichier de résultat |
multiples modifications
|
486 |
if test ${no_db_update:-OK} = $true_flag; then |
487 |
echo "option incompatible avec --no-db-update" |
|
488 |
exit 1 |
|
489 |
fi |
|
complète re-écriture
|
490 |
db_update_only=$true_flag;; |
multiples modifications
|
491 |
"--cible"|"-c") |
492 |
#<nom court du groupe>|ajoute les scrutins de ce groupe, de ce ou cette députée, les colonnes seront dans l'ordre |
|
fix nom avec apostrophe
|
493 |
_groupe[${#_groupe[@]}]="${2//\'/\'\'}" |
complète re-écriture
|
494 |
shift;; |
multiples modifications
|
495 |
"--couleurs") |
496 |
#<nombre hexadécimal>:<nombre hexadécimal>|colore les colonnes en dégradé entre les deux couleurs comprises |
|
497 |
if grep -iq '[^0-9A-F:]' <<< ${2:-ERROR}; then |
|
498 |
echo "$1 ${2:-ERROR}: format attendu <nombre>:<nombre>" |
|
499 |
exit 1 |
|
500 |
elif egrep -iq '[0-9A-F]{6}:[0-9A-F]{6}' <<< ${2:-ERROR}; then |
|
501 |
from_color=${2%:*} |
|
502 |
to_color=${2#*:} |
|
503 |
else |
|
504 |
echo erreur $2: couleur RGB au format hexadécimal demandé |
|
505 |
fi |
|
complète re-écriture
|
506 |
shift;; |
sélection possible de la man...
|
507 |
"--mandature") |
508 |
mandature="$2" |
|
509 |
;; |
|
multiples modifications
|
510 |
"--scrutin") |
511 |
#<nombre>[:<nombre>]|commence la génération du résultat pour le scrutin <nombre>, ou entre les deux nombres donnés |
|
512 |
if grep -q '[^0-9:]' <<< ${2:-ERROR}; then |
|
513 |
echo "$1 ${2:-ERROR}: format attendu <nombre>[:<nombre>]" |
|
514 |
exit 1 |
|
515 |
elif egrep -q '[1-9][0-9]*(:[1-9][0-9]*)?' <<< ${2:-ERROR}; then |
|
516 |
first=${2%:*} |
|
517 |
last=${2#*:} |
|
518 |
if test $first -gt $last; then |
|
519 |
last+=:$first |
|
520 |
first=${last%:*} |
|
521 |
last=${last#*:} |
|
522 |
fi |
|
523 |
else |
|
524 |
echo "$1 ${2:-ERROR}: <nombre> ne doit pas commencer par 0" |
|
525 |
exit 1 |
|
526 |
fi |
|
527 |
shift;; |
|
complète re-écriture
|
528 |
"--premier-scrutin") |
ajout d'un message d'aide
|
529 |
#<numéro>|commence la génération du résultat à partir du scrutin <numéro> |
complète re-écriture
|
530 |
first="$2" |
531 |
shift;; |
|
532 |
"--dernier-scrutin") |
|
ajout d'un message d'aide
|
533 |
#<numéro>|termine la génération du résultat au scrutin <numéro> |
complète re-écriture
|
534 |
last="$2" |
535 |
shift;; |
|
536 |
"--période") |
|
ajout d'un message d'aide
|
537 |
#<jj/mm/aaaa:JJ/MM/AAAA>|génère un résultat pour les scrutins allant de jj/mm/aaaa à JJ/MM/AAAA |
complète re-écriture
|
538 |
periode=$true_flag |
539 |
periode_value="$2" |
|
540 |
shift;; |
|
541 |
"--liste-députés-du-groupe") |
|
multiples modifications
|
542 |
#<groupe>|liste les député·e·s du groupe <groupe> |
complète re-écriture
|
543 |
liste_deputes=$true_flag |
modifie options (amélioratio...
|
544 |
liste_deputes_value="${2}" |
complète re-écriture
|
545 |
shift;; |
546 |
"--liste-députés") |
|
ajout d'un message d'aide
|
547 |
#|liste tou-te-s les député-e-s de la mandature |
complète re-écriture
|
548 |
liste_deputes=$true_flag;; |
549 |
"--liste-dossiers") |
|
ajout d'un message d'aide
|
550 |
#|affiche une liste numérotée des dossiers et sort |
complète re-écriture
|
551 |
liste_dossiers=$true_flag;; |
552 |
"--dossier") |
|
ajout d'un message d'aide
|
553 |
#<numéro>|génère un résultat pour le dossier numéroté <numéro> |
complète re-écriture
|
554 |
dossier=$true_flag |
555 |
dossier_value="$2" |
|
556 |
shift;; |
|
557 |
"--dossiers") |
|
ajout d'un message d'aide
|
558 |
#|sélection interactive du dossier |
complète re-écriture
|
559 |
dossier=$true_flag;; |
560 |
"--conf") |
|
ajout d'un message d'aide
|
561 |
#<fichier>|indique le chemin vers le fichier de configuration. Par défaut "{_}.conf" |
complète re-écriture
|
562 |
test -r "$2" || { |
563 |
echo "config introuvable $2" >&2 |
|
564 |
options_error=$true_flag |
|
565 |
} |
|
566 |
config_file="$2" |
|
567 |
shift;; |
|
ajout de l'envoi du résultat...
|
568 |
"--mailconf") |
569 |
#<fichier>|indique le chemin vers le fichier de configuration. Par défaut "{_}.conf" |
|
570 |
test -r "$2" || { |
|
571 |
echo "config introuvable $2" >&2 |
|
572 |
options_error=$true_flag |
|
573 |
} |
|
574 |
mailconfig_file="$2" |
|
575 |
shift;; |
|
ajout de l'option de destina...
|
576 |
"--dest") |
577 |
#<répertoire>|génère le fichier dans le répertoire spécifié. Par défaut $PWD |
|
578 |
if test -n "$2" && test -d "$2" -a -r "$2"; then |
|
579 |
destination_path="$2" |
|
580 |
shift |
|
581 |
else |
|
582 |
echo "$2 n'est pas un répertoire ou n'est pas autorisé en écriture" >&2 |
|
583 |
exit 1 |
|
584 |
fi;; |
|
complète re-écriture
|
585 |
"--database") |
ajout d'un message d'aide
|
586 |
#<fichier>|indique le chemin vers la base de données SQLite3 contenant les informations. Par défaut "{_}.db" |
le fichier base de données p...
|
587 |
if test -r "$2" && file -Lb "$2" | grep -q '^SQLite 3.x database'; then |
588 |
: |
|
589 |
else |
|
complète re-écriture
|
590 |
echo "erreur sur option database: fichier '$2' introuvable ou pas une base SQLite 3" >&2 |
591 |
options_error=$true_flag |
|
modifie options (amélioratio...
|
592 |
fi |
complète re-écriture
|
593 |
database="$2" |
594 |
shift;; |
|
595 |
"--progrès-génération") |
|
ajout d'un message d'aide
|
596 |
#<chiffre>|affiche de la progression de la génération du fichier tous les <chiffre>%. Par défaut 5 |
complète re-écriture
|
597 |
generation_progress="$2" |
598 |
shift;; |
|
599 |
"--progrès-update") |
|
ajout d'un message d'aide
|
600 |
#<chiffre>|affiche de la progression de la mise à jour de la base de données tous les <chiffre>%. Par défaut 1 |
complète re-écriture
|
601 |
update_progress="$2" |
602 |
shift;; |
|
ajout de l'envoi du résultat...
|
603 |
"--mail") |
604 |
envoi_par_mail=$true_flag |
|
605 |
destinataire="$2" |
|
606 |
no_db_update=$true_flag |
|
607 |
destination_path=/dev/shm |
|
608 |
generation_progress=1000 |
|
609 |
exec > $process_token.mail 2>&1 |
|
610 |
shift;; |
|
ajout d'un message d'aide
|
611 |
"--help") |
612 |
#|affiche cette aide et quitte |
|
613 |
echo "$0 [options]" |
|
modif numéro de mandature
|
614 |
echo "génère un classeur ODS pour comparer les scrutins publics de la 16ème mandature à l'Assemblée Nationale" |
ajout d'un message d'aide
|
615 |
echo |
616 |
sed -rn '/^ *"--.+"\)/N; s/^ *"(--.+)"\)\n#(.+)$/\1|\2/p' "$0" \ |
|
617 |
| awk -F'|' -v marge=' ' -v prog="$0" '{ |
|
618 |
printf("%s %s\n" marge "%s\n\n", $1, $2, gensub("\\. ", "\\\n" marge, "g", gensub("\\{_\\}", prog, "g", $3))) |
|
619 |
}' |
|
620 |
exit;; |
|
complète re-écriture
|
621 |
esac |
622 |
shift |
|
ajout script d'analyse des v...
|
623 |
done |
écriture directe en feuille ...
|
624 | |
complète re-écriture
|
625 |
test "$options_error" = $true_flag && exit 1 |
ajout script d'analyse des v...
|
626 | |
fix configuration non sourcé...
|
627 |
if test -n "$config_file"; then |
628 |
source "$config_file" |
|
629 |
else |
|
630 |
config_file="${0}.conf" |
|
631 |
if test -r "$config_file"; then |
|
632 |
source "$config_file" |
|
633 |
fi |
|
634 |
fi |
|
635 | ||
ne bloque pas inutilement (a...
|
636 |
while true; do |
637 |
if ls -1rt /dev/shm/*."${0##*/}" | head -1 | grep -q "^$token_file$"; then |
|
638 |
# c'est notre tour |
|
639 |
break |
|
640 |
else |
|
641 |
sleep 5 |
|
642 |
fi |
|
643 |
done |
|
644 | ||
n'autorise qu'une seule exéc...
|
645 |
in_ram_database=$process_token.db |
complète re-écriture
|
646 |
if test -r "$database"; then |
647 |
cp "$database" "$in_ram_database" |
|
648 |
else |
|
649 |
create_database |
|
650 |
fi |
|
ajout script d'analyse des v...
|
651 | |
complète re-écriture
|
652 |
if test "$periode" = $true_flag; then |
corrige période d'extraction...
|
653 |
function get_date () { |
654 |
sqlite_request "select distinct(date) from scrutins order by num asc" | awk -v d="$1" -v comp=$2 ' |
|
655 |
function norm_date (date) { |
|
656 |
split(date, a, "/") |
|
657 |
return sprintf("%s%s%s", |
|
658 |
length(a[3]) == 4 ? a[3] : length(a[3]) == 2 ? "20" a[3] : strftime("%Y", systime()), |
|
659 |
length(a[2]) == 2 ? a[2] : "0" a[2], |
|
660 |
length(a[1]) == 2 ? a[1] : "0" a[1]) |
|
661 |
} |
|
662 |
function output (date) { |
|
663 |
print date |
|
664 |
found = 1 |
|
665 |
exit |
|
666 |
} |
|
667 |
BEGIN { d = norm_date(d) } |
|
668 |
{ |
|
669 |
s = norm_date($1) |
|
670 |
if (NR == 1 && s > d && comp == "first") output($1) |
|
671 |
if (s >= d && comp == "first") output($1) |
|
672 |
if (s == d && comp == "last") output($1) |
|
673 |
if (s > d && comp == "last") output(previous) |
|
674 |
previous = $1 |
|
675 |
} |
|
676 |
END { |
|
677 |
if (!found) print previous |
|
678 |
}' |
|
679 |
} |
|
680 |
first=$(sqlite_request "select min(num) from scrutins where date = '$(get_date ${periode_value%:*} first)'") |
|
681 |
last=$(sqlite_request "select max(num) from scrutins where date = '$(get_date ${periode_value#*:} last)'") |
|
ajout de l'envoi du résultat...
|
682 |
if test "$envoi_par_mail" = $true_flag; then |
683 |
texte_periode="du $(get_date ${periode_value%:*} first) (scrutin n°$first) au $(get_date ${periode_value#*:} last) (scrutin n°$last)" |
|
684 |
fi |
|
fixe dernier scrutin lorsque...
|
685 |
elif test "$dossier" != $true_flag -a "$no_db_update" = $true_flag; then |
686 |
test -z "$last" && last=$(sqlite_request "select max(num) from scrutins") |
|
fix bug sur premier scrutin
|
687 |
test -z "$first" && first=1 |
complète re-écriture
|
688 |
fi |
affiche nom du fichier des r...
|
689 | |
complète re-écriture
|
690 |
if test "$liste_dossiers" = $true_flag; then |
ajout de l'envoi du résultat...
|
691 |
if test "$envoi_par_mail" = $true_flag; then |
692 |
echo "Voici la liste des dossiers actuellement à l'étude" |
|
693 |
fi |
|
améliore la sortie des dossi...
|
694 |
sqlite_request "select printf('• %s (%s)', titre, url) from dossiers" |
complète re-écriture
|
695 |
exit |
696 |
fi |
|
697 | ||
698 |
if test "$db_update_only" = $true_flag; then |
|
699 |
unset first last |
|
factorisation
|
700 |
last=$(dernier_scrutin_public) |
complète re-écriture
|
701 |
update_database |
702 |
exit |
|
703 |
fi |
|
704 | ||
705 |
if test "$liste_deputes" = $true_flag; then |
|
706 |
if test -n "$liste_deputes_value"; then |
|
ajout de l'envoi du résultat...
|
707 |
if test "$envoi_par_mail" = $true_flag; then |
708 |
echo "Voici la liste des député·e·s du groupe dont le nom correspond au critère $liste_deputes_value" |
|
709 |
fi |
|
améliore sélection (à contin...
|
710 |
sqlite_request "select printf('%s - %s%s', |
711 |
députés.nom, |
|
712 |
groupes.nom, |
|
713 |
iif(groupes.nom_court is not null, ' [' || groupes.nom_court || ']', '')) |
|
714 |
from députés |
|
715 |
inner join groupes on groupes.id = députés.groupe |
|
716 |
where |
|
717 |
groupes.nom like '%$liste_deputes_value%' |
|
718 |
or |
|
719 |
groupes.nom_court = '$liste_deputes_value'" |
|
complète re-écriture
|
720 |
else |
ajout de l'envoi du résultat...
|
721 |
if test "$envoi_par_mail" = $true_flag; then |
722 |
echo "Voici la liste des député·e·s" |
|
723 |
fi |
|
améliore sélection (à contin...
|
724 |
sqlite_request "select printf('%s - %s%s', |
725 |
députés.nom, |
|
726 |
groupes.nom, |
|
727 |
iif(groupes.nom_court is not null, ' [' || groupes.nom_court || ']', '')) |
|
728 |
from députés |
|
729 |
inner join groupes on groupes.id = députés.groupe |
|
730 |
order by groupes.nom asc" |
|
complète re-écriture
|
731 |
fi |
732 |
exit |
|
733 |
fi |
|
écriture directe en feuille ...
|
734 | |
multiples modifications
|
735 |
for (( g = 0; g < ${#_groupe[@]}; g++ )); do |
736 |
# on vérifie si c'est un ou une député |
|
737 |
depute_count=$(sqlite_request "select count(distinct nom) from députés where nom like '%${_groupe[$g]}%'") |
|
738 |
groupe_count=$(sqlite_request "select count(distinct nom) from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'") |
|
739 |
if test $depute_count -eq 1 -a $groupe_count -ne 1; then |
|
740 |
groupe[$g]=$(sqlite_request "select distinct nom from députés where nom like '%${_groupe[$g]}%'") |
|
fix nom avec apostrophe
|
741 |
id_groupe[$g]=députés:$(sqlite_request "select group_concat(id) from députés where nom is '${groupe[$g]//\'/\'\'}'") |
multiples modifications
|
742 |
elif test $groupe_count -eq 1 -a $depute_count -ne 1; then |
743 |
groupe[$g]=$(sqlite_request "select distinct nom from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'") |
|
fix nom avec apostrophe
|
744 |
id_groupe[$g]=groupes:$(sqlite_request "select id from groupes where nom is '${groupe[$g]//\'/\'\'}'") |
multiples modifications
|
745 |
elif test $groupe_count -eq 1 -a $depute_count -eq 1; then |
améliore l'affichage des err...
|
746 |
echo "dénomination ambigüe pour « ${_groupe[$g]} »" |
747 |
sqlite_request "select printf('député·e: %s', distinct nom) from députés where nom like '%${_groupe[$g]}%'" | grep --color=always -i "${_groupe[$g]}" |
|
748 |
sqlite_request "select printf('groupe : %s', distinct nom) from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'" | grep --color=always -i "${_groupe[$g]}" |
|
749 |
echo |
|
multiples modifications
|
750 |
elif test $depute_count -gt 1; then |
améliore l'affichage des err...
|
751 |
echo "plusieurs député·e·s trouvé·e·s correspondant à « ${_groupe[$g]} »" |
752 |
sqlite_request "select distinct nom from députés where nom like '%${_groupe[$g]}%'" | grep --color=always -i "${_groupe[$g]}" |
|
753 |
echo |
|
multiples modifications
|
754 |
elif test $groupe_count -gt 1; then |
améliore l'affichage des err...
|
755 |
echo "plusieurs groupes trouvés correspondant à « ${_groupe[$g]} »" |
756 |
sqlite_request "select distinct nom from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'" | grep --color=always -i "${_groupe[$g]}" |
|
757 |
echo |
|
multiples modifications
|
758 |
else |
améliore l'affichage des err...
|
759 |
echo "aucun·e député·e ou groupe ne correspond au critère « ${_groupe[$g]} »" |
760 |
echo |
|
complète re-écriture
|
761 |
fi |
multiples modifications
|
762 |
done |
complète re-écriture
|
763 | |
ajout de l'envoi du résultat...
|
764 |
if test -s $process_token.mail; then |
765 |
exit 1 |
|
766 |
fi |
|
767 | ||
complète re-écriture
|
768 |
update_database |
769 |
write_comparaison |
|
ajout de l'envoi du résultat...
|
770 | |
771 |
if test "$envoi_par_mail" = $true_flag; then |
|
772 |
echo Vous pourrez trouver en pièce-jointe les résultats demandés avec ces critères: |
|
773 |
if test ${#groupe[@]} -gt 0; then |
|
774 |
echo "votes des groupes et député·e·s suivant·e·s:" |
|
775 |
printf " • %s\n" "${groupe[@]}" |
|
776 |
fi |
|
777 |
if test "$periode" = $true_flag; then |
|
778 |
echo sur la période allant $texte_periode |
|
779 |
fi |
|
780 |
fi |