scripts / analyse-votes-AN /
Newer Older
797 lines | 38.522kb
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
1
#!/bin/bash
2

            
fix info parfois manquante s...
Sébastien MARQUE authored on 2021-11-21
3
set -e
4

            
n'autorise qu'une seule exéc...
seb authored on 2022-08-17
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...
Sébastien MARQUE authored on 2022-07-30
9
for tool in sqlite3 getopt mktemp w3m jq; do
complète re-écriture
Sébastien Marque authored on 2019-04-27
10
    which $tool > /dev/null 2>&1 || {
11
        echo missing tool $tool
12
        exit 1
13
    }
plus de souplesse dans les p...
Sébastien MARQUE authored on 2019-02-20
14
done
15

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
16
IFS_=$IFS
17

            
amélioration code
Sébastien Marque authored on 2019-05-30
18
function sqlite_request () {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
19
    sqlite3 ${2:+-cmd} ${2:+".mode $2"} "$in_ram_database" <<< "$1"
amélioration code
Sébastien Marque authored on 2019-05-30
20
}
21

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
22
function create_database () {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
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
Sébastien Marque authored on 2019-04-27
32

            
33
    for v in Pour Contre Abstention Non-votant; do
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
34
        sqlite_request "insert or ignore into votes (nom) values ('$v')"
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
35
    done
complète re-écriture
Sébastien Marque authored on 2019-04-27
36
}
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
37

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
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...
Sébastien MARQUE authored on 2022-07-30
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/&#039;/'/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
Sébastien Marque authored on 2019-04-27
54
    first_=$first
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
55
    first=$(sqlite_request "select max(num) from scrutins")
complète re-écriture
Sébastien Marque authored on 2019-04-27
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...
Sébastien MARQUE authored on 2019-02-17
58

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
59
        test $((last % 100)) -ne 0 && last_offset=0
fix dossiers manquants
Sébastien MARQUE authored on 2019-12-09
60
        IFS=$' \t\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
61
        for offset in $(seq $((last - 100)) -100 ${first:-0} ) $last_offset; do
sélection possible de la man...
Sébastien MARQUE authored on 2021-02-13
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...
Sébastien MARQUE authored on 2022-07-30
63
                | awk -v dq='"' '
64
                    BEGIN {
65
                    }
complète re-écriture
Sébastien Marque authored on 2019-04-27
66
                    /<td class="denom">/ {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
67
                        scrutin = gensub(/^.+denom.>([[:digit:]]+)\\*?<.td./,"\\1","1",$0)
complète re-écriture
Sébastien Marque authored on 2019-04-27
68
                    }
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
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
Sébastien Marque authored on 2019-04-27
72
                    }
73
                    END {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
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
Sébastien Marque authored on 2019-04-27
79
        done
80

            
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
81

            
82
#        IFS=$'\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
83
        begin=$(date +%s)
84
        for scrutin in $(seq $((${first:-0}+1)) $last); do
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
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...
Sébastien MARQUE authored on 2022-10-13
106
                                                    while ($1 != "Groupe" || $0 != "Contenus annexes") {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
107
                                                        getline
non-votant dans le dernier g...
Sébastien MARQUE authored on 2022-10-13
108
                                                        if ($1 == "Groupe" || $0 == "Contenus annexes")
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
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...
Sébastien MARQUE authored on 2022-10-13
118
                /^  • /                           { votes[groupe][position][gensub("^[^A-Z]*", "", "1")]++ }
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
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 ...
Sébastien MARQUE authored on 2019-03-31
157

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
158

            
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
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
Sébastien Marque authored on 2019-04-27
161
                if test $(($progress % ${update_progress:-1})) -eq 0; then
162
                    now=$(date +%s)
163
                    delta=$(( $now - $begin ))
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
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
Sébastien Marque authored on 2019-04-27
166
                fi
167
            fi
168
        done
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
169
        sqlite_request 'drop table dossier_par_scrutin'
170

            
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
171
        echo -e "\r\033[KTerminé: $(($scrutin - ${first:-0} - 1)) scrutins ajoutés"
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
172
        rm -f "$tempfile"
complète re-écriture
Sébastien Marque authored on 2019-04-27
173
    fi
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
174
    first=$first_
complète re-écriture
Sébastien Marque authored on 2019-04-27
175
}
176

            
177
function write_comparaison () {
multiples modifications
Sébastien MARQUE authored on 2022-08-07
178
    result="scrutins ($(sum <<< "${groupe[@]}" | cut -b1-5))${dossier:+ - ${dossier}}"
ajout de l'envoi du résultat...
seb authored on 2022-08-17
179
    if test "$envoi_par_mail" = $true_flag; then
180
        result="scrutins"
181
    fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
182
    content="/dev/shm/$result/content.xml"
multiples modifications
Sébastien MARQUE authored on 2022-08-07
183
    id_cols=(Scrutin Date Séance Titre Adoption Dossier)
changement de style de sorti...
seb authored on 2022-12-02
184
    declare -A style=(["Pour"]=Good ["Contre"]=Bad ["Abstention"]=Neutral ["oui"]=Good ["non"]=Bad)
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
185
    eval $(sqlite_request 'select printf("typevotes[%i]=%s;", id, nom) from votes')
changement de style de sorti...
seb authored on 2022-12-02
186
    nb_cols=$(( ${#id_cols[@]} + ${#groupe[@]} ))
multiples modifications
Sébastien MARQUE authored on 2022-08-07
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
    '))
changement de style de sorti...
seb authored on 2022-12-02
209
    function get_colname () {
210
        awk -v n=$1 '
211
            BEGIN{
212
                printf("%c%c", n < 27 ? "" : int(n/26) + 64, (n % 26) + (n % 26 == 0 ? 26 : 0) + 64)
213
            }' | tr -d '\0'
214
    }
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
215
    function write_cell () {
changement de style de sorti...
seb authored on 2022-12-02
216
        cell='<table:table-cell office:value-type='
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
217
        case $1 in
218
            url)
changement de style de sorti...
seb authored on 2022-12-02
219
                cell+='"string" calcext:value-type="string">'
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
220
                cell+="<text:p><text:a xlink:href=$2 xlink:type=\"simple\">$3</text:a></text:p>"
221
                ;;
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
222
            texte)
changement de style de sorti...
seb authored on 2022-12-02
223
                cell+='"string" calcext:value-type="string"'${style[${2:- }]:+ table:style-name=\"${style[$2]}\"}'>'
224
                cell+="<text:p>${2:- }</text:p>"
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
225
                ;;
226
            nombre)
changement de style de sorti...
seb authored on 2022-12-02
227
                cell+='"float" office:value="'$2'" calcext:value-type="float">'
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
228
                cell+="<text:p>$2</text:p>"
229
                ;;
changement de style de sorti...
seb authored on 2022-12-02
230
            formule)
231
                cell+='"string" table:formula="of:='"$2"'" calcext:value-type="string"'${3:+ table:style-name=\"${3}\"}'>'
232
                ;;
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
233
            *)
234
                return 1;;
235
        esac
236
        cell+='</table:table-cell>'
237
        echo $cell >> "$content"
238
    }
complète re-écriture
Sébastien Marque authored on 2019-04-27
239

            
ajout de l'envoi du résultat...
seb authored on 2022-08-17
240
    if test -z "$envoi_par_mail"; then
241
        echo "génération du fichier $result"
242
    fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
243

            
244
    mkdir -p "/dev/shm/$result/META-INF"
245

            
246
    cat > "/dev/shm/$result/META-INF/manifest.xml" << EOmetainf
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
247
<?xml version="1.0" encoding="UTF-8"?>
248
<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0" manifest:version="1.2">
249
 <manifest:file-entry manifest:full-path="/" manifest:version="1.2" manifest:media-type="application/vnd.oasis.opendocument.spreadsheet"/>
250
 <manifest:file-entry manifest:full-path="content.xml" manifest:media-type="text/xml"/>
251
</manifest:manifest>
252
EOmetainf
253

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
254
    printf 'application/vnd.oasis.opendocument.spreadsheet' > "/dev/shm/$result/mimetype"
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
255

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
256
    echo '<?xml version="1.0" encoding="UTF-8"?>' > "$content"
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
257

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
258
    cat >> "$content" << EOcontent
259
    <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">
260
    <office:scripts/>
261
    <office:font-face-decls>
262
    <style:font-face style:name="Liberation Sans" svg:font-family="&apos;Liberation Sans&apos;" style:font-family-generic="swiss" style:font-pitch="variable"/>
263
    <style:font-face style:name="DejaVu Sans" svg:font-family="&apos;DejaVu Sans&apos;" style:font-family-generic="system" style:font-pitch="variable"/>
264
    <style:font-face style:name="FreeSans" svg:font-family="FreeSans" style:font-family-generic="system" style:font-pitch="variable"/>
265
    </office:font-face-decls>
266
    <office:automatic-styles>
267
EOcontent
268

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
269
    IFS=$'\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
270
    for i in $(seq $nb_cols); do
271
        cat >> "$content" << EOcontent
272
            <style:style style:name="co$i" style:family="table-column">
273
            <style:table-column-properties fo:break-before="auto" style:column-width="30.00mm"/>
274
            </style:style>
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
275
EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
276
    done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
277

            
278
    cat >> "$content" << EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
279
    <style:style style:name="ro1" style:family="table-row">
280
    <style:table-row-properties style:row-height="4.52mm" fo:break-before="auto" style:use-optimal-row-height="true"/>
281
    </style:style>
282
    <style:style style:name="ta1" style:family="table" style:master-page-name="Default">
283
    <style:table-properties table:display="true" style:writing-mode="lr-tb"/>
284
    </style:style>
changement de style de sorti...
seb authored on 2022-12-02
285
    <style:style style:name="T1" style:family="text">
286
    <style:text-properties fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold" fo:color="#5eb91e"/>
287
    </style:style>
288
    <style:style style:name="T2" style:family="text">
289
    <style:text-properties fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold" fo:color="#c9211e"/>
290
    </style:style>
291
    <style:style style:name="T3" style:family="text">
292
    <style:text-properties fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold" fo:color="#e8a202"/>
293
    </style:style>
multiples modifications
Sébastien MARQUE authored on 2022-08-07
294
EOcontent
295

            
296
    for i in $(seq ${#groupe[@]}); do
297
        cat >> "$content" << EOcontent
changement de style de sorti...
seb authored on 2022-12-02
298
        <style:style style:name="groupe$i" style:family="table-cell" style:parent-style-name="Default">
multiples modifications
Sébastien MARQUE authored on 2022-08-07
299
        <style:table-cell-properties fo:wrap-option="wrap" style:vertical-align="middle" fo:background-color="#${colors[$i]%:*}"/>
300
        <style:text-properties fo:hyphenate="false" fo:color="#${colors[$i]}"/>
301
        </style:style>
302
EOcontent
303
    done
304

            
305
    cat >> "$content" << EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
306
    </office:automatic-styles>
307
    <office:body>
308
    <office:spreadsheet>
309
    <table:calculation-settings table:automatic-find-labels="false"/>
310
    <table:table table:name="$result" table:style-name="ta1">
311
    <office:forms form:automatic-focus="false" form:apply-design-mode="false"/>
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
312
    <table:table-column table:style-name="co1" table:number-columns-repeated="${#id_cols[@]}" table:default-cell-style-name="Default"/>
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
313
EOcontent
314

            
changement de style de sorti...
seb authored on 2022-12-02
315
    for g in $(seq ${#groupe[@]}); do
316
        cat >> "$content" << EOcontent
317
        <table:table-column table:style-name="co1" table:default-cell-style-name="ce$g"/>
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
318
EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
319
    done
320
    echo '<table:table-row table:style-name="ro1">' >> "$content"
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
321

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
322
    IFS=$IFS_
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
323
    for colonne in ${id_cols[@]}; do
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
324
        write_cell texte $colonne
complète re-écriture
Sébastien Marque authored on 2019-04-27
325
    done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
326

            
changement de style de sorti...
seb authored on 2022-12-02
327
    for (( g=0; g<${#groupe[@]}; g++ )); do
328
        colname=$(get_colname $(( ${#id_cols[@]} + $g + 1)) )
329
        write_cell formule "COM.MICROSOFT.CONCAT(&quot;${groupe[$g]} (&quot;; $(($last-$first+1))-COUNTIF([.${colname}2:.${colname}$(($last-$first+2))];&quot; &quot;); &quot;)&quot;)" groupe$(($g+1))
complète re-écriture
Sébastien Marque authored on 2019-04-27
330
    done
331

            
332
    echo '</table:table-row>' >> "$content"
333

            
334
    progress=0
335
    begin=$(date +%s)
336
    line=1
améliore progression
Sébastien Marque authored on 2019-05-03
337
    test -z "$seq" && qty=$(( $last - $first ))
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
338
    IFS=$'\n'
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
339
    scrutin_base_url="https://www2.assemblee-nationale.fr/scrutins/detail/(legislature)/$mandature/(num)/"
complète re-écriture
Sébastien Marque authored on 2019-04-27
340
    for scrutin in $(eval ${seq:-seq $first $last}); do
341

            
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
342
        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)
343
        date=$(jq -r '.[].date' <<< $data)
344
        seance=$(jq -r '.[]."séance"' <<< $data)
345
        title=$(jq -r '.[]."intitulé" | @html' <<< $data)
346
        adoption=$(jq '.[].adoption' <<< $data)
347
        dossier_url=$(jq '.[].url' <<< $data)
348
        dossier_texte=$(jq -r '.[].titre | @html' <<< $data)
complète re-écriture
Sébastien Marque authored on 2019-04-27
349
        test $adoption -eq 1 && adoption='oui' || adoption='non'
groupe de référence: GDR
Sébastien MARQUE authored on 2019-02-17
350

            
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
351
        echo '<table:table-row table:style-name="ro1">' >> "$content"
352

            
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
353
        write_cell url   "\"$scrutin_base_url$scrutin\"" $scrutin
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
354
        write_cell texte "$date"
améliore le fichier de sorti...
Sébastien MARQUE authored on 2022-07-30
355
        write_cell texte "$seance"
356
        write_cell texte "$title"
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
357
        write_cell texte "$adoption"
multiples modifications
Sébastien MARQUE authored on 2022-08-07
358
        write_cell url   "${dossier_url/#null/\"\"}" "${dossier_texte/#null}"
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
359

            
multiples modifications
Sébastien MARQUE authored on 2022-08-07
360
        unset votes
changement de style de sorti...
seb authored on 2022-12-02
361
        for (( g = 0; g < ${#groupe[@]}; g++ )); do
362
            case ${id_groupe[$g]%:*} in
363
                groupes)
364
                    unset _vote
365
                    eval $(sqlite_request "select '_vote[' || vote || ']=' || count(vote) from dépouillements
366
                                           where scrutin = $scrutin and député in (
367
                                               select id from députés
368
                                               where groupe in (${id_groupe[$g]#*:})
369
                                           )
370
                                           group by vote")
371
                    if test ${#_vote[@]} -gt 0; then
372
                        unset _votes
373
                        for i in {1..3}; do
374
                            _votes+="<text:span text:style-name=\"T$i\">${_vote[$i]:-0}</text:span> / "
375
                        done
376
                        _votes+="${_vote[4]:-0}"
377
                        votes[${#votes[@]}]=$_votes
378
                    else
379
                        votes[${#votes[@]}]=" "
380
                    fi
381
                ;;
382
                députés)
383
                    votes[${#votes[@]}]=$(sqlite_request "select nom from votes
384
                                                          where id in (
385
                                                              select vote from dépouillements
386
                                                              where scrutin = $scrutin and député in (${id_groupe[$g]#*:})
387
                                                          )")
388
                ;;
389
            esac
multiples modifications
Sébastien MARQUE authored on 2022-08-07
390
        done
391
        for ((i = 0; i < ${#votes[@]}; i ++)); do
changement de style de sorti...
seb authored on 2022-12-02
392
            write_cell texte ${votes[$i]}
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
393
        done
complète re-écriture
Sébastien Marque authored on 2019-04-27
394
        echo '</table:table-row>' >> "$content"
395

            
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
396
        if test $(( ($line * 100) / ${qty:-$last} )) -ne $progress; then
397
            progress=$(( ($line * 100) / ${qty:-$last} ))
398
            if test $(( $progress % ${generation_progress:-5} )) -eq 0; then
complète re-écriture
Sébastien Marque authored on 2019-04-27
399
                now=$(date +%s)
400
                delta=$(( $now - $begin ))
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
401
                printf "\r%d%%, ETA %s" $progress $(date +%H:%M:%S -d "$(( $delta * (${qty:-$last} - $line) / $line )) seconds")
complète re-écriture
Sébastien Marque authored on 2019-04-27
402
            fi
403
        fi
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
404

            
405
        let line++
406

            
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
407
    done
complète re-écriture
Sébastien Marque authored on 2019-04-27
408

            
409
    cat >> "$content" << EOcontent
410
    </table:table>
411
    <table:named-expressions/>
412
    <table:database-ranges>
changement de style de sorti...
seb authored on 2022-12-02
413
    <table:database-range table:name="__Anonymous_Sheet_DB__0" table:target-range-address="&apos;$result&apos;.D1:&apos;$result&apos;.$(get_colname $nb_cols)$line" table:display-filter-buttons="true"/>
complète re-écriture
Sébastien Marque authored on 2019-04-27
414
    </table:database-ranges>
415
    </office:spreadsheet>
416
    </office:body>
417
    </office:document-content>
418
EOcontent
419

            
420
    ( cd "/dev/shm/$result" && zip -r ../"$result" * > /dev/null 2>&1 && cd .. && rm -fr "$result" )
421

            
ajout de l'option de destina...
Sébastien MARQUE authored on 2022-07-30
422
    mv -f "/dev/shm/$result.zip" "${destination_path:+$destination_path/}$result.ods"
complète re-écriture
Sébastien Marque authored on 2019-04-27
423

            
ajout de l'envoi du résultat...
seb authored on 2022-08-17
424
    if test -z "$envoi_par_mail"; then
425
        echo -e "\r\033[KTerminé : ${destination_path:+$destination_path/}$result.ods"
426
    fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
427
}
428

            
429
function save_database () {
ne bloque pas inutilement (a...
seb authored on 2022-11-19
430
    rm -f  "$token_file"
améliore abandon
Sébastien MARQUE authored on 2020-02-23
431
    test -n "$result" -a -d "/dev/shm/$result" && rm -fr "/dev/shm/$result"
améliore le trap
Sébastien Marque authored on 2019-04-27
432
    test -n "$database" -a -n "$in_ram_database" || return
ajout de l'envoi du résultat...
seb authored on 2022-08-17
433
    if test "$envoi_par_mail" = $true_flag; then
434
        if test -n "$mailconfig_file" && test -r "$mailconfig_file"; then
435
            source "$mailconfig_file"
436
        elif test -r "/usr/local/etc/${0##*/}.mail.conf"; then
437
            source "/usr/local/etc/${0##*/}.mail.conf"
438
        fi
439
        stat -Lc "(date de mise à jour de la base: %x)" $database
440
        cat > $process_token.headers << EOC
441
From: ${from_mail:?}
442
To: $destinataire
443
Subject: les scrutins demandés
444
EOC
445
        curl_opt=(
446
                --url smtp://${smtp_address:?}:${smtp_port:?}
447
                --mail-rcpt $destinataire
448
                -H @$process_token.headers
449
                -F "=(;type=multipart/alternative"
450
                -F "=<$process_token.txt;encoder=quoted-printable"
451
                -F "=<$process_token.html;encoder=quoted-printable"
452
                -F "=)"
453
        )
454
        if test -r "${destination_path:+$destination_path/}$result.ods"; then
455
            curl_opt[${#curl_opt[@]}]="-F"
456
            curl_opt[${#curl_opt[@]}]="=@${destination_path:+$destination_path/}$result.ods;encoder=base64"
457
        fi
458
        exec 1>&-
459
        aha -f $process_token.mail -t "envoi automatisé" > $process_token.html
460
        w3m -dump $process_token.html > $process_token.txt
461
        curl ${curl_opt[@]}
462
        rm -f "${destination_path:+$destination_path/}$result.ods" $process_token*
463
    elif test -r "$database" && sqldiff=$(sqldiff $in_ram_database $database) && test -z "$sqldiff"; then
améliore la sauvegarde de la...
Sébastien MARQUE authored on 2022-07-30
464
        echo "pas de modification"
complète re-écriture
Sébastien Marque authored on 2019-04-27
465
    elif test -w "$database"; then
améliore la sauvegarde de la...
Sébastien MARQUE authored on 2022-07-30
466
        rm -f "$database"
467
        sqlite_request '.dump' | sqlite3 "$database"
468
        echo "base de données $database mise à jour"
469
    elif test ! -e "$database" -a -w ${database%/*}; then
470
        sqlite_request '.dump' | sqlite3 "$database"
471
        echo "base de données $database créée"
complète re-écriture
Sébastien Marque authored on 2019-04-27
472
    else
améliore la sauvegarde de la...
Sébastien MARQUE authored on 2022-07-30
473
        echo "je ne peux rien faire avec $database !"
complète re-écriture
Sébastien Marque authored on 2019-04-27
474
    fi
ne bloque pas inutilement (a...
seb authored on 2022-11-19
475
    rm -f "$in_ram_database" "$tempfile"
complète re-écriture
Sébastien Marque authored on 2019-04-27
476
}
477

            
factorisation
Sébastien MARQUE authored on 2020-02-08
478
function dernier_scrutin_public () {
sélection possible de la man...
Sébastien MARQUE authored on 2021-02-13
479
    wget -qO- "http://www2.assemblee-nationale.fr/scrutins/liste/(legislature)/$mandature/(type)/TOUS/(idDossier)/TOUS" \
corrige récupération du numé...
Sébastien MARQUE authored on 2022-07-30
480
            | sed -rn 's/^.*<td class="denom">([0-9]+)[^0-9].*$/\1/p' \
factorisation
Sébastien MARQUE authored on 2020-02-08
481
            | head -1
482
}
483

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
484
trap save_database EXIT
485

            
corrige la configuration écr...
Sébastien MARQUE authored on 2022-07-30
486
test -z "$database" && database="${0}.db"
487

            
fix configuration non sourcé...
seb authored on 2022-11-28
488
echo "$0 $@" > $token_file
corrige la configuration écr...
Sébastien MARQUE authored on 2022-07-30
489
declare -A acronymes
complète re-écriture
Sébastien Marque authored on 2019-04-27
490
true_flag=$(mktemp --dry-run XXXXX)
491

            
492
while [[ $# -gt 0 ]]; do
493
    case "$1" in
494
        "--no-db-update")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
495
#|ne met pas à jour la base de données
multiples modifications
Sébastien MARQUE authored on 2022-08-07
496
            if test ${db_update_only:-OK} = $true_flag; then
497
                echo "option incompatible avec --db-update-only"
498
                exit 1
499
            fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
500
            no_db_update=$true_flag;;
501
        "--db-update-only")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
502
#|ne génère pas de fichier de résultat
multiples modifications
Sébastien MARQUE authored on 2022-08-07
503
            if test ${no_db_update:-OK} = $true_flag; then
504
                echo "option incompatible avec --no-db-update"
505
                exit 1
506
            fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
507
            db_update_only=$true_flag;;
multiples modifications
Sébastien MARQUE authored on 2022-08-07
508
        "--cible"|"-c")
509
#<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
seb authored on 2022-08-17
510
            _groupe[${#_groupe[@]}]="${2//\'/\'\'}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
511
            shift;;
multiples modifications
Sébastien MARQUE authored on 2022-08-07
512
        "--couleurs")
513
#<nombre hexadécimal>:<nombre hexadécimal>|colore les colonnes en dégradé entre les deux couleurs comprises
514
            if grep -iq '[^0-9A-F:]' <<< ${2:-ERROR}; then
515
                echo "$1 ${2:-ERROR}: format attendu <nombre>:<nombre>"
516
                exit 1
517
            elif egrep -iq '[0-9A-F]{6}:[0-9A-F]{6}' <<< ${2:-ERROR}; then
518
                from_color=${2%:*}
519
                to_color=${2#*:}
520
            else
521
                echo erreur $2: couleur RGB au format hexadécimal demandé
522
            fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
523
            shift;;
sélection possible de la man...
Sébastien MARQUE authored on 2021-02-13
524
        "--mandature")
525
           mandature="$2"
526
           ;;
multiples modifications
Sébastien MARQUE authored on 2022-08-07
527
        "--scrutin")
528
#<nombre>[:<nombre>]|commence la génération du résultat pour le scrutin <nombre>, ou entre les deux nombres donnés
529
            if grep -q '[^0-9:]' <<< ${2:-ERROR}; then
530
                echo "$1 ${2:-ERROR}: format attendu <nombre>[:<nombre>]"
531
                exit 1
532
            elif egrep -q '[1-9][0-9]*(:[1-9][0-9]*)?' <<< ${2:-ERROR}; then
533
                first=${2%:*}
534
                last=${2#*:}
535
                if test $first -gt $last; then
536
                    last+=:$first
537
                    first=${last%:*}
538
                    last=${last#*:}
539
                fi
540
            else
541
                echo "$1 ${2:-ERROR}: <nombre> ne doit pas commencer par 0"
542
                exit 1
543
            fi
544
            shift;;
complète re-écriture
Sébastien Marque authored on 2019-04-27
545
        "--premier-scrutin")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
546
#<numéro>|commence la génération du résultat à partir du scrutin <numéro>
complète re-écriture
Sébastien Marque authored on 2019-04-27
547
            first="$2"
548
            shift;;
549
        "--dernier-scrutin")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
550
#<numéro>|termine la génération du résultat au scrutin <numéro>
complète re-écriture
Sébastien Marque authored on 2019-04-27
551
            last="$2"
552
            shift;;
553
        "--période")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
554
#<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
Sébastien Marque authored on 2019-04-27
555
            periode=$true_flag
556
            periode_value="$2"
557
            shift;;
558
        "--liste-députés-du-groupe")
multiples modifications
Sébastien MARQUE authored on 2022-08-07
559
#<groupe>|liste les député·e·s du groupe <groupe>
complète re-écriture
Sébastien Marque authored on 2019-04-27
560
            liste_deputes=$true_flag
modifie options (amélioratio...
Sébastien MARQUE authored on 2022-07-30
561
            liste_deputes_value="${2}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
562
            shift;;
563
        "--liste-députés")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
564
#|liste tou-te-s les député-e-s de la mandature
complète re-écriture
Sébastien Marque authored on 2019-04-27
565
            liste_deputes=$true_flag;;
566
        "--liste-dossiers")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
567
#|affiche une liste numérotée des dossiers et sort
complète re-écriture
Sébastien Marque authored on 2019-04-27
568
            liste_dossiers=$true_flag;;
569
        "--dossier")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
570
#<numéro>|génère un résultat pour le dossier numéroté <numéro>
complète re-écriture
Sébastien Marque authored on 2019-04-27
571
            dossier=$true_flag
572
            dossier_value="$2"
573
            shift;;
574
        "--dossiers")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
575
#|sélection interactive du dossier
complète re-écriture
Sébastien Marque authored on 2019-04-27
576
            dossier=$true_flag;;
577
        "--conf")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
578
#<fichier>|indique le chemin vers le fichier de configuration. Par défaut "{_}.conf"
complète re-écriture
Sébastien Marque authored on 2019-04-27
579
            test -r "$2" || {
580
                echo "config introuvable $2" >&2
581
                options_error=$true_flag
582
            }
583
            config_file="$2"
584
            shift;;
ajout de l'envoi du résultat...
seb authored on 2022-08-17
585
        "--mailconf")
586
#<fichier>|indique le chemin vers le fichier de configuration. Par défaut "{_}.conf"
587
            test -r "$2" || {
588
                echo "config introuvable $2" >&2
589
                options_error=$true_flag
590
            }
591
            mailconfig_file="$2"
592
            shift;;
ajout de l'option de destina...
Sébastien MARQUE authored on 2022-07-30
593
        "--dest")
594
#<répertoire>|génère le fichier dans le répertoire spécifié. Par défaut $PWD
595
            if test -n "$2" && test -d "$2" -a -r "$2"; then
596
                destination_path="$2"
597
                shift
598
            else
599
                echo "$2 n'est pas un répertoire ou n'est pas autorisé en écriture" >&2
600
                exit 1
601
            fi;;
complète re-écriture
Sébastien Marque authored on 2019-04-27
602
        "--database")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
603
#<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...
seb authored on 2022-08-17
604
            if test -r "$2" && file -Lb "$2" | grep -q '^SQLite 3.x database'; then
605
                :
606
            else
complète re-écriture
Sébastien Marque authored on 2019-04-27
607
                echo "erreur sur option database: fichier '$2' introuvable ou pas une base SQLite 3" >&2
608
                options_error=$true_flag
modifie options (amélioratio...
Sébastien MARQUE authored on 2022-07-30
609
            fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
610
            database="$2"
611
            shift;;
612
        "--progrès-génération")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
613
#<chiffre>|affiche de la progression de la génération du fichier tous les <chiffre>%. Par défaut 5
complète re-écriture
Sébastien Marque authored on 2019-04-27
614
            generation_progress="$2"
615
            shift;;
616
        "--progrès-update")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
617
#<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
Sébastien Marque authored on 2019-04-27
618
            update_progress="$2"
619
            shift;;
ajout de l'envoi du résultat...
seb authored on 2022-08-17
620
        "--mail")
621
            envoi_par_mail=$true_flag
622
            destinataire="$2"
623
            no_db_update=$true_flag
624
            destination_path=/dev/shm
625
            generation_progress=1000
626
            exec > $process_token.mail 2>&1
627
            shift;;
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
628
        "--help")
629
#|affiche cette aide et quitte
630
            echo "$0 [options]"
modif numéro de mandature
seb authored on 2022-08-17
631
            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
Sébastien Marque authored on 2019-04-27
632
            echo
633
            sed -rn '/^ *"--.+"\)/N; s/^ *"(--.+)"\)\n#(.+)$/\1|\2/p' "$0" \
634
                | awk -F'|' -v marge='  ' -v prog="$0" '{
635
                    printf("%s %s\n" marge "%s\n\n", $1, $2, gensub("\\. ", "\\\n" marge, "g", gensub("\\{_\\}", prog, "g", $3)))
636
                }'
637
            exit;;
complète re-écriture
Sébastien Marque authored on 2019-04-27
638
    esac
639
    shift
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
640
done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
641

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
642
test "$options_error" = $true_flag && exit 1
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
643

            
fix configuration non sourcé...
seb authored on 2022-11-28
644
if test -n "$config_file"; then
645
    source "$config_file"
646
else
647
    config_file="${0}.conf"
648
    if test -r "$config_file"; then
649
        source "$config_file"
650
    fi
651
fi
652

            
ne bloque pas inutilement (a...
seb authored on 2022-11-19
653
while true; do
654
    if ls -1rt /dev/shm/*."${0##*/}" | head -1 | grep -q "^$token_file$"; then
655
        # c'est notre tour
656
        break
657
    else
658
        sleep 5
659
    fi
660
done
661

            
n'autorise qu'une seule exéc...
seb authored on 2022-08-17
662
in_ram_database=$process_token.db
complète re-écriture
Sébastien Marque authored on 2019-04-27
663
if test -r "$database"; then
664
    cp "$database" "$in_ram_database"
665
else
666
    create_database
667
fi
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
668

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
669
if test "$periode" = $true_flag; then
corrige période d'extraction...
Sébastien MARQUE authored on 2022-07-30
670
    function get_date () {
671
        sqlite_request "select distinct(date) from scrutins order by num asc" | awk -v d="$1" -v comp=$2 '
672
            function norm_date (date) {
673
                split(date, a, "/")
674
                return sprintf("%s%s%s",
675
                    length(a[3]) == 4 ? a[3] : length(a[3]) == 2 ? "20" a[3] : strftime("%Y", systime()),
676
                    length(a[2]) == 2 ? a[2] : "0" a[2],
677
                    length(a[1]) == 2 ? a[1] : "0" a[1])
678
            }
679
            function output (date) {
680
                print date
681
                found = 1
682
                exit
683
            }
684
            BEGIN { d = norm_date(d) }
685
            {
686
                s = norm_date($1)
687
                if (NR == 1 && s > d && comp == "first") output($1)
688
                if (s >= d && comp == "first") output($1)
689
                if (s == d && comp == "last")  output($1)
690
                if (s >  d && comp == "last")  output(previous)
691
                previous = $1
692
            }
693
            END {
694
                if (!found) print previous
695
            }'
696
    }
697
    first=$(sqlite_request "select min(num) from scrutins where date = '$(get_date ${periode_value%:*} first)'")
698
    last=$(sqlite_request "select max(num) from scrutins where date = '$(get_date ${periode_value#*:} last)'")
ajout de l'envoi du résultat...
seb authored on 2022-08-17
699
    if test "$envoi_par_mail" = $true_flag; then
700
        texte_periode="du $(get_date ${periode_value%:*} first) (scrutin n°$first) au $(get_date ${periode_value#*:} last) (scrutin n°$last)"
701
    fi
fixe dernier scrutin lorsque...
seb authored on 2022-12-02
702
elif test "$dossier" != $true_flag -a "$no_db_update" = $true_flag; then
703
    test -z "$last" && last=$(sqlite_request "select max(num) from scrutins")
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
704
    test -z "$first" && first=1
complète re-écriture
Sébastien Marque authored on 2019-04-27
705
fi
affiche nom du fichier des r...
Sébastien MARQUE authored on 2019-03-30
706

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
707
if test "$liste_dossiers" = $true_flag; then
ajout de l'envoi du résultat...
seb authored on 2022-08-17
708
    if test "$envoi_par_mail" = $true_flag; then
709
        echo "Voici la liste des dossiers actuellement à l'étude"
710
    fi
améliore la sortie des dossi...
Sébastien MARQUE authored on 2022-07-30
711
    sqlite_request "select printf('• %s (%s)', titre, url) from dossiers"
complète re-écriture
Sébastien Marque authored on 2019-04-27
712
    exit
713
fi
714

            
715
if test "$db_update_only" = $true_flag; then
716
    unset first last
factorisation
Sébastien MARQUE authored on 2020-02-08
717
    last=$(dernier_scrutin_public)
complète re-écriture
Sébastien Marque authored on 2019-04-27
718
    update_database
719
    exit
720
fi
721

            
722
if test "$liste_deputes" = $true_flag; then
723
    if test -n "$liste_deputes_value"; then
ajout de l'envoi du résultat...
seb authored on 2022-08-17
724
        if test "$envoi_par_mail" = $true_flag; then
725
            echo "Voici la liste des député·e·s du groupe dont le nom correspond au critère $liste_deputes_value"
726
        fi
améliore sélection (à contin...
Sébastien MARQUE authored on 2022-07-30
727
        sqlite_request "select printf('%s - %s%s',
728
                                      députés.nom,
729
                                      groupes.nom,
730
                                      iif(groupes.nom_court is not null, ' [' || groupes.nom_court || ']', ''))
731
                        from députés
732
                        inner join groupes on groupes.id = députés.groupe
733
                        where
734
                            groupes.nom like '%$liste_deputes_value%'
735
                        or
736
                            groupes.nom_court = '$liste_deputes_value'"
complète re-écriture
Sébastien Marque authored on 2019-04-27
737
    else
ajout de l'envoi du résultat...
seb authored on 2022-08-17
738
        if test "$envoi_par_mail" = $true_flag; then
739
            echo "Voici la liste des député·e·s"
740
        fi
améliore sélection (à contin...
Sébastien MARQUE authored on 2022-07-30
741
        sqlite_request "select printf('%s - %s%s',
742
                                      députés.nom,
743
                                      groupes.nom,
744
                                      iif(groupes.nom_court is not null, ' [' || groupes.nom_court || ']', ''))
745
                        from députés
746
                        inner join groupes on groupes.id = députés.groupe
747
                        order by groupes.nom asc"
complète re-écriture
Sébastien Marque authored on 2019-04-27
748
    fi
749
    exit
750
fi
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
751

            
multiples modifications
Sébastien MARQUE authored on 2022-08-07
752
for (( g = 0; g < ${#_groupe[@]}; g++ )); do
753
    # on vérifie si c'est un ou une député
754
    depute_count=$(sqlite_request "select count(distinct nom) from députés where nom like '%${_groupe[$g]}%'")
755
    groupe_count=$(sqlite_request "select count(distinct nom) from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'")
756
    if test $depute_count -eq 1 -a $groupe_count -ne 1; then
757
        groupe[$g]=$(sqlite_request "select distinct nom from députés where nom like '%${_groupe[$g]}%'")
fix nom avec apostrophe
seb authored on 2022-08-17
758
        id_groupe[$g]=députés:$(sqlite_request "select group_concat(id) from députés where nom is '${groupe[$g]//\'/\'\'}'")
multiples modifications
Sébastien MARQUE authored on 2022-08-07
759
    elif test $groupe_count -eq 1 -a $depute_count -ne 1; then
760
        groupe[$g]=$(sqlite_request "select distinct nom from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'")
fix nom avec apostrophe
seb authored on 2022-08-17
761
        id_groupe[$g]=groupes:$(sqlite_request "select id from groupes where nom is '${groupe[$g]//\'/\'\'}'")
multiples modifications
Sébastien MARQUE authored on 2022-08-07
762
    elif test $groupe_count -eq 1 -a $depute_count -eq 1; then
améliore l'affichage des err...
seb authored on 2022-08-17
763
        echo "dénomination ambigüe pour « ${_groupe[$g]} »"
764
        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]}"
765
        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]}"
766
        echo
multiples modifications
Sébastien MARQUE authored on 2022-08-07
767
    elif test $depute_count -gt 1; then
améliore l'affichage des err...
seb authored on 2022-08-17
768
        echo "plusieurs député·e·s trouvé·e·s correspondant à « ${_groupe[$g]} »"
769
        sqlite_request "select distinct nom from députés where nom like '%${_groupe[$g]}%'" | grep --color=always -i "${_groupe[$g]}"
770
        echo
multiples modifications
Sébastien MARQUE authored on 2022-08-07
771
    elif test $groupe_count -gt 1; then
améliore l'affichage des err...
seb authored on 2022-08-17
772
        echo "plusieurs groupes trouvés correspondant à « ${_groupe[$g]} »"
773
        sqlite_request "select distinct nom from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'" | grep --color=always -i "${_groupe[$g]}"
774
        echo
multiples modifications
Sébastien MARQUE authored on 2022-08-07
775
    else
améliore l'affichage des err...
seb authored on 2022-08-17
776
        echo "aucun·e député·e ou groupe ne correspond au critère « ${_groupe[$g]} »"
777
        echo
complète re-écriture
Sébastien Marque authored on 2019-04-27
778
    fi
multiples modifications
Sébastien MARQUE authored on 2022-08-07
779
done
complète re-écriture
Sébastien Marque authored on 2019-04-27
780

            
ajout de l'envoi du résultat...
seb authored on 2022-08-17
781
if test -s $process_token.mail; then
782
    exit 1
783
fi
784

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
785
update_database
786
write_comparaison
ajout de l'envoi du résultat...
seb authored on 2022-08-17
787

            
788
if test "$envoi_par_mail" = $true_flag; then
789
    echo Vous pourrez trouver en pièce-jointe les résultats demandés avec ces critères:
790
    if test ${#groupe[@]} -gt 0; then
791
        echo "votes des groupes et député·e·s suivant·e·s:"
792
        printf " • %s\n" "${groupe[@]}"
793
    fi
794
    if test "$periode" = $true_flag; then
795
        echo sur la période allant $texte_periode
796
    fi
797
fi