Removed postfix and dovecot upgrade functions.
[carnet-upgrade.git] / src / functions.sh
1 # last update: 2005-07-03
2 # Ivan 'ico' Rako <irako@srce.hr>
3 # Zoran 'jelly' Dzelajlija <jelly@srce.hr>
4
5 notice () {
6   dialog --backtitle "$title" --msgbox "$*" 18 75
7 }
8
9 first_warning () {
10   dialog --backtitle "$title" --yesno "$msg_first_warning" 18 75
11 }
12
13 pkg() {
14   local version
15   dpkg -l "$1" 2> /dev/null | egrep -q "^.i" || return 1
16   [ -z "$2" ] && return 0
17   version=$(dpkg -s "$1" | awk '/^Version:/ {print $2}')
18   dpkg --compare-versions "$version" "$2" "$3" 2>&1 > /dev/null
19 }
20
21 log() {
22   logfile=${logfile:=/var/log/carnet-upgrade.log}
23   touch $logfile
24   echo "$(date +'%Y-%m-%d %H:%M:%S') $*" >> $logfile
25   echo "CN: $*"
26 }
27
28 # find first free uid/gid in range
29 # find_id passwd 100 999
30 find_id() {
31   local db first last ids
32   db=$1
33   first=$2
34   last=$3
35   ids=$(getent $db | awk -F: "\$3 >= $first && \$3 <= $last {print \$3}")
36   for i in $(seq $first $last)
37   do
38     if ! echo $ids |grep -q $i; then
39       echo $i
40       return 0
41     fi
42   done
43   return 1
44 }
45
46 # safe in-place s///
47 check_and_sed() {
48   [ "$DEBIAN_SCRIPT_DEBUG" ] && set -vx
49   local s sedcmd ret i
50   s="$1"
51   shift
52   sedcmd="$1"
53   shift
54   ret=2
55   for i in $*
56   do
57     [ -e "$i" ]        || continue
58     egrep -q "$s" "$i" || continue
59     [ -h "$i" ]        && i=$(readlink -f "$i")
60     sed "$sedcmd" "$i" > "$i.dpkg-tmp"
61     chown --reference "$i" "$i.dpkg-tmp"
62     chmod --reference "$i" "$i.dpkg-tmp"
63     mv "$i.dpkg-tmp" "$i"
64     ret=0
65   done
66   if [ "$ret" -eq 0 ]; then
67     log "Done \"$sedcmd\" to $*"
68   fi
69   return $ret
70 }
71
72 #
73 # Update uid for user from reserved system range (0-99) to dynamic system
74 # range (100-999).  Optionally update ownerships of given directories.
75 # $0 user [directory ...]
76 #
77 check_and_update_ugid() {
78   local user newgid newuid
79   user=$1
80   if [ "$(getent passwd $user | awk -F: '$3 >= 100 {print "ok"; exit 0}')" ]; then
81     return 0
82   fi
83   shift
84   newgid=$(find_id group 100 999)
85   newuid=$(find_id passwd 100 999)
86   # other directories/files
87   chown -R $newuid:$newgid $*
88   groupmod -g $newgid $user
89   usermod -u $newuid -g $newgid $user
90   log "Fixed $user user uid/gid."
91 }
92
93 pkgadd () {
94   [ -n "$*" ] || return 0
95   log "Installing $* ..."
96   apt-get -y$s install $* || {
97     dpkg --configure -a
98     apt-get -yf install
99     apt-get -y$s install $*
100   }
101 }
102
103 pkgrm () {
104   [ -n "$*" ] || return 0
105   log "Removing $* ..."
106   apt-get -y$s --purge remove $* || {
107     dpkg --configure -a
108     apt-get -yf install
109     apt-get -y$s --purge remove $*
110   }
111 }
112
113 update() {
114   log "Running apt-get update ..."
115   apt-get -y$s update || {
116     apt-get -yf install
117     apt-get -y$s update
118   }
119   apt-get autoclean
120   apt-get -dy$s dist-upgrade
121 }
122
123 dist_upgrade () {
124   log "Running dist-upgrade ..."
125   apt-get -y$s dist-upgrade || {
126     dpkg --configure -a
127     apt-get -y$s dist-upgrade
128   }
129 }
130
131 remove_bloat() {
132   local to_remove add_this i j n text to_show cmd tmpfile installed
133   local update_selections pkgs_to_deselect oldifs
134   text="$msg_remove_bloat"
135
136   [ "$DEBUG" ] && set -x
137   n=0
138   for i in $(echo "$bloats" | sed 's/           */      /g'| awk -F'    ' '{print $2}')
139   do
140     if pkg $i; then
141       installed="$installed $i"
142       add_this="$(echo "$bloats" | egrep "      .*\b${i}\b" | sed 's/           */      /g'| awk -F'    ' '{print $1}')"
143       if ! echo "$to_show" | grep -q "$add_this"; then
144         to_show="$to_show \"$add_this\" \"\" on"
145         n=$(($n+1))
146       fi
147     fi
148   done
149   [ -z "$to_show" ] && return 0
150   tmpfile=$(mktemp /var/lib/carnet-upgrade/dialog-tmp.XXXXXX)
151   cmd="dialog --nocancel --backtitle \""$title"\" --checklist \""$text"\" 20 75 $n $to_show"
152   [ "$DEBUG" ] && set +x
153     eval $cmd 2> $tmpfile
154   [ "$DEBUG" ] && set -x
155   to_remove="$(cat $tmpfile | sed 's/\"\ \"/    /g; s/\"\ *//g; s/\\//g')"
156   [ "$DEBUG" ] || rm -f $tmpfile 
157   [ "$DEBUG" ] && echo "DEBUG: to_remove=$to_remove" 1>&2
158   oldifs="$IFS"
159   IFS=" " # tab
160   for i in $(echo "$to_remove")
161   do
162     IFS="$oldifs"
163     for j in $(echo "$bloats" | grep "^$i" | sed 's/            */      /g'| awk -F'    ' '{print $2}')
164     do
165       # hopefully this will tell apt not to reinstall them at upgrade time
166       update_selections="${update_selections}
167         $j      deinstall"
168       pkgs_to_deselect="$pkgs_to_deselect $j"
169       # only remove those that really are installed
170       if echo "$installed" | grep -q "$j"; then
171         pkgs_to_remove="$pkgs_to_remove $j"
172       fi
173     done
174   done
175   [ "$DEBUG" ] && echo "DEBUG: pkgs_to_remove=$pkgs_to_remove" 1>&2
176   # Finally, remove those
177   if [ -n "$update_selections" ]; then
178     echo "$update_selections" | dpkg --set-selections
179     log "Deselected:${pkgs_to_deselect}"
180   fi
181   eval pkgrm $pkgs_to_remove
182 }
183
184 post_upgrade() {
185   touch "$post_upgrade_queuetab"
186   if ! grep -q "true    $*" "$post_upgrade_queuetab"; then
187     echo "true  $*" >> "$post_upgrade_queuetab"
188   fi
189 }
190
191 run_post_upgrade() {
192   if [ -f "$post_upgrade_queuetab" ]; then
193     run_actions post_upgrade "$post_upgrade_queuetab"
194     mv "$post_upgrade_queuetab" "${post_upgrade_queuetab}.done.$(date '+%Y-%m-%d.%H:%M:%S')"
195   fi      
196 }
197
198 ###
199
200 run_actions() {
201   local line lineno lineno2 f n name action testmsg
202   [ "$DEBUG" ] && set -vx
203   name="$1"
204   f="$2"
205   [ -f "$f" ] ||   return 2 # no such file
206   n=$(wc -l "$f" | awk '{print $1}')
207   [ "$n" -lt 1 ] && return 1 # no lines to process
208   log "run_actions ($name) started, processing $n lines from \"$f\"."
209   log "-----"
210   lineno=0
211   lineno2=0
212   while [ "$lineno" -lt "$n" ]
213   do
214     lineno=$(($lineno+1))
215     lineno2=$lineno
216     line=$(head -$lineno "$f" | tail -1)
217     if echo $line | grep -q '^#'; then  # comment
218       continue
219     fi
220     while echo "$line" | egrep -q '\\$' # continuation
221     do
222       lineno2=$(($lineno2+1))
223       line=$(echo -n "$line"| sed 's/\\$//'; head -$lineno2 "$f" | tail -1)
224     done
225     test=$(echo "$line" | sed 's/               */      /g'| awk -F'    ' '{print $1}')
226     action=$(echo "$line" | sed 's/             */      /g'| awk -F'    ' '{print $2}')
227     testmsg=""
228     [ "$test" != "true" ] && testmsg="if '$test'"
229     if eval $test; then
230       log "$(printf 'action %02d' $lineno) starting: '${action}' $testmsg "
231       eval $action
232       log "$(printf 'action %02d' $lineno) finished: '${action}' $testmsg"
233     else
234       log "$(printf 'action %02d' $lineno) skipping: '${action}' $testmsg"
235     fi
236     [ "$lineno2" -gt "$lineno" ] && lineno=$lineno2
237   done
238   log "run_actions ($1) finished"
239   log "-----"
240 }
241
242 # funkcija vraca popis paketa koje treba upgradeati
243 what_upgrade () {
244   local IFSOLD name version package
245
246   for package in `echo "$needed_versions" | awk '{print $1}'| grep -v ^$`; do
247     IFSOLD="$IFS"
248     IFS="       " # tab
249     read name version <<-EOPTS
250         $(echo "$needed_versions" | sed 's/             */      /g' | grep ^$package)
251         EOPTS
252     IFS="$IFSOLD"
253     if pkg "$name" lt "$version"; then
254         echo -n " $name"
255     fi
256   done
257 }
258
259 # funkcija za ispis paketa koje treba upgradeati
260 check_upgrade () {
261   local upgrade
262   upgrade="`what_upgrade`"
263
264   if [ "$upgrade" ]; then
265     notice "
266 Prije prelaska na Debian Etch potrebno je napraviti upgrade ovih paketa:
267   $upgrade
268
269 Pokrenite:
270   'apt-get dist-upgrade'
271 ili:
272   'apt-get install${upgrade}'
273   
274 Nakon toga ponovno pozovite ovu skriptu."
275     log "carnet-upgrade aborted, upgrade of$upgrade needed."
276     exit 1
277   fi
278 }
279
280 upgrade () {
281   local to_install packages
282   case "$1" in
283     first)
284       packages="$packages_first"
285     ;;
286     second)
287       packages="$packages_second"
288     ;;
289     *)
290     return 1
291   esac
292
293   for i in $packages
294   do
295     pkg $i && to_install="$to_install $i"
296   done
297
298   if [ -n "$to_install" ];then
299     eval pkgadd $to_install
300   else
301     return 0
302   fi
303 }
304
305 # funkcija utrpa ispravan sources.list
306 create_sources_list () {
307     [ -f /etc/apt/sources.list -a ! -f /etc/apt/sources.list.cn3-upgrade ] && mv /etc/apt/sources.list /etc/apt/sources.list.cn3-upgrade
308     cp /usr/share/carnet-upgrade/files/etc/apt/sources.list /etc/apt
309     notice "Novi sadrzaj datoteke /etc/apt/sources.list:
310
311 `cat /etc/apt/sources.list`"
312 }
313
314
315 # funkcija koja brise grupu proc
316 remove_group_proc () {
317   if getent group proc > /dev/null; then
318     groupdel proc || true
319     log "groupdel proc (temporarily)"
320     post_upgrade add_group_proc
321   fi
322 }
323
324 add_group_proc () {
325   if ! getent group proc > /dev/null; then
326     groupadd -g 99 proc 
327     log "groupadd -g 99 proc"
328     if [ -x /etc/init.d/oidentd -a -f /etc/default/oidentd ] && \
329        egrep -q 'OIDENT_GROUP.*proc' /etc/default/oidentd; then
330       /etc/init.d/oidentd restart || true
331     fi
332   fi
333 }
334
335 # backup_slapd_db
336 backup_slapd_db () {
337   local ldap_backup=/var/backups/slapcat.cn3-upgrade
338
339   if [ ! -f $ldap_backup ]; then
340     [ -x /etc/init.d/freeradius ] && /etc/init.d/freeradius stop || true
341
342     if [ -x /etc/init.d/slapd -a -d /var/lib/ldap ]; then
343       /etc/init.d/slapd stop || true
344       if slapcat -l $ldap_backup; then
345         log "$ldap_backup created"
346         notice "Napravljen backup slapd baze u $ldap_backup."
347       fi
348       /etc/init.d/slapd start || true
349     fi
350
351     [ -x /etc/init.d/freeradius ] && /etc/init.d/freeradius start || true
352   else
353     log "slapd backup already at $ldap_backup, skipping"
354     notice "Backup slapd baze u $ldap_backup vec postoji!"
355   fi
356 }
357
358 # backup etc direktorija
359 backup_etc_dir () {
360   local etc_backup=/var/backups/etc.cn3-upgrade.tar.gz
361
362   if [ ! -f $etc_backup ]; then
363     if tar cfz $etc_backup /etc 2> /dev/null; then
364       log "$etc_backup created"
365       notice "Napravljen backup /etc direktorija u $etc_backup."
366     fi
367   else
368     log "/etc backup already present in $etc_backup, skipping."
369     notice "Backup /etc direktorija u $etc_backup vec postoji!"
370   fi
371 }
372
373 # fixaj /etc/default/raid2
374 fix_etc_default_raid2 () {
375   if [ -f /etc/default/raid2 ]; then
376     sed "s/^AUTOSTART.*/AUTOSTART=true/g" /etc/default/raid2 > /etc/default/raid2.cn3-upgrade.$$
377     chown --reference=/etc/default/raid2 /etc/default/raid2.cn3-upgrade.$$
378     chmod --reference=/etc/default/raid2 /etc/default/raid2.cn3-upgrade.$$
379
380     if ! cmp -s /etc/default/raid2.cn3-upgrade.$$ /etc/default/raid2; then
381       log "Fixed /etc/default/raid2 AUTOSTART option."
382       mv /etc/default/raid2.cn3-upgrade.$$ /etc/default/raid2
383     else
384       rm /etc/default/raid2.cn3-upgrade.$$
385     fi
386   fi
387 }
388
389 # restore distribution config file
390 restore_config () {
391   local file file_backup
392
393   for file in "$@"; do
394     file_backup=$file.cn3-upgrade
395     if [ -e $file -a ! -e $file_backup ]; then
396       # backup file
397       mv $file $file_backup
398
399       # install original
400       log Restoring config file $file
401       cp /usr/share/carnet-upgrade/files/$file $file
402     fi
403   done
404 }
405
406 # restore modified config to their package defaults
407 # so the upgrade doesn't complain so much
408 restore_configs () {
409   restore_config /etc/bind/named.conf.options
410   restore_config /etc/default/ntpdate
411   restore_config /etc/default/oidentd
412   restore_config /etc/default/postgrey
413   restore_config /etc/default/saslauthd
414   restore_config /etc/default/slapd
415   restore_config /etc/dovecot/dovecot.conf
416   restore_config /etc/init.d/mysql
417   restore_config /etc/init.d/slapd
418   restore_config /etc/issue
419   restore_config /etc/issue.net
420   restore_config /etc/logrotate.d/mysql-server
421   restore_config /etc/mysql/my.cnf
422   restore_config /etc/ntp.conf
423   restore_config /etc/pam.d/login
424   restore_config /etc/php4/apache/php.ini
425   restore_config /etc/php4/cgi/php.ini
426   restore_config /etc/php4/cli/php.ini
427   restore_config /etc/postgrey/whitelist_clients
428   restore_config /etc/security/limits.conf
429   restore_config /etc/squirrelmail/apache.conf
430   restore_config /etc/sysctl.conf
431   restore_config /etc/vsftpd.conf
432   restore_config /etc/xinetd.conf
433
434   # orphaned config file - no owner
435   rm -f /etc/logcheck/ignore.d.server/imap
436
437   # aide switched to ucf, move old configs aside
438   for file in /etc/aide/aide.conf /etc/cron.daily/aide /etc/default/aide; do
439       [ ! -e "$file.cn3-upgrade" ] && mv "$file" "$file.cn3-upgrade"
440       rm -f "$file"
441   done
442 }
443
444 # make a silent installation of carnet and srce keyrings
445 install_keyrings () {
446   pkgadd carnet-keyring srce-keyring
447   pkgadd dpkg apt debconf
448
449   dpkg-reconfigure carnet-keyring srce-keyring
450   update
451 }
452
453 # make a silent upgrade to new libc6
454 upgrade_libc () {
455   DEBIAN_FRONTEND=noninteractive pkgadd libc6
456 }
457
458 # upgrade apache -> apache2
459 upgrade_apache () {
460   # bugfix for apache2-cn postinst
461   mkdir -p /etc/apache2
462   touch /etc/apache2/httpd.conf
463
464   pkgadd php4-odbc php4-xslt
465
466   # apache2 conflicts with these
467   pkgrm apache aosi-aai aosi-www-aai php4-cn squirrelmail-cn
468
469   # apache2-cn postinst needs new mktemp
470   #pkgadd apache2-cn php5-cn aosi-aai aosi-www-aai # squirrelmail-cn
471
472   pkgadd apache2 apache2-mpm-prefork libapache2-mod-php4 ssl-cert
473   apt-get install -y -d apache2-cn php4-cn
474   apt-get autoclean
475   dpkg -i --ignore-depends=apache2-cn \
476      /var/cache/apt/archives/apache2-cn_* \
477      /var/cache/apt/archives/php4-cn_*
478
479   pkgadd aosi-aai aosi-www-aai # squirrelmail-cn
480 }
481
482 upgrade_amavis () {
483   # remove diversion
484   if [ -L /etc/init.d/amavis -a -f /etc/init.d/amavis.amavisd-new ]; then
485     rm -f /etc/init.d/amavis
486     dpkg-divert --quiet --remove /etc/init.d/amavis
487   fi
488
489   # move old config aside
490   local conf=/etc/amavis/amavisd.conf
491   if [ -e $conf -a ! -e $conf.cn3-upgrade ]; then
492     mv $conf $conf.cn3-upgrade
493   fi
494
495   pkgadd amavisd-cn amavisd-new
496
497   check_and_sed '^clamd.*5.clamav.log$' \
498                 's/^\(clamd.*\)5.clamav.log$/\14\tsocket/g' \
499                 /etc/init.d/amavisd-cn || true
500
501   /etc/init.d/amavis restart
502 }
503
504 # fix openldap-aai postinst user handling
505 upgrade_openldap () {
506   #pkgrm openldap-cn # deprecated
507   apt-get -y$s install openldap-aai || true # postinst fails
508   chown -R openldap:openldap /var/lib/ldap  # fix slapd
509   /etc/init.d/slapd restart
510   dpkg --configure -a # try postinst again
511 }
512
513 # workaround ntp-cn dependencies
514 upgrade_ntp () {
515   pkgadd ntp ntpdate
516   # pkgrm ntp-server
517   pkgadd ntp-cn
518 }
519
520 # instaliraj zadnji freeradius; uvjeti u queue fileovima
521 install_freeradius () {
522   pkgadd --force-yes freeradius-cn freeradius=1.0.5-0 freeradius-ldap=1.0.5-0
523 }
524
525 # tentatively remove obsolete option in xinetd.conf
526 fix_xinetd_conf () {
527   if [ -f /etc/xinetd.conf ]; then
528     check_and_sed 'log_on_failure.*RECORD' \
529                    's/\(log_on_failure.*\)RECORD/\1/g' \
530                    /etc/xinetd.conf || true
531   fi
532 }
533
534 # temporarily disable mod_ssl.conf in apache so that upgrade works
535 fix_mod_ssl_include() {
536   if [ -f /etc/apache/mod_ssl.conf ]; then
537     check_and_sed '^Include /etc/apache/mod_ssl\.conf' \
538                   's,\(^Include[        ][      ]*/etc/apache/mod_ssl\.conf\),#\1,' \
539                   /etc/apache/httpd.conf || true
540   fi
541 }
542
543 fix_proftpd_conf() {
544   if [ -f /etc/proftpd.conf ]; then
545     check_and_sed '^LsDefaultOptions' \
546                   's,^LsDefaultOptions,ListOptions,' \
547                   /etc/proftpd.conf || true
548   fi
549   [ -x /etc/init.d/proftpd ] && /etc/init.d/proftpd restart || true
550 }
551
552 # fix /etc/dpkg/dpkg.cfg
553 comment_force_overwrite () {
554   if [ -f /etc/dpkg/dpkg.cfg ]; then
555     if check_and_sed '^force-overwrite' \
556                   's,\(^force-overwrite\),#\1,' \
557                   /etc/dpkg/dpkg.cfg; then
558       notice "$msg_comment_force_overwrite"
559     fi
560   fi
561 }
562
563 fix_aidexfer_conf() {
564   if [ -f /etc/aide/aidexfer.conf ]; then
565     check_and_sed '/usr/local/lib/aidexfer' \
566                   's,/usr/local/lib/aidexfer,/usr/share/aidexfer,' \
567                   /etc/aide/aidexfer.conf || true
568   fi
569 }
570
571 fix_issue () {
572   cat > /etc/issue <<EOF
573 Debian GNU/Linux 4.0 (CARNet Debian 3.0) \\n \\l
574 EOF
575
576   cat > /etc/issue.net <<EOF
577 Debian GNU/Linux 4.0 (CARNet Debian 3.0) %h
578 EOF
579 }
580
581 check_disk_space() {
582   local available_disk_space
583   available_disk_space=$(df -m /var|tail -1|awk '{print $4}')
584   if [ $available_disk_space -lt $min_var_space ]; then
585     log "carnet-upgrade aborted: not enough space on /var (need ${min_var_space}MB)"
586     notice "Premalo mjesta na /var particiji. Potrebno je imati barem ${min_var_space}MB."
587     exit 1
588   fi
589 }
590
591 fix_webalizer_conf () {
592   if [ -f /etc/webalizer.conf ]; then
593     check_and_sed '^/' \
594                   's,^/,#,' \
595                   /etc/webalizer.conf || true
596   fi
597 }
598
599 # like in sendmail-cn
600 fix_smtp_auth() {
601   local tmpl conf tmpldir confdir mv_in_sasl
602
603   # all of these should be installed after dist-upgrade
604   # if we had SMTP AUTH previously
605   if pkg sasl2-bin && pkg sasl-bin && pkg sendmail-cn ge 2:8.13.1-2; then
606     :
607   else
608     return 0
609   fi
610
611   tmpldir=/usr/share/sendmail/examples/sasl
612   tmpl=$tmpldir/Sendmail.conf.2
613   confdir=/etc/mail/sasl
614   conf=$confdir/Sendmail.conf.2
615   if [ "$(sasldblistusers | wc -l)" -gt 0 ]; then
616     if [ "$(sasldblistusers2 | wc -l)" -eq 0 ]; then
617       echo | sasldbconverter2 /etc/sasldb
618       log "Converted /etc/sasldb to /etc/sasldb2."
619     else
620       log "Found users in both /etc/sasldb and /etc/sasldb2, doing nothing!"
621     fi
622   fi
623   if [ -f $conf -a -f $tmpl ] && \
624     ! cmp -s $conf $tmpl; then
625     mv $conf $conf.cn3-upgrade
626     mv_in_sasl=1
627   fi
628   if [ -f $confdir/Sendmail.conf ]; then
629     mv $confdir/Sendmail.conf $confdir/Sendmail.conf.cn3-upgrade
630     mv_in_sasl=1
631   fi
632   if [ -f $confdir/sasl.m4 ] && \
633     ! cmp -s $confdir/sasl.m4 $tmpldir/sasl.m4; then
634     mv -f $confdir/sasl.m4 $confdir/sasl.m4.cn3-upgrade
635     mv_in_sasl=1
636   fi
637   [ "$mv_in_sasl" ] && \
638     log "Renamed old files in $confdir."
639
640   # Regenerate sasl.m4 and friends.
641   /usr/share/sendmail/update_auth | egrep '^(Created template)' || true
642
643   # Hope noone else uses this file. (see doc/sendmail/README.Debian.gz)
644   dpkg-statoverride --remove /etc/sasldb2
645   dpkg-statoverride --update --add smmta smmsp 660 /etc/sasldb2
646   # needed for PLAIN, LOGIN
647   dpkg-statoverride --remove /var/run/saslauthd
648   dpkg-statoverride --update --add root sasl 711 /var/run/saslauthd
649
650   # Enable saslauthd, used by default Debian config
651   if ! egrep -q '^START=yes' /etc/default/saslauthd; then
652     check_and_sed START 's/#\ +START=yes$/START=yes/' /etc/default/saslauthd
653     /etc/init.d/saslauthd restart
654   fi
655
656   /etc/init.d/sendmail reload || true
657 }
658
659 sources_list() {
660   if [ ! -e /var/lib/carnet-upgrade/stamp-sources_list ]; then
661     install-carnet-sources.list
662     apt-get -y update
663     touch /var/lib/carnet-upgrade/stamp-sources_list
664   fi
665 }