scripts / analyse-votes-AN /
Newer Older
641 lines | 31.36kb
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

            
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
5
for tool in sqlite3 getopt mktemp w3m jq; do
complète re-écriture
Sébastien Marque authored on 2019-04-27
6
    which $tool > /dev/null 2>&1 || {
7
        echo missing tool $tool
8
        exit 1
9
    }
plus de souplesse dans les p...
Sébastien MARQUE authored on 2019-02-20
10
done
11

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

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
18
function create_database () {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
19
    sqlite_request "create table if not exists dossiers (id integer primary key, titre text, url text)"
20
    sqlite_request "create table if not exists votes    (id integer primary key, nom text)"
21
    sqlite_request "create table if not exists députés  (id integer primary key, nom text, groupe integer, date text)"
22
    sqlite_request "create table if not exists groupes  (id integer primary key, nom text unique, nom_court text)"
23
    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)"
24
    sqlite_request "create table if not exists dépouillements (scrutin integer not null, député integer not null, vote integer not null)"
25
    sqlite_request "create unique index if not exists 'index_députés'        on députés (nom, groupe)"
26
    sqlite_request "create unique index if not exists 'index_dossiers'       on dossiers (titre, url)"
27
    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
28

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
34
function update_database () {
35
    test "$no_db_update" = $true_flag && return
36
    tempfile="/dev/shm/scrutin.$$"
37
    progress=0
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
38
    for r in "${!acronymes[@]}"; do
39
        sqlite_request "update groupes set nom_court = \"${acronymes[$r]}\" where nom = \"$r\""
40
    done
41
    sqlite_request "create table if not exists dossier_par_scrutin (scrutin integer, url text)"
42
    echo "récupération des dossiers"
43
    wget -qO- "https://www.assemblee-nationale.fr/dyn/$mandature/dossiers" \
44
    | sed -rn 's/<p class="m-0"><a title="Accéder au dossier législatif" href="([^"]+)">([^<]+)<.+$/\1 \2/p' \
45
    | sed -r "s/^[[:space:]]*//; s/&#039;/'/g" \
46
    | awk -v dq='"' '{
47
        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)
48
    }' > $tempfile
49
    sqlite3 "$in_ram_database" < $tempfile
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
50
    first_=$first
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
51
    first=$(sqlite_request "select max(num) from scrutins")
complète re-écriture
Sébastien Marque authored on 2019-04-27
52
    if test ${first:-0} -lt $last; then
53
        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
54

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
55
        test $((last % 100)) -ne 0 && last_offset=0
fix dossiers manquants
Sébastien MARQUE authored on 2019-12-09
56
        IFS=$' \t\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
57
        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
58
            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
59
                | awk -v dq='"' '
60
                    BEGIN {
61
                    }
complète re-écriture
Sébastien Marque authored on 2019-04-27
62
                    /<td class="denom">/ {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
63
                        scrutin = gensub(/^.+denom.>([[:digit:]]+)\\*?<.td./,"\\1","1",$0)
complète re-écriture
Sébastien Marque authored on 2019-04-27
64
                    }
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
65
                    /<td class="desc">/ {
66
                        if (match($0, ">dossier<") > 0)
67
                            dossier[scrutin] = gensub(/^.+.<a href="([^"]+)">dossier<.a>.*$/,"\\1","1",$0)
complète re-écriture
Sébastien Marque authored on 2019-04-27
68
                    }
69
                    END {
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
70
                        for (i in dossier) {
71
                            printf("insert into dossier_par_scrutin (scrutin, url) values (%i, %s);\n", i, dq dossier[i] dq)
72
                        }
73
                    }' > $tempfile
74
            sqlite3 "$in_ram_database" < $tempfile
complète re-écriture
Sébastien Marque authored on 2019-04-27
75
        done
76

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

            
78
#        IFS=$'\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
79
        begin=$(date +%s)
80
        for scrutin in $(seq $((${first:-0}+1)) $last); do
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
81
            w3m -cols 512 -dump "http://www2.assemblee-nationale.fr/scrutins/detail/(legislature)/$mandature/(num)/$scrutin" \
82
            | sed -n '/^Analyse du scrutin n° /,/^Votes des groupes/{/^Navigation/,/^  • Non inscrits/d;/^[[:space:]]*$/d;p}' \
83
            | awk -v sq="'" -v dq='"' '
84
                BEGIN { adoption = -1; map = 0 }
85
                /^Analyse du scrutin/ { scrutin = $NF }
86
                /séance du [0-3][0-9]\/[01][0-9]\/(19|20)[0-9]+/ { date = $NF; seance = $1 }
87
                /^Scrutin public sur /            { titre = gensub("^Scrutin public sur l[ae" sq "]s? ?", "", "1") }
88
                /^L.Assemblée .+ adopté/          { adoption = NF == 3 }
89
                /^Nombre de votants :/            { votants      = $NF }
90
                /^Nombre de suffrages exprimés :/ { exprimes     = $NF }
91
                /^Majorité absolue :/             { majo_absolue = $NF }
92
                /^Pour l.adoption :/              { pour         = $NF }
93
                /^Contre :/                       { contre       = $NF }
94
                /^Groupe /                        { groupe = gensub("^Groupe (.+) \\([1-9].+$", "\\1", "1")
95
                                                    groupe = gensub("^(la|les|le|l" sq "|du|des|de|de la|d" sq ") ", "", "1", groupe)
96
                                                  }
97
                /^Non inscrits/                   { groupe = "Non inscrits" }
98
                /^(Pour|Abstention|Contre):/      { position = gensub(":", "", "1", $1) }
99
                /^Non-votants?:/                  {
100
                                                    position = gensub("s?:", "", "1", $1)
101
                                                    nvl = ""
102
                                                    while ($1 != "Groupe") {
103
                                                        getline
104
                                                        if ($1 == "Groupe")
105
                                                            break
106
                                                        nvl = nvl $0
107
                                                    }
108
                                                    f = split(nvl, nv, "(, | et )")
109
                                                    for (i=1; i<=f; i++) {
110
                                                        votes[groupe][position][gensub("(^ +|M\\. |Mme |Mlle | \\(.+)", "", "g", nv[i])]++
111
                                                    }
112
                                                    groupe = gensub("^Groupe (.+) \\([1-9].+$", "\\1", "1")
113
                }
114
                /^  • /                           { votes[groupe][position][gensub("^[[:punct:] ]*", "", "1")]++ }
115
                /^Mises au point/,/^Votes des groupes/ { if ($1 != "(Sous") mises_au_point[map++] = $0 }
116
                END {
117
                    if (adoption < 0)
118
                        adoption = pour >= majo_absolue
119

            
120
                    for (i=1; i<map-1; i++)
121
                        mise_au_point = sprintf("%s[%s]", mise_au_point, mises_au_point[i])
122

            
123
                    printf("insert into scrutins (num, séance, date, intitulé, adoption, mise_au_point) values (%i, %s, %s, %s, %i, %s);\n",
124
                            scrutin,
125
                            sq seance sq,
126
                            sq date sq,
127
                            dq gensub(dq, dq dq, "g", titre) dq,
128
                            adoption,
129
                            dq gensub(dq, dq dq, "g", mise_au_point) dq,
130
                            scrutin)
131
                    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",
132
                            scrutin,
133
                            scrutin)
134
                    for (groupe in votes) {
135
                        printf("insert or ignore into groupes (nom) values (%s);\n", dq groupe dq)
136
                        for (position in votes[groupe]) {
137
                            for (nom in votes[groupe][position]) {
138
                                if (nom !~ " \\(.+\\) *$")
139
                                    printf("insert or ignore into députés (nom, groupe, date) select %s, id, %s from groupes where nom = %s;\n",
140
                                            dq nom dq,
141
                                            dq date dq,
142
                                            dq groupe dq)
143
                                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",
144
                                       scrutin,
145
                                       dq nom dq,
146
                                       dq position dq)
147
                            }
148
                        }
149
                    }
150
                }
151
            ' > $tempfile
152
            sqlite3 "$in_ram_database" < $tempfile
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
153

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

            
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
155
            if test $(( ($scrutin - ${first:-0}) * 100 / ( $last - ${first:-0} ) )) -ne ${progress:-0}; then
156
                progress=$(( ($scrutin - ${first:-0}) * 100 / ( $last - ${first:-0} ) ))
complète re-écriture
Sébastien Marque authored on 2019-04-27
157
                if test $(($progress % ${update_progress:-1})) -eq 0; then
158
                    now=$(date +%s)
159
                    delta=$(( $now - $begin ))
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
160
#                   scrutin = {first:-0}+1 à la première itération
161
                    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
162
                fi
163
            fi
164
        done
améliore la récupération des...
Sébastien MARQUE authored on 2022-07-30
165
        sqlite_request 'drop table dossier_par_scrutin'
166

            
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
167
        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
168
        rm -f "$tempfile"
complète re-écriture
Sébastien Marque authored on 2019-04-27
169
    fi
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
170
    first=$first_
complète re-écriture
Sébastien Marque authored on 2019-04-27
171
}
172

            
173
function write_comparaison () {
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
174

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
175
    result="comparaisons ${groupe[0]} avec ${groupe_ref:-GDR}${dossier:+ - ${dossier}}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
176
    content="/dev/shm/$result/content.xml"
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
177
    id_cols="Scrutin Date Titre Adoption Panurgisme${nom:+ Participation Loyauté}"
amélioration code
Sébastien Marque authored on 2019-05-30
178
    typevotes=$(sqlite_request "select nom from votes")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
179
    nb_cols=$(( $(wc -w <<< $id_cols) + $(wc -w <<< $typevotes) * ${#groupe[@]} ))
180
    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')
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
181
    function write_cell () {
182
        case $1 in
183
            url)
184
                cell='<table:table-cell office:value-type="string" calcext:value-type="string">'
185
                cell+="<text:p><text:a xlink:href=\"$2\" xlink:type=\"simple\">$3</text:a></text:p>";;
186
            texte)
187
                cell='<table:table-cell office:value-type="string" calcext:value-type="string">'
188
                cell+="<text:p>$2</text:p>"
189
                ;;
190
            nombre)
191
                cell="<table:table-cell office:value-type=\"float\" office:value=\"$2\" calcext:value-type=\"float\">"
192
                cell+="<text:p>$2</text:p>"
193
                ;;
194
            *)
195
                return 1;;
196
        esac
197
        cell+='</table:table-cell>'
198
        echo $cell >> "$content"
199
    }
complète re-écriture
Sébastien Marque authored on 2019-04-27
200

            
201
    echo "génération du fichier $result"
202

            
203
    mkdir -p "/dev/shm/$result/META-INF"
204

            
205
    cat > "/dev/shm/$result/META-INF/manifest.xml" << EOmetainf
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
206
<?xml version="1.0" encoding="UTF-8"?>
207
<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0" manifest:version="1.2">
208
 <manifest:file-entry manifest:full-path="/" manifest:version="1.2" manifest:media-type="application/vnd.oasis.opendocument.spreadsheet"/>
209
 <manifest:file-entry manifest:full-path="content.xml" manifest:media-type="text/xml"/>
210
</manifest:manifest>
211
EOmetainf
212

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

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
217
    cat >> "$content" << EOcontent
218
    <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">
219
    <office:scripts/>
220
    <office:font-face-decls>
221
    <style:font-face style:name="Liberation Sans" svg:font-family="&apos;Liberation Sans&apos;" style:font-family-generic="swiss" style:font-pitch="variable"/>
222
    <style:font-face style:name="DejaVu Sans" svg:font-family="&apos;DejaVu Sans&apos;" style:font-family-generic="system" style:font-pitch="variable"/>
223
    <style:font-face style:name="FreeSans" svg:font-family="FreeSans" style:font-family-generic="system" style:font-pitch="variable"/>
224
    </office:font-face-decls>
225
    <office:automatic-styles>
226
EOcontent
227

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
228
    IFS=$'\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
229
    for i in $(seq $nb_cols); do
230
        cat >> "$content" << EOcontent
231
            <style:style style:name="co$i" style:family="table-column">
232
            <style:table-column-properties fo:break-before="auto" style:column-width="30.00mm"/>
233
            </style:style>
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
234
EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
235
    done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
236

            
237
    cat >> "$content" << EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
238
    <style:style style:name="ro1" style:family="table-row">
239
    <style:table-row-properties style:row-height="4.52mm" fo:break-before="auto" style:use-optimal-row-height="true"/>
240
    </style:style>
241
    <style:style style:name="ta1" style:family="table" style:master-page-name="Default">
242
    <style:table-properties table:display="true" style:writing-mode="lr-tb"/>
243
    </style:style>
244
    <style:style style:name="ce1" style:family="table-cell" style:parent-style-name="Default">
245
    <style:table-cell-properties fo:background-color="#cccccc"/>
246
    </style:style>
247
    </office:automatic-styles>
248
    <office:body>
249
    <office:spreadsheet>
250
    <table:calculation-settings table:automatic-find-labels="false"/>
251
    <table:table table:name="$result" table:style-name="ta1">
252
    <office:forms form:automatic-focus="false" form:apply-design-mode="false"/>
253
    <table:table-column table:style-name="co1" table:number-columns-repeated="$(wc -w <<< $id_cols)" table:default-cell-style-name="Default"/>
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
254
EOcontent
255

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
256
    for i in $(seq $(wc -w <<< $typevotes)); do
257
        cat >> "$content" << EOcontent
258
        <table:table-column table:style-name="co1" table:default-cell-style-name="ce1"/>
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
259
EOcontent
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
260
        for (( g = 1; g < ${#groupe[@]}; g++ )); do
261
            cat >> "$content" << EOcontent
262
            <table:table-column table:style-name="co1" table:default-cell-style-name="Default"/>
263
EOcontent
264
        done
complète re-écriture
Sébastien Marque authored on 2019-04-27
265
    done
266
    echo '<table:table-row table:style-name="ro1">' >> "$content"
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
267

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
268
    IFS=$IFS_
complète re-écriture
Sébastien Marque authored on 2019-04-27
269
    for colonne in $id_cols; do
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
270
        write_cell texte $colonne
complète re-écriture
Sébastien Marque authored on 2019-04-27
271
    done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
272

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
273
    for typevote in $typevotes; do
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
274
        for g in "${groupe[@]}"; do
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
275
            write_cell texte "$typevote - $g"
complète re-écriture
Sébastien Marque authored on 2019-04-27
276
        done
277
    done
278

            
279
    echo '</table:table-row>' >> "$content"
280

            
281
    progress=0
282
    begin=$(date +%s)
283
    line=1
améliore progression
Sébastien Marque authored on 2019-05-03
284
    test -z "$seq" && qty=$(( $last - $first ))
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
285
    IFS=$'\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
286
    for scrutin in $(eval ${seq:-seq $first $last}); do
287

            
amélioration code
Sébastien Marque authored on 2019-05-30
288
        data=$(sqlite_request "select date,intitulé,adoption,url.url from scrutins inner join url on scrutins.url = url.id where num is $scrutin")
complète re-écriture
Sébastien Marque authored on 2019-04-27
289
        date=$(cut -d'|' -sf 1 <<< $data)
290
        title=$(cut -d'|' -sf 2 <<< $data)
291
        adoption=$(cut -d'|' -sf 3 <<< $data)
292
        url=$(cut -d'|' -sf 4 <<< $data)
293
        test $adoption -eq 1 && adoption='oui' || adoption='non'
groupe de référence: GDR
Sébastien MARQUE authored on 2019-02-17
294

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
297
        if test -n "$url"; then
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
298
            write_cell url "$url" $scrutin
complète re-écriture
Sébastien Marque authored on 2019-04-27
299
        else
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
300
            write_cell nombre $scrutin
complète re-écriture
Sébastien Marque authored on 2019-04-27
301
        fi
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
302
        write_cell texte "$date"
303
        write_cell texte "${title//\'/&apos;}"
304
        write_cell texte "$adoption"
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
305

            
amélioration code
Sébastien MARQUE authored on 2019-11-13
306
        for typevote in $(seq 0 $(( $(wc -w <<< $typevotes) - 1 ))); do
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
307
            vote_cible[$typevote]=$(sqlite_request "select
complète re-écriture
Sébastien Marque authored on 2019-04-27
308
                                        count(député)
309
                                     from
310
                                        dépouillement
311
                                     where
312
                                        scrutin is $scrutin
313
                                     and
314
                                        vote is $typevote
315
                                     and
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
316
                                        groupe is ${groupe_id[0]} ${nom:+ and député is ${nom%|*}}")
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
317
        done
318
        if test \( ${vote_cible[0]} -gt ${vote_cible[1]} -a $adoption = oui \) \
319
            -o  \( ${vote_cible[1]} -gt ${vote_cible[0]} -a $adoption = non \); then
320
            panurge=1
321
        else
322
            panurge=0
323
        fi
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
324
        write_cell nombre $panurge
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
325

            
326
        if test -n "$nom"; then
327
            for typevote in 0 1; do
328
                votes_g0[$typevote]=$(sqlite_request "select
329
                                            count(député)
330
                                         from
331
                                            dépouillement
332
                                         where
333
                                            scrutin is $scrutin
334
                                         and
335
                                            vote is $typevote
336
                                         and
337
                                            groupe is ${groupe_id[0]}")
338
            done
339
            participation=$(( vote_cible[0] + vote_cible[1] + vote_cible[2] + vote_cible[3] ))
340
            if test $(( (${votes_g0[0]} - ${votes_g0[1]}) * (${vote_cible[0]} - ${vote_cible[1]}) )) -gt 0; then
341
                loyaute=1
342
            else
343
                loyaute=0
344
            fi
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
345
            write_cell nombre $participation
346
            write_cell nombre $loyaute
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
347
        fi
348

            
amélioration code
Sébastien MARQUE authored on 2019-11-13
349
        for typevote in $(seq 0 $(( $(wc -w <<< $typevotes) - 1 ))); do
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
350
            write_cell nombre ${vote_cible[$typevote]}
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
351
            for (( g = 1; g < ${#groupe_id[@]}; g++ )); do
amélioration code
Sébastien Marque authored on 2019-05-30
352
                votes=$(sqlite_request "select
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
353
                                            count(député)
354
                                         from
355
                                            dépouillement
356
                                         where
357
                                            scrutin is $scrutin
358
                                         and
359
                                            vote is $typevote
360
                                         and
361
                                            groupe is ${groupe_id[$g]}")
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
362
                write_cell nombre $votes
complète re-écriture
Sébastien Marque authored on 2019-04-27
363
            done
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
364
        done
complète re-écriture
Sébastien Marque authored on 2019-04-27
365
        echo '</table:table-row>' >> "$content"
366

            
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
367
        if test $(( ($line * 100) / ${qty:-$last} )) -ne $progress; then
368
            progress=$(( ($line * 100) / ${qty:-$last} ))
369
            if test $(( $progress % ${generation_progress:-5} )) -eq 0; then
complète re-écriture
Sébastien Marque authored on 2019-04-27
370
                now=$(date +%s)
371
                delta=$(( $now - $begin ))
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
372
                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
373
            fi
374
        fi
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
375

            
376
        let line++
377

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

            
380
    cat >> "$content" << EOcontent
381
    </table:table>
382
    <table:named-expressions/>
383
    <table:database-ranges>
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
384
    <table:database-range table:name="__Anonymous_Sheet_DB__0" table:target-range-address="&apos;$result&apos;.D1:&apos;$result&apos;.$last_col$line" table:display-filter-buttons="true"/>
complète re-écriture
Sébastien Marque authored on 2019-04-27
385
    </table:database-ranges>
386
    </office:spreadsheet>
387
    </office:body>
388
    </office:document-content>
389
EOcontent
390

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

            
393
    mv -f "/dev/shm/$result.zip" "$result.ods"
394

            
améliore la sortie de progre...
Sébastien MARQUE authored on 2021-12-17
395
    echo -e "\r\033[KTerminé : $result.ods"
complète re-écriture
Sébastien Marque authored on 2019-04-27
396
}
397

            
398
function save_database () {
améliore abandon
Sébastien MARQUE authored on 2020-02-23
399
    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
400
    test -n "$database" -a -n "$in_ram_database" || return
améliore la sortie
Sébastien Marque authored on 2019-06-10
401
    test -r "$in_ram_database" || return
complète re-écriture
Sébastien Marque authored on 2019-04-27
402
    if test -r "$database" && md5sum $in_ram_database | sed "s,$in_ram_database,$database," | md5sum --status -c -; then
403
        rm -f $in_ram_database
404
    elif test -w "$database"; then
405
        mv -f $in_ram_database "$database"
406
    elif ! test -e "$database"; then
407
        mv $in_ram_database "$database"
408
    else
409
        rm -f $in_ram_database
410
    fi
411
}
412

            
factorisation
Sébastien MARQUE authored on 2020-02-08
413
function dernier_scrutin_public () {
sélection possible de la man...
Sébastien MARQUE authored on 2021-02-13
414
    wget -qO- "http://www2.assemblee-nationale.fr/scrutins/liste/(legislature)/$mandature/(type)/TOUS/(idDossier)/TOUS" \
factorisation
Sébastien MARQUE authored on 2020-02-08
415
            | sed -rn 's,^.*<td class="denom">(.+)</td>.*$,\1,p' \
416
            | head -1
417
}
418

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

            
421
true_flag=$(mktemp --dry-run XXXXX)
422

            
423
OPTS=$( getopt -l no-db-update,\
424
                  db-update-only,\
425
                  cible:,\
426
                  ref:,\
427
                  député:,\
428
                  premier-scrutin:,\
429
                  dernier-scrutin:,\
430
                  période:,\
431
                  liste-dossiers,\
432
                  liste-députés,\
433
                  dossiers,\
434
                  dossier:,\
435
                  conf:,\
436
                  database:,\
437
                  progrès-génération:\
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
438
                  progrès-update:,\
439
                  help \
complète re-écriture
Sébastien Marque authored on 2019-04-27
440
                  -- "$@" )
441

            
442
eval set --$OPTS
443

            
444
while [[ $# -gt 0 ]]; do
445
    case "$1" in
446
        "--no-db-update")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
447
#|ne met pas à jour la base de données
complète re-écriture
Sébastien Marque authored on 2019-04-27
448
            no_db_update=$true_flag;;
449
        "--db-update-only")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
450
#|ne génère pas de fichier de résultat
complète re-écriture
Sébastien Marque authored on 2019-04-27
451
            db_update_only=$true_flag;;
452
        "--cible")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
453
#<nom court du groupe>|génère un comparatif pour ce groupe. Par défaut LREM
454
            groupe[0]="${2^^}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
455
            shift;;
456
        "--ref")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
457
#<nom court du groupe ou des groupes>|compare avec ce ou ces groupes. Si plusieurs groupes, ils sont séparés par une virgule, sans espace. Par défaut GDR
fix typo
Sébastien Marque authored on 2019-04-27
458
            groupe_ref="${2^^}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
459
            shift;;
460
        "--député")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
461
#<nom>|filtre la cible sur un-e député-e sur le groupe cible (par défaut LREM). <nom> est insensible à la casse. Tout ou partie du nom ou du prénom peut être donné, espace compris. Caractère % utilisé comme caractère joker. Si aucune correspondance n'est trouvée avec un-e député-é, sortie en erreur. Si plusieurs député-e-s correspondent la liste est affichée et sortie en erreur.
complète re-écriture
Sébastien Marque authored on 2019-04-27
462
            depute=$true_flag
463
            nom="$2"
464
            shift;;
sélection possible de la man...
Sébastien MARQUE authored on 2021-02-13
465
        "--mandature")
466
           mandature="$2"
467
           ;;
complète re-écriture
Sébastien Marque authored on 2019-04-27
468
        "--premier-scrutin")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
469
#<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
470
            no_db_update=$true_flag
471
            first="$2"
472
            shift;;
473
        "--dernier-scrutin")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
474
#<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
475
            no_db_update=$true_flag
476
            last="$2"
477
            shift;;
478
        "--période")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
479
#<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
480
            periode=$true_flag
481
            no_db_update=$true_flag
482
            periode_value="$2"
483
            shift;;
484
        "--liste-députés-du-groupe")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
485
#<nom court du groupe>|liste les député-e-s du groupe <nom court du groupe> sur la mandature
complète re-écriture
Sébastien Marque authored on 2019-04-27
486
            liste_deputes=$true_flag
487
            liste_deputes_value="${2^^}"
488
            shift;;
489
        "--liste-députés")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
490
#|liste tou-te-s les député-e-s de la mandature
complète re-écriture
Sébastien Marque authored on 2019-04-27
491
            liste_deputes=$true_flag;;
492
        "--liste-dossiers")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
493
#|affiche une liste numérotée des dossiers et sort
complète re-écriture
Sébastien Marque authored on 2019-04-27
494
            liste_dossiers=$true_flag;;
495
        "--dossier")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
496
#<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
497
            dossier=$true_flag
498
            dossier_value="$2"
499
            shift;;
500
        "--dossiers")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
501
#|sélection interactive du dossier
complète re-écriture
Sébastien Marque authored on 2019-04-27
502
            dossier=$true_flag;;
503
        "--conf")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
504
#<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
505
            test -r "$2" || {
506
                echo "config introuvable $2" >&2
507
                options_error=$true_flag
508
            }
509
            config_file="$2"
510
            shift;;
511
        "--database")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
512
#<fichier>|indique le chemin vers la base de données SQLite3 contenant les informations. Par défaut "{_}.db"
complète re-écriture
Sébastien Marque authored on 2019-04-27
513
            test -r "$2" && file -b "$2" | grep -q '^SQLite 3.x database' || {
514
                echo "erreur sur option database: fichier '$2' introuvable ou pas une base SQLite 3" >&2
515
                options_error=$true_flag
516
            }
517
            database="$2"
518
            shift;;
519
        "--progrès-génération")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
520
#<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
521
            generation_progress="$2"
522
            shift;;
523
        "--progrès-update")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
524
#<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
525
            update_progress="$2"
526
            shift;;
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
527
        "--help")
528
#|affiche cette aide et quitte
529
            echo "$0 [options]"
530
            echo "génère un classeur ODS pour comparer les scrutins publics de la 15ème mandature à l'Assemblée Nationale"
531
            echo
532
            sed -rn '/^ *"--.+"\)/N; s/^ *"(--.+)"\)\n#(.+)$/\1|\2/p' "$0" \
533
                | awk -F'|' -v marge='  ' -v prog="$0" '{
534
                    printf("%s %s\n" marge "%s\n\n", $1, $2, gensub("\\. ", "\\\n" marge, "g", gensub("\\{_\\}", prog, "g", $3)))
535
                }'
536
            exit;;
complète re-écriture
Sébastien Marque authored on 2019-04-27
537
    esac
538
    shift
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
539
done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
540

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
543
test -z "$database" && database="${0}.db"
utilsation d'une archive com...
Sébastien MARQUE authored on 2019-02-20
544

            
fix syntax error
Sébastien Marque authored on 2019-06-10
545
declare -A groupes
complète re-écriture
Sébastien Marque authored on 2019-04-27
546
if test -n "$config_file"; then
547
    source "$config_file"
548
else
549
    config_file="${0}.conf"
550
    if test -r "$config_file"; then
551
        source "$config_file"
552
    fi
utilsation d'une archive com...
Sébastien MARQUE authored on 2019-02-20
553
fi
554

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
555
IFS=',' groupe=(${groupe[0]:-LREM} ${groupe_ref:-GDR})
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
556

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
557
in_ram_database=$(mktemp --dry-run /dev/shm/XXXXXXXXXXXX)
558
if test -r "$database"; then
559
    cp "$database" "$in_ram_database"
560
else
561
    create_database
562
fi
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
563

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
564
for (( g = 0; g < ${#groupe[@]}; g++ )); do
amélioration code
Sébastien Marque authored on 2019-05-30
565
    groupe_id[$g]=$(sqlite_request "select id from groupes where nom_court is '${groupe[$g]}'")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
566
    if test -z "${groupe_id[$g]}"; then
567
        echo "groupe ${groupe[$g]} inconnu" >&2
complète re-écriture
Sébastien Marque authored on 2019-04-27
568
        exit 1
569
    fi
570
done
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
571

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
572
if test "$periode" = $true_flag; then
amélioration code
Sébastien Marque authored on 2019-05-30
573
    first=$(sqlite_request "select num from scrutins where date like '% du ${periode_value%:*}' order by num asc" | head -1)
574
    last=$(sqlite_request "select num from scrutins where date like '% du ${periode_value#*:}' order by num asc" | tail -1)
complète re-écriture
Sébastien Marque authored on 2019-04-27
575
    test -z "$first" && echo "date de début inconnue: ${periode_value#*:}" >&2 && rm -f $in_ram_database && exit 1
576
    test -z "$last" && echo "date de fin inconnue: ${periode_value%:*}" >&2 && rm -f $in_ram_database && exit 1
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
577
elif test "$dossier" != $true_flag; then
factorisation
Sébastien MARQUE authored on 2020-02-08
578
    test -z "$last" && last=$(dernier_scrutin_public)
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
579
    test -z "$first" && first=1
complète re-écriture
Sébastien Marque authored on 2019-04-27
580
fi
affiche nom du fichier des r...
Sébastien MARQUE authored on 2019-03-30
581

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
582
if test "$liste_dossiers" = $true_flag; then
amélioration code
Sébastien Marque authored on 2019-05-30
583
    sqlite_request "select printf('%s - %s', id, url) from url" | sed 's,https*://.*/dossiers/,,; s/_/ /g; s/.asp$//'
complète re-écriture
Sébastien Marque authored on 2019-04-27
584
    exit
585
fi
586

            
587
if test "$db_update_only" = $true_flag; then
588
    unset first last
factorisation
Sébastien MARQUE authored on 2020-02-08
589
    last=$(dernier_scrutin_public)
complète re-écriture
Sébastien Marque authored on 2019-04-27
590
    update_database
591
    exit
592
fi
593

            
594
if test "$liste_deputes" = $true_flag; then
595
    if test -n "$liste_deputes_value"; then
amélioration code
Sébastien Marque authored on 2019-05-30
596
        sqlite_request "select printf('%s - %s', députés.nom, groupes.nom_court) from députés inner join groupes on groupes.id = députés.groupe where groupes.nom_court is '$liste_deputes_value'"
complète re-écriture
Sébastien Marque authored on 2019-04-27
597
    else
amélioration code
Sébastien Marque authored on 2019-05-30
598
        sqlite_request "select printf('%s - %s', députés.nom, groupes.nom_court) from députés inner join groupes on groupes.id = députés.groupe order by groupes.nom_court asc"
complète re-écriture
Sébastien Marque authored on 2019-04-27
599
    fi
600
    exit
601
fi
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
602

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
603
if test "$depute" = $true_flag; then
604
    if test -n "$nom"; then
amélioration code
Sébastien Marque authored on 2019-05-30
605
        match=$(sqlite_request "select count(députés.id) from députés inner join groupes on groupes.id = députés.groupe where députés.nom like '%$nom%' and groupes.nom_court is '$groupe' collate nocase")
complète re-écriture
Sébastien Marque authored on 2019-04-27
606
        if test $match -ne 1; then
607
            if test $match -eq 0; then
608
                echo "pas de député correspondant dans le groupe $groupe"
609
            else 
610
                echo "plusieurs députés correspondent:"
amélioration code
Sébastien Marque authored on 2019-05-30
611
                sqlite_request "select députés.nom from députés inner join groupes on groupes.id = députés.groupe where députés.nom like '%$nom%' and groupes.nom_court is '$groupe' collate nocase"
complète re-écriture
Sébastien Marque authored on 2019-04-27
612
            fi
613
            exit 1
614
        else
amélioration code
Sébastien Marque authored on 2019-05-30
615
            nom=$(sqlite_request "select députés.id,députés.nom from députés inner join groupes on groupes.id = députés.groupe where députés.nom like '%$nom%' and groupes.nom_court is '$groupe' collate nocase")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
616
            groupe[0]="${nom#*|} (${groupe[0]})"
complète re-écriture
Sébastien Marque authored on 2019-04-27
617
        fi
618
    fi
619
fi
620

            
621
if test "$dossier" = $true_flag; then
factorisation
Sébastien MARQUE authored on 2020-02-08
622
    last=$(dernier_scrutin_public)
complète re-écriture
Sébastien Marque authored on 2019-04-27
623
    if test -z "$dossier_value"; then
624
        IFS=$'\n'
amélioration code
Sébastien Marque authored on 2019-05-30
625
        select dossier in $(sqlite_request "select url from url" | sed 's,^.*/dossiers/,,; s/_/ /g; s/.asp$//'); do
complète re-écriture
Sébastien Marque authored on 2019-04-27
626
            if test -n "$dossier"; then
amélioration code
Sébastien Marque authored on 2019-05-30
627
                seq="sqlite_request \"select num from scrutins inner join url on url.id = scrutins.url where url.url like '%/dossiers/${dossier// /_}%' order by num asc\""
628
                qty=$(sqlite_request "select count(num) from scrutins inner join url on url.id = scrutins.url where url.url like '%/dossiers/${dossier// /_}%' order by num asc")
complète re-écriture
Sébastien Marque authored on 2019-04-27
629
                break
630
            fi
631
        done
632
        IFS=$IFS_
633
    else
amélioration code
Sébastien Marque authored on 2019-05-30
634
        seq="sqlite_request \"select num from scrutins inner join url on url.id = scrutins.url where url.id is $dossier_value order by num asc\""
635
        qty=$(sqlite_request "select count(num) from scrutins inner join url on url.id = scrutins.url where url.id is $dossier_value order by num asc")
636
        dossier=$(sqlite_request "select url from url where id is $dossier_value" | sed 's,^.*/dossiers/,,; s/_/ /g; s/.asp$//')
complète re-écriture
Sébastien Marque authored on 2019-04-27
637
    fi
638
fi
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
639

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
640
update_database
641
write_comparaison