Debianization:
[ccoop.git] / ccoop-update
1 #!/usr/bin/env bash
2 #
3 # Crédit Coopératif account tools
4 #
5 # It fetch csv file and merge them to previous ones
6 # It also generates a local file suitable for a feed reader
7 #
8 # Depends on wget, iconv
9
10 set -e
11
12 export CCPATH=~/ccoop
13 LOGFILE=$CCPATH/coop.log # unsued unless --log option is used
14 COOKIEJAR=$CCPATH/cookiejar # cookies, deleted on exit
15 TMP=$CCPATH/lastpage.html # last html page, deleted on exit
16
17 function parsearg() {
18     _OPT="${1%=?*}"
19     _VAL="${1#?*=}"
20 }
21
22 function usage() {
23     #echo $'\n' $@ $'\n'
24     echo "Usage: ccoop-update [options]"
25     echo "  -h|--help             Display that help"
26     echo "  -q|--quiet            Don't display informationnal messages"
27     echo "  --log                 Log everything to $LOGFILE"
28     echo "  --config              Setup a config file and install cron entry"
29     echo "  --unconfig            Remove config file and remove cron entry"
30     #echo "  --target=<filename>  Set target filename. Defaults to $target_file"
31     #echo "See man ccoop-update(1) for documentation."
32 }
33
34 for arg in "$@"; do
35     parsearg $arg
36
37     case $_OPT in
38     -q|--quiet)
39         quiet=1
40         continue
41     ;;
42     --log)
43         log=1
44         continue
45     ;;
46     --config)
47         isconfig=1
48         continue
49     ;;
50     --unconfig)
51         isunconfig=1
52         continue
53     ;;
54     -h|--help)
55         usage 
56         exit 0
57     ;;
58     #--target)
59     #    target_file=$_VAL
60     #    continue
61     #;;
62     *)
63         echo "Unknown option $_OPT"
64         usage
65         exit 22
66     ;;
67     esac
68 done
69
70 # That function prints messages to stderr, unless quiet is set
71 # It logs into $LOGFILE if log is set, no matter whether quiet is set or not
72 function inform() {
73     if [ -n "$quiet" ]; then
74         if [ -n "$log" ]; then
75             echo $@ >> $LOGFILE >&2
76         fi
77     else # not quiet
78         if [ -n "$log" ]; then
79             echo $@ | tee -a $LOGFILE >&2
80         else
81             echo $@ >&2
82         fi
83     fi
84 }
85
86 function fetch() {
87     wget -q --load-cookies $COOKIEJAR --save-cookies $COOKIEJAR --keep-session-cookies $@ -O - | iconv -f ISO-8859-1 -t UTF-8 > $TMP
88     if [ -n "$log" ]; then
89         cat $TMP >> $LOGFILE
90     fi
91 }
92
93 function doconfig() {
94     read -p "Coopanet login: " COOPLOGIN
95     read -p "Coopanet password: " -s COOPPASSWORD
96     mkdir -p $CCPATH
97     echo "# coopanet configuration">$CCPATH/config
98     echo "COOPLOGIN=$COOPLOGIN">>$CCPATH/config
99     echo "COOPPASSWORD=$COOPPASSWORD">>$CCPATH/config
100     echo >&2
101     echo "config writen to $CCPATH/config" >&2
102     crontab -l | grep -v ccoop-update || echo "$(($RANDOM%60)) 6     * * *   $PWD/`dirname $0`/ccoop-update -q" | crontab -
103     echo "crontab installed" >&2
104 }
105
106 function dounconfig() {
107     local ok
108     if [[ -e $CCPATH/config ]]; then
109         rm -f $CCPATH/config
110         echo "$CCPATH/config deleted">&2
111         ok=1
112     fi
113     if crontab -l | grep -q ccoop-update ; then
114         crontab -l | grep -v ccoop-update | crontab -
115         echo "crontab uninstalled" >&2
116         ok=1
117     fi
118     if [[ -z "$ok" ]]; then
119         echo "Allready uninstalled." >&2
120     fi
121     if [[ -e "$CCPATH" ]]; then
122         echo "Password cleared. Remove ~/ccoop manually if you want to erase history." >&2
123     fi
124     exit 0
125 }
126
127 function fetchall() {
128     echo> $COOKIEJAR
129     if [[ -n "$log" ]]; then
130         echo> $LOGFILE
131     fi
132     
133     inform "WGET login form"
134     fetch https://www.coopanet.com/banque/cpt/
135     
136     inform "WGET bql/connexion.do"
137     fetch "--post-data=site=C&codeUtil=$COOPLOGIN&motPasse=$COOPPASSWORD&pbValider=Valider" https://www.coopanet.com/banque/cpt/bql/connexion.do
138     
139     inform "WGET cpt/connexion.do"
140     fetch https://www.coopanet.com/banque/cpt/cpt/connexion.do
141  
142     if grep -q "Vous venez de quitter  COOP@NET" $TMP; then
143         echo "Can't log in. Check password" >&2
144     fi
145
146     IFS=$'\n'
147     accountsId=(`grep numeroExterne $TMP | grep hidden | cut -d \" -f 6`)
148     accountsNames=(`grep "<td style=\"width:9%;\">" $TMP | cut -d ">" -f 2 | cut -d "<" -f 1`)
149     accountsBalances=(`grep "Consulter votre relevé" $TMP | cut -d ">" -f 3 | cut -d "<" -f 1`)
150     unset IFS
151
152     for idx in ${!accountsId[@]}; do
153         account=${accountsId[$idx]}
154         name=${accountsNames[$idx]}
155         balance=${accountsBalances[$idx]}
156         inform "$name $account $balance"
157     
158         inform "WGET situationcomptes.do"
159         fetch "--post-data=numeroExterne=$account&typeAction=2&btAction=OK" https://www.coopanet.com/banque/cpt/cpt/situationcomptes.do
160         
161         dateFin=`grep dateFin $TMP | cut -d \" -f 10`
162         inform "WGET selectiontelechargement.do"
163         fetch "--post-data=format=3&dateDebut=01/01/2001&dateFin=$dateFin&btValider=Valider" https://www.coopanet.com/banque/cpt/cpt/selectiontelechargement.do
164     
165         inform "WGET telechargement.do"
166         ppath=`grep path $TMP | cut -d \" -f 6`
167         fetch "--post-data=path=$ppath&zip=2&btConfirmer=Confirmer" https://www.coopanet.com/banque/cpt/cpt/telechargement.do
168         tail -n +2 $TMP > $CCPATH/$account.`date +%Y%m%d`.csv
169         rm -f $CCPATH/$account.last.csv
170         ln -s $CCPATH/$account.`date +%Y%m%d`.csv $CCPATH/$account.last.csv
171     done
172     
173     # logout
174     inform "WGET reconnect.do"
175     fetch https://www.coopanet.com/banque/cpt/communs/reconnect.do
176     
177     # delete tmp files
178     rm -f $COOKIEJAR $TMP
179 }
180
181
182 # That function updates $account.csv files, adding the latest missing entries
183 # It dumps on stdout the new lines
184 function updatehistory() {
185     inform "Updating complete csv files"
186     # merge values in $account.csv
187     for idx in ${!accountsId[@]}; do
188         account=${accountsId[$idx]}
189         name=${accountsNames[$idx]}
190         balance=${accountsBalances[$idx]}
191
192         # get new lines into $account.new.csv
193         diff -Nau $CCPATH/$account.last.csv $CCPATH/$account.csv | grep "^-" | grep -v "^---" | cut -c 2- > $CCPATH/$account.new.csv
194     
195         # print new entries
196         cat $CCPATH/$account.new.csv
197     
198         cat $CCPATH/$account.csv >>$CCPATH/$account.new.csv
199         mv $CCPATH/$account.new.csv $CCPATH/$account.csv
200     done
201 }
202
203 function atomize() {
204     inform "Updating feeds"
205     for idx in ${!accountsId[@]}; do
206         account=${accountsId[$idx]}
207         name=${accountsNames[$idx]}
208         balance=${accountsBalances[$idx]}
209
210         "`dirname $0`/ccoop-atomize" "$account" "$name" "$balance" > $CCPATH/$account.atom
211     done
212 }
213
214
215 umask 0077 # make sure the generated files are only readable by the user
216
217 if [[ -n $isconfig ]]; then
218     doconfig
219 fi
220 if [[ -n $isunconfig ]]; then
221     dounconfig
222 fi
223
224 # Make sure our temporary files are deleted on error and on exit
225 trap "rm -f $COOKIEJAR $TMP; exit" INT TERM EXIT
226
227 if [[ ! -r $CCPATH/config ]]; then
228     echo "Use '$0 --config'"
229     exit 1
230 fi
231 if [[ `ls -l $CCPATH/config | cut -c 8-10` != "---" ]]; then
232     echo "Security warning: config file should be chmod o-rwx" >&2
233 fi
234 source $CCPATH/config
235
236 if [[ -n $log ]]; then
237     inform "Warning, $LOGFILE will contain sensitive information. You should delete it."
238 fi
239
240
241 fetchall
242 updatehistory
243 atomize
244