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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
3
for tool in sqlite3 getopt md5sum mktemp; do
4
    which $tool > /dev/null 2>&1 || {
5
        echo missing tool $tool
6
        exit 1
7
    }
plus de souplesse dans les p...
Sébastien MARQUE authored on 2019-02-20
8
done
9

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

            
amélioration code
Sébastien Marque authored on 2019-05-30
12
function sqlite_request () {
13
    sqlite3 "$in_ram_database" <<< "$1"
14
}
15

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
16
function create_database () {
fix syntax error
Sébastien Marque authored on 2019-06-10
17
    if test ${#groupes[@]} -eq 0; then
complète re-écriture
Sébastien Marque authored on 2019-04-27
18
        echo "unable to find groupes in $config_file" >&2
19
        exit 1
fixe pb quand groupe cible e...
Sébastien Marque authored on 2019-02-18
20
    fi
complète re-écriture
Sébastien Marque authored on 2019-04-27
21

            
amélioration code
Sébastien Marque authored on 2019-05-30
22
    sqlite_request "create table if not exists votes (id integer primary key, nom text)"
23
    sqlite_request "create table if not exists url (id integer primary key autoincrement, url text)"
24
    sqlite_request "create table if not exists députés (id integer primary key autoincrement, nom text, groupe integer)"
25
    sqlite_request "create table if not exists groupes (id integer primary key autoincrement, nom text, nom_court text)"
26
    sqlite_request "create table if not exists scrutins (num integer primary key, date text not null, intitulé text non null, adoption boolean, url integer)"
27
    sqlite_request "create table if not exists dépouillement (député integer not null, scrutin integer not null, groupe integer not null, vote integer not null)"
complète re-écriture
Sébastien Marque authored on 2019-04-27
28

            
29
    v_id=0
30
    for v in Pour Contre Abstention Non-votant; do
amélioration code
Sébastien Marque authored on 2019-05-30
31
        if test -z $(sqlite_request "select nom from votes where id is $v_id"); then
32
            sqlite_request "insert into votes values ($v_id, '$v')"
complète re-écriture
Sébastien Marque authored on 2019-04-27
33
        else
amélioration code
Sébastien Marque authored on 2019-05-30
34
            test -z $(sqlite_request "select nom from votes where id is $v_id and nom is '$v'") \
35
                && sqlite_request "update votes set nom = '$v' where id is $v_id)"
complète re-écriture
Sébastien Marque authored on 2019-04-27
36
        fi
37
        let v_id++
38
    done
39
    unset v_id v
40

            
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
41
    for g in ${!groupes[@]}; do
amélioration code
Sébastien Marque authored on 2019-05-30
42
        test -z $(sqlite_request "select id from groupes where nom is '${groupes[$g]}' and nom_court is '$g'") \
43
            && sqlite_request "insert into groupes (nom, nom_court) values ('${groupes[$g]}', '$g')"
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
44
    done
complète re-écriture
Sébastien Marque authored on 2019-04-27
45
    unset g groupes
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
46

            
amélioration code
Sébastien Marque authored on 2019-05-30
47
    test -z $(sqlite_request "select id from url where id = 0") \
48
        && sqlite_request "insert into url values (0, '')"
complète re-écriture
Sébastien Marque authored on 2019-04-27
49
}
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
50

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
51
function update_database () {
52
    test "$no_db_update" = $true_flag && return
53
    tempfile="/dev/shm/scrutin.$$"
54
    progress=0
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
55
    first_=$first
amélioration code
Sébastien Marque authored on 2019-05-30
56
    first=$(sqlite_request "select count(num) from scrutins")
complète re-écriture
Sébastien Marque authored on 2019-04-27
57
    if test ${first:-0} -lt $last; then
58
        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
59

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
60
        url_database=/dev/shm/url_database
61
        : > "$url_database"
62
        test $((last % 100)) -ne 0 && last_offset=0
fix dossiers manquants
Sébastien MARQUE authored on 2019-12-09
63
        IFS=$' \t\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
64
        for offset in $(seq $((last - 100)) -100 ${first:-0} ) $last_offset; do
65
            wget -qO- "http://www2.assemblee-nationale.fr/scrutins/liste/(offset)/$offset/(legislature)/15/(type)/TOUS/(idDossier)/TOUS" \
66
                | awk '
67
                    /<td class="denom">/ {
68
                        scrutin = gensub(/^.+denom.>([[:digit:]]+).*<.td./,"\\1","1",$0)
69
                    }
70
                    /<td class="desc">.+dossier<.a/ {
71
                        a[scrutin] = gensub(/^.+.<a href="(.+)">dossier<.a>.*$/,"\\1","1",$0)
72
                    }
73
                    END {
74
                        for (i in a)
75
                            print gensub("*","","1",i) "|" a[i]
76
                    }' >> "$url_database"
77
        done
78
        sort -u "$url_database" > "${url_database}.sorted"
79
        mv -f "${url_database}.sorted" "$url_database"
80

            
81
        IFS=$'\n'
82
        begin=$(date +%s)
83
        for scrutin in $(seq $((${first:-0}+1)) $last); do
84
            wget -qO- "http://www2.assemblee-nationale.fr/scrutins/detail/(legislature)/15/(num)/$scrutin" \
85
                |  sed -r '0,/< *div class="titre-bandeau-bleu +to-print" *>/d; /< *script +type="text\/javascript" *>/,$d' > $tempfile
86

            
87
            unset title date adoption url id_url
88

            
89
            title=$(sed -rn '/<h1 class="">Analyse du scrutin n° '$scrutin'/n; s,^.*<h3 class="president-title">(.+).</h3>,\1,p' $tempfile \
90
                    | sed "s/;//g; s/[ \t][ \t]+/ /g; s/^Scrutin public sur *//; s/^l[ae']s* *//")
91
            date=$(sed -rn 's,^.*<h1 class="">Analyse du scrutin n° '$scrutin'<br/>(.+) </h1>,\1,p' $tempfile)
92
            adoption=$(sed -rn 's,^.*<p class="annonce"><span class="annoncevote">(.+).</span></p>.*$,\1,p' $tempfile)
93
            test -n "$title" -a -n "$date" -a -n "$adoption" || {
94
                echo "erreur dans la récupération du scrutin $scrutin"
95
                exit 1
96
            }
97
            grep -q 'e a a' <<< "$adoption" && adoption=1 || adoption=0
petite simplification du cod...
Sébastien MARQUE authored on 2019-03-31
98

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
99
            url=$(awk -F'|' "/^$scrutin\|/{print \$2}" "$url_database")
amélioration code
Sébastien Marque authored on 2019-05-30
100
            id_url=$(sqlite_request "select id from url where url is '$url'")
complète re-écriture
Sébastien Marque authored on 2019-04-27
101
            if test -z "$id_url"; then
amélioration code
Sébastien Marque authored on 2019-05-30
102
                sqlite_request "insert into url (url) values ('$url')"
103
                id_url=$(sqlite_request "select id from url where url is '$url'")
complète re-écriture
Sébastien Marque authored on 2019-04-27
104
            fi
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
105

            
amélioration code
Sébastien Marque authored on 2019-05-30
106
            sqlite_request "insert into scrutins values ($scrutin, '$date', \"${title//\"}\", $adoption, ${id_url:-0})"
complète re-écriture
Sébastien Marque authored on 2019-04-27
107

            
amélioration code
Sébastien Marque authored on 2019-05-30
108
            for v in $(sqlite_request "select * from votes"); do
109
                for g in $(sqlite_request "select id,nom from groupes"); do
complète re-écriture
Sébastien Marque authored on 2019-04-27
110
                    for d in $(sed -rn '/<p class="nomgroupe">'${g#*|}' <span class="block topmargin">/,/<div class="TTgroupe topmargin-lg">/p' $tempfile \
111
                        | sed -rn '/<p class="typevote">'${v#*|}':/,/<.div>/p' \
112
                        | sed 's,</li>,\n,g' \
113
                        | sed -rn '/<p class="typevote">/d; s,^\s*<li>\s*,,; s,&nbsp;, ,g; s/^\s*//; s/M(me|\.) //; s/ \(.*$//; s,<b>,,; s,</b>,,p'); do
amélioration code
Sébastien Marque authored on 2019-05-30
114
                        d_id=$(sqlite_request "select id from députés where nom is \"$d\" and groupe is ${g%|*}")
complète re-écriture
Sébastien Marque authored on 2019-04-27
115
                        if test -z "$d_id"; then
amélioration code
Sébastien Marque authored on 2019-05-30
116
                            sqlite_request "insert into députés (nom, groupe) values (\"$d\", ${g%|*})"
117
                            d_id=$(sqlite_request "select id from députés where nom is \"$d\" and groupe is ${g%|*}")
complète re-écriture
Sébastien Marque authored on 2019-04-27
118
                        fi
amélioration code
Sébastien Marque authored on 2019-05-30
119
                        sqlite_request "insert into dépouillement values ($d_id, $scrutin, ${g%|*}, ${v%|*})"
complète re-écriture
Sébastien Marque authored on 2019-04-27
120
                    done
121
                done
122
            done
123

            
amélioration du calcul ETA p...
Sébastien MARQUE authored on 2019-05-30
124
            if test $(( ($scrutin - $first) * 100 / ( $last - $first ) )) -ne $progress; then
125
                progress=$(( ($scrutin - $first) * 100 / ( $last - $first ) ))
complète re-écriture
Sébastien Marque authored on 2019-04-27
126
                if test $(($progress % ${update_progress:-1})) -eq 0; then
127
                    now=$(date +%s)
128
                    delta=$(( $now - $begin ))
amélioration du calcul ETA p...
Sébastien MARQUE authored on 2019-05-30
129
#                   scrutin = first+1 à la première itération
130
                    echo $progress%, ETA: $(date +%H:%M:%S -d "$(($delta * ($last - $scrutin) / ($scrutin - $first) )) seconds")
complète re-écriture
Sébastien Marque authored on 2019-04-27
131
                fi
132
            fi
133
        done
134
        rm -f "$url_database" "$tempfile"
135
    fi
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
136
    first=$first_
complète re-écriture
Sébastien Marque authored on 2019-04-27
137
}
138

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

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
141
    result="comparaisons ${groupe[0]} avec ${groupe_ref:-GDR}${dossier:+ - ${dossier}}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
142
    content="/dev/shm/$result/content.xml"
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
143
    id_cols="Scrutin Date Titre Adoption Panurgisme${nom:+ Participation Loyauté}"
amélioration code
Sébastien Marque authored on 2019-05-30
144
    typevotes=$(sqlite_request "select nom from votes")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
145
    nb_cols=$(( $(wc -w <<< $id_cols) + $(wc -w <<< $typevotes) * ${#groupe[@]} ))
146
    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
147
    function write_cell () {
148
        case $1 in
149
            url)
150
                cell='<table:table-cell office:value-type="string" calcext:value-type="string">'
151
                cell+="<text:p><text:a xlink:href=\"$2\" xlink:type=\"simple\">$3</text:a></text:p>";;
152
            texte)
153
                cell='<table:table-cell office:value-type="string" calcext:value-type="string">'
154
                cell+="<text:p>$2</text:p>"
155
                ;;
156
            nombre)
157
                cell="<table:table-cell office:value-type=\"float\" office:value=\"$2\" calcext:value-type=\"float\">"
158
                cell+="<text:p>$2</text:p>"
159
                ;;
160
            *)
161
                return 1;;
162
        esac
163
        cell+='</table:table-cell>'
164
        echo $cell >> "$content"
165
    }
complète re-écriture
Sébastien Marque authored on 2019-04-27
166

            
167
    echo "génération du fichier $result"
168

            
169
    mkdir -p "/dev/shm/$result/META-INF"
170

            
171
    cat > "/dev/shm/$result/META-INF/manifest.xml" << EOmetainf
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
172
<?xml version="1.0" encoding="UTF-8"?>
173
<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0" manifest:version="1.2">
174
 <manifest:file-entry manifest:full-path="/" manifest:version="1.2" manifest:media-type="application/vnd.oasis.opendocument.spreadsheet"/>
175
 <manifest:file-entry manifest:full-path="content.xml" manifest:media-type="text/xml"/>
176
</manifest:manifest>
177
EOmetainf
178

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

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
183
    cat >> "$content" << EOcontent
184
    <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">
185
    <office:scripts/>
186
    <office:font-face-decls>
187
    <style:font-face style:name="Liberation Sans" svg:font-family="&apos;Liberation Sans&apos;" style:font-family-generic="swiss" style:font-pitch="variable"/>
188
    <style:font-face style:name="DejaVu Sans" svg:font-family="&apos;DejaVu Sans&apos;" style:font-family-generic="system" style:font-pitch="variable"/>
189
    <style:font-face style:name="FreeSans" svg:font-family="FreeSans" style:font-family-generic="system" style:font-pitch="variable"/>
190
    </office:font-face-decls>
191
    <office:automatic-styles>
192
EOcontent
193

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
194
    IFS=$'\n'
complète re-écriture
Sébastien Marque authored on 2019-04-27
195
    for i in $(seq $nb_cols); do
196
        cat >> "$content" << EOcontent
197
            <style:style style:name="co$i" style:family="table-column">
198
            <style:table-column-properties fo:break-before="auto" style:column-width="30.00mm"/>
199
            </style:style>
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
200
EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
201
    done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
202

            
203
    cat >> "$content" << EOcontent
complète re-écriture
Sébastien Marque authored on 2019-04-27
204
    <style:style style:name="ro1" style:family="table-row">
205
    <style:table-row-properties style:row-height="4.52mm" fo:break-before="auto" style:use-optimal-row-height="true"/>
206
    </style:style>
207
    <style:style style:name="ta1" style:family="table" style:master-page-name="Default">
208
    <style:table-properties table:display="true" style:writing-mode="lr-tb"/>
209
    </style:style>
210
    <style:style style:name="ce1" style:family="table-cell" style:parent-style-name="Default">
211
    <style:table-cell-properties fo:background-color="#cccccc"/>
212
    </style:style>
213
    </office:automatic-styles>
214
    <office:body>
215
    <office:spreadsheet>
216
    <table:calculation-settings table:automatic-find-labels="false"/>
217
    <table:table table:name="$result" table:style-name="ta1">
218
    <office:forms form:automatic-focus="false" form:apply-design-mode="false"/>
219
    <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
220
EOcontent
221

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
222
    for i in $(seq $(wc -w <<< $typevotes)); do
223
        cat >> "$content" << EOcontent
224
        <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
225
EOcontent
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
226
        for (( g = 1; g < ${#groupe[@]}; g++ )); do
227
            cat >> "$content" << EOcontent
228
            <table:table-column table:style-name="co1" table:default-cell-style-name="Default"/>
229
EOcontent
230
        done
complète re-écriture
Sébastien Marque authored on 2019-04-27
231
    done
232
    echo '<table:table-row table:style-name="ro1">' >> "$content"
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
233

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
239
    for typevote in $typevotes; do
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
240
        for g in "${groupe[@]}"; do
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
241
            write_cell texte "$typevote - $g"
complète re-écriture
Sébastien Marque authored on 2019-04-27
242
        done
243
    done
244

            
245
    echo '</table:table-row>' >> "$content"
246

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

            
amélioration code
Sébastien Marque authored on 2019-05-30
254
        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
255
        date=$(cut -d'|' -sf 1 <<< $data)
256
        title=$(cut -d'|' -sf 2 <<< $data)
257
        adoption=$(cut -d'|' -sf 3 <<< $data)
258
        url=$(cut -d'|' -sf 4 <<< $data)
259
        test $adoption -eq 1 && adoption='oui' || adoption='non'
groupe de référence: GDR
Sébastien MARQUE authored on 2019-02-17
260

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
263
        if test -n "$url"; then
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
264
            write_cell url "$url" $scrutin
complète re-écriture
Sébastien Marque authored on 2019-04-27
265
        else
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
266
            write_cell nombre $scrutin
complète re-écriture
Sébastien Marque authored on 2019-04-27
267
        fi
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
268
        write_cell texte "$date"
269
        write_cell texte "${title//\'/&apos;}"
270
        write_cell texte "$adoption"
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
271

            
amélioration code
Sébastien MARQUE authored on 2019-11-13
272
        for typevote in $(seq 0 $(( $(wc -w <<< $typevotes) - 1 ))); do
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
273
            vote_cible[$typevote]=$(sqlite_request "select
complète re-écriture
Sébastien Marque authored on 2019-04-27
274
                                        count(député)
275
                                     from
276
                                        dépouillement
277
                                     where
278
                                        scrutin is $scrutin
279
                                     and
280
                                        vote is $typevote
281
                                     and
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
282
                                        groupe is ${groupe_id[0]} ${nom:+ and député is ${nom%|*}}")
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
283
        done
284
        if test \( ${vote_cible[0]} -gt ${vote_cible[1]} -a $adoption = oui \) \
285
            -o  \( ${vote_cible[1]} -gt ${vote_cible[0]} -a $adoption = non \); then
286
            panurge=1
287
        else
288
            panurge=0
289
        fi
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
290
        write_cell nombre $panurge
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
291

            
292
        if test -n "$nom"; then
293
            for typevote in 0 1; do
294
                votes_g0[$typevote]=$(sqlite_request "select
295
                                            count(député)
296
                                         from
297
                                            dépouillement
298
                                         where
299
                                            scrutin is $scrutin
300
                                         and
301
                                            vote is $typevote
302
                                         and
303
                                            groupe is ${groupe_id[0]}")
304
            done
305
            participation=$(( vote_cible[0] + vote_cible[1] + vote_cible[2] + vote_cible[3] ))
306
            if test $(( (${votes_g0[0]} - ${votes_g0[1]}) * (${vote_cible[0]} - ${vote_cible[1]}) )) -gt 0; then
307
                loyaute=1
308
            else
309
                loyaute=0
310
            fi
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
311
            write_cell nombre $participation
312
            write_cell nombre $loyaute
ajoute colonnes loyauté, pan...
Sébastien MARQUE authored on 2019-11-13
313
        fi
314

            
amélioration code
Sébastien MARQUE authored on 2019-11-13
315
        for typevote in $(seq 0 $(( $(wc -w <<< $typevotes) - 1 ))); do
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
316
            write_cell nombre ${vote_cible[$typevote]}
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
317
            for (( g = 1; g < ${#groupe_id[@]}; g++ )); do
amélioration code
Sébastien Marque authored on 2019-05-30
318
                votes=$(sqlite_request "select
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
319
                                            count(député)
320
                                         from
321
                                            dépouillement
322
                                         where
323
                                            scrutin is $scrutin
324
                                         and
325
                                            vote is $typevote
326
                                         and
327
                                            groupe is ${groupe_id[$g]}")
simplification écriture des ...
Sébastien MARQUE authored on 2019-11-13
328
                write_cell nombre $votes
complète re-écriture
Sébastien Marque authored on 2019-04-27
329
            done
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
330
        done
complète re-écriture
Sébastien Marque authored on 2019-04-27
331
        echo '</table:table-row>' >> "$content"
332

            
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
333
        if test $(( ($line * 100) / ${qty:-$last} )) -ne $progress; then
334
            progress=$(( ($line * 100) / ${qty:-$last} ))
335
            if test $(( $progress % ${generation_progress:-5} )) -eq 0; then
complète re-écriture
Sébastien Marque authored on 2019-04-27
336
                now=$(date +%s)
337
                delta=$(( $now - $begin ))
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
338
                echo $progress%, ETA: $(date +%H:%M:%S -d "$(( $delta * (${qty:-$last} - $line) / $line )) seconds")
complète re-écriture
Sébastien Marque authored on 2019-04-27
339
            fi
340
        fi
meilleur calcul progression
Sébastien Marque authored on 2019-04-27
341

            
342
        let line++
343

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

            
347
    cat >> "$content" << EOcontent
348
    </table:table>
349
    <table:named-expressions/>
350
    <table:database-ranges>
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
351
    <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
352
    </table:database-ranges>
353
    </office:spreadsheet>
354
    </office:body>
355
    </office:document-content>
356
EOcontent
357

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

            
360
    mv -f "/dev/shm/$result.zip" "$result.ods"
361

            
362
    echo "$result.ods"
363
}
364

            
365
function save_database () {
améliore le trap
Sébastien Marque authored on 2019-04-27
366
    test -n "$database" -a -n "$in_ram_database" || return
améliore la sortie
Sébastien Marque authored on 2019-06-10
367
    test -r "$in_ram_database" || return
complète re-écriture
Sébastien Marque authored on 2019-04-27
368
    if test -r "$database" && md5sum $in_ram_database | sed "s,$in_ram_database,$database," | md5sum --status -c -; then
369
        rm -f $in_ram_database
370
    elif test -w "$database"; then
371
        mv -f $in_ram_database "$database"
372
    elif ! test -e "$database"; then
373
        mv $in_ram_database "$database"
374
    else
375
        rm -f $in_ram_database
376
    fi
377
}
378

            
factorisation
Sébastien MARQUE authored on 2020-02-08
379
function dernier_scrutin_public () {
380
    wget -qO- 'http://www2.assemblee-nationale.fr/scrutins/liste/(legislature)/15/(type)/TOUS/(idDossier)/TOUS' \
381
            | sed -rn 's,^.*<td class="denom">(.+)</td>.*$,\1,p' \
382
            | head -1
383
}
384

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

            
387
true_flag=$(mktemp --dry-run XXXXX)
388

            
389
OPTS=$( getopt -l no-db-update,\
390
                  db-update-only,\
391
                  cible:,\
392
                  ref:,\
393
                  député:,\
394
                  premier-scrutin:,\
395
                  dernier-scrutin:,\
396
                  période:,\
397
                  liste-dossiers,\
398
                  liste-députés,\
399
                  dossiers,\
400
                  dossier:,\
401
                  conf:,\
402
                  database:,\
403
                  progrès-génération:\
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
404
                  progrès-update:,\
405
                  help \
complète re-écriture
Sébastien Marque authored on 2019-04-27
406
                  -- "$@" )
407

            
408
eval set --$OPTS
409

            
410
while [[ $# -gt 0 ]]; do
411
    case "$1" in
412
        "--no-db-update")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
413
#|ne met pas à jour la base de données
complète re-écriture
Sébastien Marque authored on 2019-04-27
414
            no_db_update=$true_flag;;
415
        "--db-update-only")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
416
#|ne génère pas de fichier de résultat
complète re-écriture
Sébastien Marque authored on 2019-04-27
417
            db_update_only=$true_flag;;
418
        "--cible")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
419
#<nom court du groupe>|génère un comparatif pour ce groupe. Par défaut LREM
420
            groupe[0]="${2^^}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
421
            shift;;
422
        "--ref")
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
423
#<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
424
            groupe_ref="${2^^}"
complète re-écriture
Sébastien Marque authored on 2019-04-27
425
            shift;;
426
        "--député")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
427
#<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
428
            depute=$true_flag
429
            nom="$2"
430
            shift;;
431
        "--premier-scrutin")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
432
#<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
433
            no_db_update=$true_flag
434
            first="$2"
435
            shift;;
436
        "--dernier-scrutin")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
437
#<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
438
            no_db_update=$true_flag
439
            last="$2"
440
            shift;;
441
        "--période")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
442
#<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
443
            periode=$true_flag
444
            no_db_update=$true_flag
445
            periode_value="$2"
446
            shift;;
447
        "--liste-députés-du-groupe")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
448
#<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
449
            liste_deputes=$true_flag
450
            liste_deputes_value="${2^^}"
451
            shift;;
452
        "--liste-députés")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
453
#|liste tou-te-s les député-e-s de la mandature
complète re-écriture
Sébastien Marque authored on 2019-04-27
454
            liste_deputes=$true_flag;;
455
        "--liste-dossiers")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
456
#|affiche une liste numérotée des dossiers et sort
complète re-écriture
Sébastien Marque authored on 2019-04-27
457
            liste_dossiers=$true_flag;;
458
        "--dossier")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
459
#<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
460
            dossier=$true_flag
461
            dossier_value="$2"
462
            shift;;
463
        "--dossiers")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
464
#|sélection interactive du dossier
complète re-écriture
Sébastien Marque authored on 2019-04-27
465
            dossier=$true_flag;;
466
        "--conf")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
467
#<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
468
            test -r "$2" || {
469
                echo "config introuvable $2" >&2
470
                options_error=$true_flag
471
            }
472
            config_file="$2"
473
            shift;;
474
        "--database")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
475
#<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
476
            test -r "$2" && file -b "$2" | grep -q '^SQLite 3.x database' || {
477
                echo "erreur sur option database: fichier '$2' introuvable ou pas une base SQLite 3" >&2
478
                options_error=$true_flag
479
            }
480
            database="$2"
481
            shift;;
482
        "--progrès-génération")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
483
#<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
484
            generation_progress="$2"
485
            shift;;
486
        "--progrès-update")
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
487
#<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
488
            update_progress="$2"
489
            shift;;
ajout d'un message d'aide
Sébastien Marque authored on 2019-04-27
490
        "--help")
491
#|affiche cette aide et quitte
492
            echo "$0 [options]"
493
            echo "génère un classeur ODS pour comparer les scrutins publics de la 15ème mandature à l'Assemblée Nationale"
494
            echo
495
            sed -rn '/^ *"--.+"\)/N; s/^ *"(--.+)"\)\n#(.+)$/\1|\2/p' "$0" \
496
                | awk -F'|' -v marge='  ' -v prog="$0" '{
497
                    printf("%s %s\n" marge "%s\n\n", $1, $2, gensub("\\. ", "\\\n" marge, "g", gensub("\\{_\\}", prog, "g", $3)))
498
                }'
499
            exit;;
complète re-écriture
Sébastien Marque authored on 2019-04-27
500
    esac
501
    shift
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
502
done
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
503

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

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

            
fix syntax error
Sébastien Marque authored on 2019-06-10
508
declare -A groupes
complète re-écriture
Sébastien Marque authored on 2019-04-27
509
if test -n "$config_file"; then
510
    source "$config_file"
511
else
512
    config_file="${0}.conf"
513
    if test -r "$config_file"; then
514
        source "$config_file"
515
    fi
utilsation d'une archive com...
Sébastien MARQUE authored on 2019-02-20
516
fi
517

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

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
520
in_ram_database=$(mktemp --dry-run /dev/shm/XXXXXXXXXXXX)
521
if test -r "$database"; then
522
    cp "$database" "$in_ram_database"
523
else
524
    create_database
525
fi
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
526

            
ajout possibilité de compare...
Sébastien Marque authored on 2019-05-03
527
for (( g = 0; g < ${#groupe[@]}; g++ )); do
amélioration code
Sébastien Marque authored on 2019-05-30
528
    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
529
    if test -z "${groupe_id[$g]}"; then
530
        echo "groupe ${groupe[$g]} inconnu" >&2
complète re-écriture
Sébastien Marque authored on 2019-04-27
531
        exit 1
532
    fi
533
done
ajout script d'analyse des v...
Sébastien MARQUE authored on 2019-02-17
534

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
535
if test "$periode" = $true_flag; then
amélioration code
Sébastien Marque authored on 2019-05-30
536
    first=$(sqlite_request "select num from scrutins where date like '% du ${periode_value%:*}' order by num asc" | head -1)
537
    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
538
    test -z "$first" && echo "date de début inconnue: ${periode_value#*:}" >&2 && rm -f $in_ram_database && exit 1
539
    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
540
elif test "$dossier" != $true_flag; then
factorisation
Sébastien MARQUE authored on 2020-02-08
541
    test -z "$last" && last=$(dernier_scrutin_public)
fix bug sur premier scrutin
Sébastien Marque authored on 2019-04-27
542
    test -z "$first" && first=1
complète re-écriture
Sébastien Marque authored on 2019-04-27
543
fi
affiche nom du fichier des r...
Sébastien MARQUE authored on 2019-03-30
544

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
545
if test "$liste_dossiers" = $true_flag; then
amélioration code
Sébastien Marque authored on 2019-05-30
546
    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
547
    exit
548
fi
549

            
550
if test "$db_update_only" = $true_flag; then
551
    unset first last
factorisation
Sébastien MARQUE authored on 2020-02-08
552
    last=$(dernier_scrutin_public)
complète re-écriture
Sébastien Marque authored on 2019-04-27
553
    update_database
554
    exit
555
fi
556

            
557
if test "$liste_deputes" = $true_flag; then
558
    if test -n "$liste_deputes_value"; then
amélioration code
Sébastien Marque authored on 2019-05-30
559
        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
560
    else
amélioration code
Sébastien Marque authored on 2019-05-30
561
        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
562
    fi
563
    exit
564
fi
écriture directe en feuille ...
Sébastien MARQUE authored on 2019-03-31
565

            
complète re-écriture
Sébastien Marque authored on 2019-04-27
566
if test "$depute" = $true_flag; then
567
    if test -n "$nom"; then
amélioration code
Sébastien Marque authored on 2019-05-30
568
        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
569
        if test $match -ne 1; then
570
            if test $match -eq 0; then
571
                echo "pas de député correspondant dans le groupe $groupe"
572
            else 
573
                echo "plusieurs députés correspondent:"
amélioration code
Sébastien Marque authored on 2019-05-30
574
                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
575
            fi
576
            exit 1
577
        else
amélioration code
Sébastien Marque authored on 2019-05-30
578
            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
579
            groupe[0]="${nom#*|} (${groupe[0]})"
complète re-écriture
Sébastien Marque authored on 2019-04-27
580
        fi
581
    fi
582
fi
583

            
584
if test "$dossier" = $true_flag; then
factorisation
Sébastien MARQUE authored on 2020-02-08
585
    last=$(dernier_scrutin_public)
complète re-écriture
Sébastien Marque authored on 2019-04-27
586
    if test -z "$dossier_value"; then
587
        IFS=$'\n'
amélioration code
Sébastien Marque authored on 2019-05-30
588
        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
589
            if test -n "$dossier"; then
amélioration code
Sébastien Marque authored on 2019-05-30
590
                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\""
591
                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
592
                break
593
            fi
594
        done
595
        IFS=$IFS_
596
    else
amélioration code
Sébastien Marque authored on 2019-05-30
597
        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\""
598
        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")
599
        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
600
    fi
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
update_database
604
write_comparaison