Use the dmz led as diagnostic led
[10.03/openwrt.git] / scripts / ipkg
1 #!/bin/sh
2 # ipkg - the itsy package management system
3 #
4 # Copyright (C) 2001 Carl D. Worth
5 #
6 # This program is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2, or (at your option)
9 # any later version.
10 #
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 # GNU General Public License for more details.
15
16 set -e
17
18 # By default do not do globbing. Any command wanting globbing should
19 # explicitly enable it first and disable it afterwards.
20 set -o noglob
21
22 ipkg_is_upgrade () {
23   local A B a b     
24   A=$(echo $1 | sed -r "s/([0-9]+)[^[:alnum:]]*/ \1 /g").
25   B=$(echo $2 | sed -r "s/([0-9]+)[^[:alnum:]]*/ \1 /g").
26   while [ \! -z "$A" ] && [ \! -z "$B" ]; do {        
27     set $A; a=$1; shift; A=$*
28     set $B; b=$1; shift; B=$*
29       [ "$a" -lt "$b" ] 2>&- && return 1
30     { [ "$a" -gt "$b" ] 2>&- || [ "$a" ">" "$b" ]; } && return
31   }; done                                                     
32   return 1
33 }         
34
35 which md5sum 2>&1 >/dev/null || alias md5sum=md5
36
37 ipkg_srcs() {
38         local srcre="$1"
39         sed -ne "s/^src[[:space:]]\+$srcre[[:space:]]\+//p" < $IPKG_CONF
40 }
41
42 ipkg_src_names() {
43         sed -ne "s/^src[[:space:]]\+\([^[:space:]]\+\).*/\1/p" < $IPKG_CONF
44 }
45
46 ipkg_src_byname() {
47         local src="$1"
48         ipkg_srcs $src | head -n 1
49 }
50
51 ipkg_dests() {
52         local destre="`echo $1 | ipkg_protect_slashes`"
53         sed -ne "/^dest[[:space:]]\+$destre/{
54 s/^dest[[:space:]]\+[^[:space:]]\+[[:space:]]\+//
55 s/^/`echo $IPKG_OFFLINE_ROOT | ipkg_protect_slashes`/
56 p
57 }" < $IPKG_CONF
58 }
59
60 ipkg_dest_names() {
61         sed -ne "s/^dest[[:space:]]\+\([^[:space:]]\+\).*/\1/p" < $IPKG_CONF
62 }
63
64 ipkg_dests_all() {
65         ipkg_dests '.*'
66 }
67
68 ipkg_state_dirs() {
69         ipkg_dests_all | sed "s|\$|/$IPKG_DIR_PREFIX|"
70 }
71
72 ipkg_dest_default() {
73         ipkg_dests_all | head -n 1
74 }
75
76 ipkg_dest_default_name() {
77         ipkg_dest_names | head -n 1
78 }
79
80 ipkg_dest_byname() {
81         local dest="$1"
82         ipkg_dests $dest | head -n 1
83 }
84
85 ipkg_option() {
86         local option="$1"
87         sed -ne "s/^option[[:space:]]\+$option[[:space:]]\+//p" < $IPKG_CONF
88 }
89
90 ipkg_load_configuration() {
91         if [ -z "$IPKG_CONF_DIR" ]; then
92                 IPKG_CONF_DIR=/etc
93         fi
94
95         IPKG_CONF="$IPKG_CONF_DIR/ipkg.conf"
96
97         if [ -z "$IPKG_OFFLINE_ROOT" ]; then
98             IPKG_OFFLINE_ROOT="`ipkg_option offline_root`"
99         fi
100         # Export IPKG_OFFLINE_ROOT for use by update-alternatives
101         export IPKG_OFFLINE_ROOT
102         if [ -n "$DEST_NAME" ]; then
103                 IPKG_ROOT="`ipkg_dest_byname $DEST_NAME`"
104                 if [ -z "$IPKG_ROOT" ]; then
105                         if [ -d "$IPKG_OFFLINE_ROOT$DEST_NAME" ]; then
106                                 IPKG_ROOT="$IPKG_OFFLINE_ROOT$DEST_NAME";
107                         else
108                                 echo "ipkg: invalid destination specification: $DEST_NAME
109 Valid destinations are directories or one of the dest names from $IPKG_CONF:" >&2
110                                 ipkg_dest_names >&2
111                                 return 1
112                         fi
113                 fi
114         else
115                 IPKG_ROOT="`ipkg_dest_default`"
116         fi
117
118         # Global ipkg state directories
119         IPKG_DIR_PREFIX=usr/lib/ipkg
120         IPKG_LISTS_DIR=$IPKG_OFFLINE_ROOT/$IPKG_DIR_PREFIX/lists
121         IPKG_PENDING_DIR=$IPKG_OFFLINE_ROOT/$IPKG_DIR_PREFIX/pending
122         if [ -z "$IPKG_TMP" ]; then
123                 IPKG_TMP=$IPKG_ROOT/tmp/ipkg
124         fi
125
126         [ -e "$IPKG_TMP" ] || mkdir -p $IPKG_TMP
127
128         # Destination specific ipkg meta-data directory
129         IPKG_STATE_DIR=$IPKG_ROOT/$IPKG_DIR_PREFIX
130
131         # Proxy Support
132         IPKG_PROXY_USERNAME="`ipkg_option proxy_username`"
133         IPKG_PROXY_PASSWORD="`ipkg_option proxy_password`"
134         IPKG_HTTP_PROXY="`ipkg_option http_proxy`"
135         IPKG_FTP_PROXY="`ipkg_option ftp_proxy`"
136         IPKG_NO_PROXY="`ipkg_option no_proxy`"
137         if [ -n "$IPKG_HTTP_PROXY" ]; then 
138                 export http_proxy="$IPKG_HTTP_PROXY"
139         fi
140
141         if [ -n "$IPKG_FTP_PROXY" ]; then 
142                 export ftp_proxy="$IPKG_FTP_PROXY"
143         fi
144
145         if [ -n "$IPKG_NO_PROXY" ]; then 
146                 export no_proxy="$IPKG_NO_PROXY"
147         fi
148
149         IPKG_STATUS_FIELDS='\(Package\|Status\|Essential\|Version\|Conffiles\|Root\)'
150 }
151
152 ipkg_usage() {
153         [ $# -gt 0 ] && echo "ipkg: $*"
154         echo "
155 usage: ipkg [options...] sub-command [arguments...]
156 where sub-command is one of:
157
158 Package Manipulation:
159         update                  Update list of available packages
160         upgrade                 Upgrade all installed packages to latest version
161         install <pkg>           Download and install <pkg> (and dependencies)
162         install <file.ipk>      Install package <file.ipk>
163         install <file.deb>      Install package <file.deb>
164         remove <pkg>            Remove package <pkg>
165
166 Informational Commands:
167         list                    List available packages and descriptions
168         files <pkg>             List all files belonging to <pkg>
169         search <file>           Search for a packaging providing <file>
170         info [pkg [<field>]]    Display all/some info fields for <pkg> or all
171         status [pkg [<field>]]  Display all/some status fields for <pkg> or all
172         depends <pkg>           Print uninstalled package dependencies for <pkg>
173
174 Options:
175         -d <dest_name>          Use <dest_name> as the the root directory for
176         -dest <dest_name>       package installation, removal, upgrading.
177                                 <dest_name> should be a defined dest name from the
178                                 configuration file, (but can also be a directory
179                                 name in a pinch).
180         -o <offline_root>       Use <offline_root> as the root for offline installation.
181         -offline <offline_root>                                 
182
183 Force Options (use when ipkg is too smart for its own good):
184         -force-depends          Make dependency checks warnings instead of errors
185         -force-defaults         Use default options for questions asked by ipkg.
186                                 (no prompts). Note that this will not prevent
187                                 package installation scripts from prompting.
188 " >&2
189         exit 1
190 }
191
192 ipkg_dir_part() {
193         local dir="`echo $1 | sed -ne 's/\(.*\/\).*/\1/p'`"
194         if [ -z "$dir" ]; then
195                 dir="./"
196         fi
197         echo $dir
198 }
199
200 ipkg_file_part() {
201         echo $1 | sed 's/.*\///'
202 }
203
204 ipkg_protect_slashes() {
205         sed -e 's/\//\\\//g'
206 }
207
208 ipkg_download() {
209         local src="$1"
210         local dest="$2"
211
212         local src_file="`ipkg_file_part $src`"
213         local dest_dir="`ipkg_dir_part $dest`"
214         if [ -z "$dest_dir" ]; then
215                 dest_dir="$IPKG_TMP"
216         fi
217
218         local dest_file="`ipkg_file_part $dest`"
219         if [ -z "$dest_file" ]; then
220                 dest_file="$src_file"
221         fi
222
223         # Proxy support
224         local proxyuser=""
225         local proxypassword=""
226         local proxyoption=""
227                 
228         if [ -n "$IPKG_PROXY_USERNAME" ]; then
229                 proxyuser="--proxy-user=\"$IPKG_PROXY_USERNAME\""
230                 proxypassword="--proxy-passwd=\"$IPKG_PROXY_PASSWORD\""
231         fi
232
233         if [ -n "$IPKG_PROXY_HTTP" -o -n "$IPKG_PROXY_FTP" ]; then
234                 proxyoption="--proxy=on"
235         fi
236
237         rm -f $IPKG_TMP/$src_file
238         case "$src" in
239         http://* | ftp://*)
240                 if ! wget --passive-ftp $proxyoption $proxyuser $proxypassword -P $IPKG_TMP $src; then
241                         echo "ipkg_download: ERROR: Failed to retrieve $src, returning $err"
242                         return 1
243                 fi
244                 mv $IPKG_TMP/$src_file $dest_dir/$dest_file 2>/dev/null
245                 ;;
246         file:/* )
247                 ln -s `echo $src | sed 's/^file://'` $dest_dir/$dest_file 2>/dev/null
248                 ;;
249         *)
250         echo "DEBUG: $src"
251                 ;;
252         esac
253
254         return 0
255 }
256
257 ipkg_update() {
258         if [ ! -e "$IPKG_LISTS_DIR" ]; then
259                 mkdir -p $IPKG_LISTS_DIR
260         fi
261
262         local err=
263         for src_name in `ipkg_src_names`; do
264                 local src="`ipkg_src_byname $src_name`"
265                 if ! ipkg_download $src/Packages $IPKG_LISTS_DIR/$src_name; then
266                         echo "ipkg_update: Error downloading $src/Packages to $IPKG_LISTS_DIR/$src_name" >&2
267                         err=t
268                 else
269                         echo "Updated list of available packages in $IPKG_LISTS_DIR/$src_name"
270                 fi
271         done
272
273         [ -n "$err" ] && return 1
274
275         return 0
276 }
277
278 ipkg_list() {
279         for src in `ipkg_src_names`; do
280                 if ipkg_require_list $src; then 
281 # black magic...
282 sed -ne "
283 /^Package:/{
284 s/^Package:[[:space:]]*\<\([a-z0-9.+-]*$1[a-z0-9.+-]*\).*/\1/
285 h
286 }
287 /^Description:/{
288 s/^Description:[[:space:]]*\(.*\)/\1/
289 H
290 g
291 s/\\
292 / - /
293 p
294 }
295 " $IPKG_LISTS_DIR/$src
296                 fi
297         done
298 }
299
300 ipkg_extract_paragraph() {
301         local pkg="$1"
302         sed -ne "/Package:[[:space:]]*$pkg[[:space:]]*\$/,/^\$/p"
303 }
304
305 ipkg_extract_field() {
306         local field="$1"
307 # blacker magic...
308         sed -ne "
309 : TOP
310 /^$field:/{
311 p
312 n
313 b FIELD
314 }
315 d
316 : FIELD
317 /^$/b TOP
318 /^[^[:space:]]/b TOP
319 p
320 n
321 b FIELD
322 "
323 }
324
325 ipkg_extract_value() {
326         sed -e "s/^[^:]*:[[:space:]]*//"
327 }
328
329 ipkg_require_list() {
330         [ $# -lt 1 ] && return 1
331         local src="$1"
332         if [ ! -f "$IPKG_LISTS_DIR/$src" ]; then
333                 echo "ERROR: File not found: $IPKG_LISTS_DIR/$src" >&2
334                 echo "       You probably want to run \`ipkg update'" >&2
335                 return 1
336         fi
337         return 0
338 }
339
340 ipkg_info() {
341         for src in `ipkg_src_names`; do
342                 if ipkg_require_list $src; then
343                         case $# in
344                         0)
345                                 cat $IPKG_LISTS_DIR/$src
346                                 ;;      
347                         1)
348                                 ipkg_extract_paragraph $1 < $IPKG_LISTS_DIR/$src
349                                 ;;
350                         *)
351                                 ipkg_extract_paragraph $1 < $IPKG_LISTS_DIR/$src | ipkg_extract_field $2
352                                 ;;
353                         esac
354                 fi
355         done
356 }
357
358 ipkg_status_sd() {
359         [ $# -lt 1 ] && return 0
360         sd="$1"
361         shift
362         if [ -f $sd/status ]; then
363                 case $# in
364                 0)
365                         cat $sd/status
366                         ;;
367                 1)
368                         ipkg_extract_paragraph $1 < $sd/status
369                         ;;
370                 *)
371                         ipkg_extract_paragraph $1 < $sd/status | ipkg_extract_field $2
372                         ;;
373                 esac
374         fi
375         return 0
376 }
377
378 ipkg_status_all() {
379         for sd in `ipkg_state_dirs`; do
380                 ipkg_status_sd $sd $*
381         done
382 }
383
384 ipkg_status() {
385         if [ -n "$DEST_NAME" ]; then
386                 ipkg_status_sd $IPKG_STATE_DIR $*
387         else
388                 ipkg_status_all $*
389         fi
390 }
391
392 ipkg_status_matching_sd() {
393         local sd="$1"
394         local re="$2"
395         if [ -f $sd/status ]; then
396                 sed -ne "
397 : TOP
398 /^Package:/{
399 s/^Package:[[:space:]]*//
400 s/[[:space:]]*$//
401 h
402 }
403 /$re/{
404 g
405 p
406 b NEXT
407 }
408 d
409 : NEXT
410 /^$/b TOP
411 n
412 b NEXT
413 " < $sd/status
414         fi
415         return 0
416 }
417
418 ipkg_status_matching_all() {
419         for sd in `ipkg_state_dirs`; do
420                 ipkg_status_matching_sd $sd $*
421         done
422 }
423
424 ipkg_status_matching() {
425         if [ -n "$DEST_NAME" ]; then
426                 ipkg_status_matching_sd $IPKG_STATE_DIR $*
427         else
428                 ipkg_status_matching_all $*
429         fi
430 }
431
432 ipkg_status_installed_sd() {
433         local sd="$1"
434         local pkg="$2"
435         ipkg_status_sd $sd $pkg Status | grep -q "Status: install ok installed"
436 }
437
438 ipkg_status_installed_all() {
439         local ret=1
440         for sd in `ipkg_state_dirs`; do
441                 if `ipkg_status_installed_sd $sd $*`; then
442                         ret=0
443                 fi
444         done
445         return $ret
446 }
447
448 ipkg_status_mentioned_sd() {
449         local sd="$1"
450         local pkg="$2"
451         [ -n "`ipkg_status_sd $sd $pkg Status`" ]
452 }
453
454 ipkg_files() {
455         local pkg="$1"
456         if [ -n "$DEST_NAME" ]; then
457                 dests=$IPKG_ROOT
458         else
459                 dests="`ipkg_dests_all`"
460         fi
461         for dest in $dests; do
462                 if [ -f $dest/$IPKG_DIR_PREFIX/info/$pkg.list ]; then
463                         dest_sed="`echo $dest | ipkg_protect_slashes`"
464                         sed -e "s/^/$dest_sed/" < $dest/$IPKG_DIR_PREFIX/info/$pkg.list
465                 fi
466         done
467 }
468
469 ipkg_search() {
470         local pattern="$1"
471
472         for dest_name in `ipkg_dest_names`; do
473                 dest="`ipkg_dest_byname $dest_name`"
474                 dest_sed="`echo $dest | ipkg_protect_slashes`"
475
476                 set +o noglob
477                 local list_files="`ls -1 $dest/$IPKG_DIR_PREFIX/info/*.list 2>/dev/null`"
478                 set -o noglob
479                 for file in $list_files; do
480                         if sed "s/^/$dest_sed/" $file | grep -q $pattern; then
481                                 local pkg="`echo $file | sed "s/^.*\/\(.*\)\.list/\1/"`"
482                                 [ "$dest_name" != `ipkg_dest_default_name` ] && pkg="$pkg ($dest_name)"
483                                 sed "s/^/$dest_sed/" $file | grep $pattern | sed "s/^/$pkg: /"
484                         fi
485                 done
486         done
487 }
488
489 ipkg_status_remove_sd() {
490         local sd="$1"
491         local pkg="$2"
492
493         if [ ! -f $sd/status ]; then
494                 mkdir -p $sd
495                 touch $sd/status
496         fi
497         sed -ne "/Package:[[:space:]]*$pkg[[:space:]]*\$/,/^\$/!p" < $sd/status > $sd/status.new
498         mv $sd/status.new $sd/status
499 }
500
501 ipkg_status_remove_all() {
502         for sd in `ipkg_state_dirs`; do
503                 ipkg_status_remove_sd $sd $*
504         done
505 }
506
507 ipkg_status_remove() {
508         if [ -n "$DEST_NAME" ]; then
509                 ipkg_status_remove_sd $IPKG_STATE_DIR $*
510         else
511                 ipkg_status_remove_all $*
512         fi
513 }
514
515 ipkg_status_update_sd() {
516         local sd="$1"
517         local pkg="$2"
518
519         ipkg_status_remove_sd $sd $pkg
520         ipkg_extract_field "$IPKG_STATUS_FIELDS" >> $sd/status
521         echo "" >> $sd/status
522 }
523
524 ipkg_status_update() {
525         ipkg_status_update_sd $IPKG_STATE_DIR $*
526 }
527
528 ipkg_unsatisfied_dependences() {
529     local pkg=$1
530     local deps="`ipkg_get_depends $pkg`"
531     local remaining_deps=
532     for dep in $deps; do
533         local installed="`ipkg_get_installed $dep`"
534         if [ "$installed" != "installed" ] ; then
535             remaining_deps="$remaining_deps $dep"
536         fi
537     done
538     ## echo "ipkg_unsatisfied_dependences pkg=$pkg $remaining_deps" > /dev/console
539     echo $remaining_deps
540 }
541
542 ipkg_safe_pkg_name() {
543         local pkg=$1
544         local spkg="`echo pkg_$pkg | sed -e y/-+./___/`"
545         echo $spkg
546 }
547
548 ipkg_set_depends() {
549         local pkg=$1; shift 
550         local new_deps="$*"
551         pkg="`ipkg_safe_pkg_name $pkg`"
552         ## setvar ${pkg}_depends "$new_deps"
553         echo $new_deps > $IPKG_TMP/${pkg}.depends
554 }
555
556 ipkg_get_depends() {
557         local pkg=$1
558         pkg="`ipkg_safe_pkg_name $pkg`"
559         cat $IPKG_TMP/${pkg}.depends
560         ## eval "echo \$${pkg}_depends"
561 }
562
563 ipkg_set_installed() {
564         local pkg=$1
565         pkg="`ipkg_safe_pkg_name $pkg`"
566         echo installed > $IPKG_TMP/${pkg}.installed
567         ## setvar ${pkg}_installed "installed"
568 }
569
570 ipkg_set_uninstalled() {
571         local pkg=$1
572         pkg="`ipkg_safe_pkg_name $pkg`"
573         ### echo ipkg_set_uninstalled $pkg > /dev/console
574         echo uninstalled > $IPKG_TMP/${pkg}.installed
575         ## setvar ${pkg}_installed "uninstalled"
576 }
577
578 ipkg_get_installed() {
579         local pkg=$1
580         pkg="`ipkg_safe_pkg_name $pkg`"
581         if [ -f $IPKG_TMP/${pkg}.installed ]; then
582                 cat $IPKG_TMP/${pkg}.installed
583         fi
584         ## eval "echo \$${pkg}_installed"
585 }
586
587 ipkg_depends() {
588         local new_pkgs="$*"
589         local all_deps=
590         local installed_pkgs="`ipkg_status_matching_all 'Status:.*[[:space:]]installed'`"
591         for pkg in $installed_pkgs; do
592             ipkg_set_installed $pkg
593         done
594         while [ -n "$new_pkgs" ]; do
595                 all_deps="$all_deps $new_pkgs"
596                 local new_deps=
597                 for pkg in $new_pkgs; do
598                         if echo $pkg | grep -q '[^a-z0-9.+-]'; then
599                                 echo "ipkg_depends: ERROR: Package name $pkg contains illegal characters (should be [a-z0-9.+-])" >&2
600                                 return 1
601                         fi
602                         # TODO: Fix this. For now I am ignoring versions and alternations in dependencies.
603                         new_deps="$new_deps "`ipkg_info $pkg '\(Pre-\)\?Depends' | ipkg_extract_value | sed -e 's/([^)]*)//g
604 s/\(|[[:space:]]*[a-z0-9.+-]\+[[:space:]]*\)\+//g
605 s/,/ /g
606 s/ \+/ /g'`
607                         ipkg_set_depends $pkg $new_deps
608                 done
609
610                 new_deps=`echo $new_deps | sed -e 's/[[:space:]]\+/\n/g' | sort | uniq`
611
612                 local maybe_new_pkgs=
613                 for pkg in $new_deps; do
614                         if ! echo $installed_pkgs | grep -q "\<$pkg\>"; then
615                                 maybe_new_pkgs="$maybe_new_pkgs $pkg"
616                         fi
617                 done
618
619                 new_pkgs=
620                 for pkg in $maybe_new_pkgs; do
621                         if ! echo $all_deps | grep -q "\<$pkg\>"; then
622                                 if [ -z "`ipkg_info $pkg`" ]; then
623                                         echo "ipkg_depends: Warning: $pkg mentioned in dependency but no package found in $IPKG_LISTS_DIR" >&2
624                                         ipkg_set_installed $pkg
625                                 else
626                                         new_pkgs="$new_pkgs $pkg"
627                                         ipkg_set_uninstalled $pkg
628                                 fi
629                         else
630                                 ipkg_set_uninstalled $pkg
631                         fi
632                 done
633         done
634
635         echo $all_deps
636 }
637
638 ipkg_get_install_dest() {
639         local dest="$1"
640         shift
641         local sd=$dest/$IPKG_DIR_PREFIX
642         local info_dir=$sd/info
643
644         local requested_pkgs="$*"
645         local pkgs="`ipkg_depends $*`"
646
647         mkdir -p $info_dir
648         for pkg in $pkgs; do
649                 if ! ipkg_status_mentioned_sd $sd $pkg; then
650                         echo "Package: $pkg
651 Status: install ok not-installed" | ipkg_status_update_sd $sd $pkg
652                 fi
653         done
654         ## mark the packages that we were directly requested to install as uninstalled
655         for pkg in $requested_pkgs; do ipkg_set_uninstalled $pkg; done
656
657         local new_pkgs=
658         local pkgs_installed=0
659         while [ -n "pkgs" ]; do
660                 curcheck=0
661                 ## echo "pkgs to install: {$pkgs}" > /dev/console
662                 for pkg in $pkgs; do
663                         curcheck="`expr $curcheck + 1`"
664                         local is_installed="`ipkg_get_installed $pkg`"
665                         if [ "$is_installed" = "installed" ]; then
666                                 echo "$pkg is installed"
667                                 continue
668                         fi
669
670                         local remaining_deps="`ipkg_unsatisfied_dependences $pkg`"
671                         if [ -n "$remaining_deps" ]; then
672                                 new_pkgs="$new_pkgs $pkg"
673                                 ### echo "Dependences not satisfied for $pkg: $remaining_deps"
674                                 if [ $curcheck -ne `echo  $pkgs|wc -w` ]; then
675                                         continue
676                                 fi
677                         fi
678
679                         local filename=
680                         for src in `ipkg_src_names`; do
681                                 if ipkg_require_list $src; then
682                                         filename="`ipkg_extract_paragraph $pkg < $IPKG_LISTS_DIR/$src | ipkg_extract_field Filename | ipkg_extract_value`"
683                                         [ -n "$filename" ] && break
684                                 fi
685                         done
686
687                         if [ -z "$filename" ]; then
688                                 echo "ipkg_get_install: ERROR: Cannot find package $pkg in $IPKG_LISTS_DIR"
689                                 echo "ipkg_get_install:        Check the spelling and maybe run \`ipkg update'."
690                                 ipkg_status_remove_sd $sd $pkg
691                                 return 1;
692                         fi
693
694                         local tmp_pkg_file="$IPKG_TMP/"`ipkg_file_part $filename`
695                         if ! ipkg_download `ipkg_src_byname $src`/$filename $tmp_pkg_file; then
696                                 echo "ipkg_get_install: Perhaps you need to run \`ipkg update'?"
697                                 return 1
698                         fi
699
700                         if ! ipkg_install_file_dest $dest $tmp_pkg_file; then
701                                 echo "ipkg_get_install: ERROR: Failed to install $tmp_pkg_file"
702                                 echo "ipkg_get_install: I'll leave it there for you to try a manual installation"
703                                 return 1
704                         fi
705
706                         ipkg_set_installed $pkg
707                         pkgs_installed="`expr $pkgs_installed + 1`"
708                         rm $tmp_pkg_file
709                 done
710                 ### echo "Installed $pkgs_installed package(s) this round"
711                 if [ $pkgs_installed -eq 0 ]; then
712                         if [ -z "$new_pkgs" ]; then
713                             break
714                         fi
715                 fi
716                 pkgs_installed=0
717                 pkgs="$new_pkgs"
718                 new_pkgs=
719                 curcheck=0
720         done
721 }
722
723 ipkg_get_install() {
724         ipkg_get_install_dest $IPKG_ROOT $*
725 }
726
727 ipkg_install_file_dest() {
728         local dest="$1"
729         local filename="$2"
730         local sd=$dest/$IPKG_DIR_PREFIX
731         local info_dir=$sd/info
732
733         if [ ! -f "$filename" ]; then
734                 echo "ipkg_install_file: ERROR: File $filename not found"
735                 return 1
736         fi
737
738         local pkg="`ipkg_file_part $filename | sed 's/\([a-z0-9.+-]\+\)_.*/\1/'`"
739         local ext="`echo $filename | sed 's/.*\.//'`"
740         local pkg_extract_stdout
741         if [ "$ext" = "ipk" ]; then
742                 pkg_extract_stdout="tar -xzOf"
743         elif [ "$ext" = "deb" ]; then
744                 pkg_extract_stdout="ar p"
745         else
746                 echo "ipkg_install_file: ERROR: File $filename has unknown extension $ext (not .ipk or .deb)"
747                 return 1
748         fi
749
750         # Check dependencies
751         local depends="`ipkg_depends $pkg | sed -e "s/\<$pkg\>//"`"
752
753         # Don't worry about deps that are scheduled for installation
754         local missing_deps=
755         for dep in $depends; do
756                 if ! ipkg_status_all $dep | grep -q 'Status:[[:space:]]install'; then
757                         missing_deps="$missing_deps $dep"
758                 fi
759         done
760
761         if [ ! -z "$missing_deps" ]; then
762                 if [ -n "$FORCE_DEPENDS" ]; then
763                         echo "ipkg_install_file: Warning: $pkg depends on the following uninstalled programs: $missing_deps"
764                 else
765                         echo "ipkg_install_file: ERROR: $pkg depends on the following uninstalled programs:
766         $missing_deps"
767                         echo "ipkg_install_file: You may want to use \`ipkg install' to install these."
768                         return 1
769                 fi
770         fi
771
772         mkdir -p $IPKG_TMP/$pkg/control
773         mkdir -p $IPKG_TMP/$pkg/data
774         mkdir -p $info_dir
775
776         if ! $pkg_extract_stdout $filename ./control.tar.gz | (cd $IPKG_TMP/$pkg/control; tar -xzf - ) ; then
777                 echo "ipkg_install_file: ERROR unpacking control.tar.gz from $filename"
778                 return 1
779         fi
780
781         if [ -n "$IPKG_OFFLINE_ROOT" ]; then
782                 if grep -q '^InstallsOffline:[[:space:]]*no' $IPKG_TMP/$pkg/control/control; then
783                         echo "*** Warning: Package $pkg may not be installed in offline mode"
784                         echo "*** Warning: Scheduling $filename for pending installation (installing into $IPKG_PENDING_DIR)"
785                         echo "Package: $pkg
786 Status: install ok pending" | ipkg_status_update_sd $sd $pkg
787                         mkdir -p $IPKG_PENDING_DIR
788                         cp -f $filename $IPKG_PENDING_DIR
789                         rm -r $IPKG_TMP/$pkg/control
790                         rm -r $IPKG_TMP/$pkg/data
791                         rmdir $IPKG_TMP/$pkg
792                         return 0
793                 fi
794         fi
795
796
797         echo -n "Unpacking $pkg..."
798         set +o noglob
799         for file in $IPKG_TMP/$pkg/control/*; do
800                 local base_file="`ipkg_file_part $file`"
801                 mv $file $info_dir/$pkg.$base_file
802         done
803         set -o noglob
804         rm -r $IPKG_TMP/$pkg/control
805
806         if ! $pkg_extract_stdout $filename ./data.tar.gz | (cd $IPKG_TMP/$pkg/data; tar -xzf - ) ; then
807                 echo "ipkg_install_file: ERROR unpacking data.tar.gz from $filename"
808                 return 1
809         fi
810         echo "Done."
811
812         echo -n "Configuring $pkg..."
813         export PKG_ROOT=$dest
814         if [ -x "$info_dir/$pkg.preinst" ]; then
815                 if ! $info_dir/$pkg.preinst install; then
816                         echo "$info_dir/$pkg.preinst failed. Aborting installation of $pkg"
817                         rm -rf $IPKG_TMP/$pkg/data
818                         rmdir $IPKG_TMP/$pkg
819                         return 1
820                 fi
821         fi
822
823         local old_conffiles="`ipkg_status_sd $sd $pkg Conffiles | ipkg_extract_value`"
824         local new_conffiles=
825         if [ -f "$info_dir/$pkg.conffiles" ]; then
826                 for conffile in `cat $info_dir/$pkg.conffiles`; do
827                         if [ -f "$dest/$conffile" ] && ! echo " $old_conffiles " | grep -q " $conffile "`md5sum $dest/$conffile | sed 's/ .*//'`; then
828                                 local use_maintainers_conffile=
829                                 if [ -z "$FORCE_DEFAULTS" ]; then
830                                         while true; do
831                                                 echo -n "Configuration file \`$conffile'
832  ==> File on system created by you or by a script.
833  ==> File also in package provided by package maintainer.
834    What would you like to do about it ?  Your options are:
835     Y or I  : install the package maintainer's version
836     N or O  : keep your currently-installed version
837       D     : show the differences between the versions (if diff is installed)
838  The default action is to keep your current version.
839 *** `ipkg_file_part $conffile` (Y/I/N/O/D) [default=N] ? "
840                                                 read response
841                                                 case "$response" in
842                                                 [YyIi] | [Yy][Ee][Ss])
843                                                         use_maintainers_conffile=t
844                                                         break
845                                                 ;;
846                                                 [Dd])
847                                                         echo "
848 diff -u $dest/$conffile $IPKG_TMP/$pkg/data/$conffile"
849                                                         diff -u $dest/$conffile $IPKG_TMP/$pkg/data/$conffile || true
850                                                         echo "[Press ENTER to continue]"
851                                                         read junk
852                                                 ;;
853                                                 *)
854                                                         break
855                                                 ;;
856                                                 esac
857                                         done
858                                 fi
859                                 if [ -n "$use_maintainers_conffile" ]; then
860                                         local md5sum="`md5sum $IPKG_TMP/$pkg/data/$conffile | sed 's/ .*//'`"
861                                         new_conffiles="$new_conffiles $conffile $md5sum"
862                                 else
863                                         new_conffiles="$new_conffiles $conffile <custom>"
864                                         rm $IPKG_TMP/$pkg/data/$conffile
865                                 fi
866                         else
867                                 md5sum="`md5sum $IPKG_TMP/$pkg/data/$conffile | sed 's/ .*//'`"
868                                 new_conffiles="$new_conffiles $conffile $md5sum"
869                         fi
870                 done
871         fi
872
873         local owd="`pwd`"
874         (cd $IPKG_TMP/$pkg/data/; tar cf - . | (cd $owd; cd $dest; tar xf -))
875         rm -rf $IPKG_TMP/$pkg/data
876         rmdir $IPKG_TMP/$pkg
877         rm -f $info_dir/$pkg.list
878         $pkg_extract_stdout $filename ./data.tar.gz | tar tzf - | sed -e 's/^\.//' > $info_dir/$pkg.list
879
880         if [ -x "$info_dir/$pkg.postinst" ]; then
881                 $info_dir/$pkg.postinst configure
882         fi
883
884         if [ -n "$new_conffiles" ]; then
885                 new_conffiles='Conffiles: '`echo $new_conffiles | ipkg_protect_slashes`
886         fi
887         local sed_safe_offline_root="`echo ${IPKG_OFFLINE_ROOT} | ipkg_protect_slashes`"
888         local sed_safe_root="`echo $dest | sed -e "s/^${sed_safe_offline_root}//" | ipkg_protect_slashes`"
889         sed -e "s/\(Package:.*\)/\1\\
890 Status: install ok installed\\
891 Root: ${sed_safe_root}\\
892 ${new_conffiles}/" $info_dir/$pkg.control | ipkg_status_update_sd $sd $pkg
893
894         rm -f $info_dir/$pkg.control
895         rm -f $info_dir/$pkg.conffiles
896         rm -f $info_dir/$pkg.preinst
897         rm -f $info_dir/$pkg.postinst
898
899         echo "Done."
900 }
901
902 ipkg_install_file() {
903         ipkg_install_file_dest $IPKG_ROOT $*
904 }
905
906 ipkg_install() {
907         while [ $# -gt 0 ]; do
908                 local pkg="$1"
909                 shift
910         
911                 case "$pkg" in
912                 http://* | ftp://*)
913                         local tmp_pkg_file="$IPKG_TMP/"`ipkg_file_part $pkg`
914                         if ipkg_download $pkg $tmp_pkg_file; then
915                                 ipkg_install_file $tmp_pkg_file
916                                 rm $tmp_pkg_file
917                         fi
918                         ;;
919                 file:/*.ipk  | file://*.deb)
920                                 local ipkg_filename="`echo $pkg|sed 's/^file://'`"
921                                 ipkg_install_file $ipkg_filename
922                         ;;
923                 *.ipk  | *.deb)
924                                 ipkg_install_file $pkg
925                         ;;
926                 *)
927                         ipkg_get_install $pkg || true
928                         ;;
929                 esac
930         done
931 }
932
933 ipkg_install_pending() {
934         [ -n "$IPKG_OFFLINE_ROOT" ] && return 0
935
936         if [ -d "$IPKG_PENDING_DIR" ]; then
937                 set +o noglob
938                 local pending="`ls -1d $IPKG_PENDING_DIR/*.ipk 2> /dev/null`" || true
939                 set -o noglob
940                 if [ -n "$pending" ]; then
941                         echo "The following packages in $IPKG_PENDING_DIR will now be installed:"
942                         echo $pending
943                         for filename in $pending; do
944                                 if ipkg_install_file $filename; then
945                                         rm $filename
946                                 fi
947                         done
948                 fi
949         fi
950         return 0
951 }
952
953 ipkg_install_wanted() {
954         local wanted="`ipkg_status_matching 'Status:[[:space:]]*install.*not-installed'`"
955
956         if [ -n "$wanted" ]; then
957                 echo "The following package were previously requested but have not been installed:"
958                 echo $wanted
959
960                 if [ -n "$FORCE_DEFAULTS" ]; then
961                         echo "Installing them now."
962                 else
963                         echo -n "Install them now [Y/n] ? "
964                         read response
965                         case "$response" in
966                         [Nn] | [Nn][Oo])
967                                 return 0
968                                 ;;
969                         esac
970                 fi
971
972                 ipkg_install $wanted
973         fi
974
975         return 0
976 }
977
978 ipkg_upgrade_pkg() {
979         local pkg="$1"
980         local avail_ver="`ipkg_info $pkg Version | ipkg_extract_value | head -n 1`"
981
982         is_installed=
983         for dest_name in `ipkg_dest_names`; do
984                 local dest="`ipkg_dest_byname $dest_name`"
985                 local sd=$dest/$IPKG_DIR_PREFIX
986                 local inst_ver="`ipkg_status_sd $sd $pkg Version | ipkg_extract_value`"
987                 if [ -n "$inst_ver" ]; then
988                         is_installed=t
989
990                         if [ -z "$avail_ver" ]; then
991                                 echo "Assuming locally installed package $pkg ($inst_ver) is up to date"
992                                 return 0
993                         fi
994
995                         if [ "$avail_ver" = "$inst_ver" ]; then 
996                                 echo "Package $pkg ($inst_ver) installed in $dest_name is up to date"
997                         elif ipkg_is_upgrade "$avail_ver" "$inst_ver"; then
998                                 echo "Upgrading $pkg ($dest_name) from $inst_ver to $avail_ver"
999                                 ipkg_get_install_dest $dest $pkg
1000                         else
1001                                 echo "Not downgrading package $pkg from $inst_ver to $avail_ver"
1002                         fi
1003                 fi
1004         done
1005
1006         if [ -z "$is_installed" ]; then
1007                 echo "Package $pkg does not appear to be installed"
1008                 return 0
1009         fi
1010
1011 }
1012
1013 ipkg_upgrade() {
1014         if [ $# -lt 1 ]; then
1015                 local pkgs="`ipkg_status_matching 'Status:.*[[:space:]]installed'`"
1016         else
1017                 pkgs="$*"
1018         fi
1019         
1020         for pkg in $pkgs; do
1021                 ipkg_upgrade_pkg $pkg
1022         done
1023 }
1024
1025 ipkg_remove_pkg_dest() {
1026         local dest="$1"
1027         local pkg="$2"
1028         local sd=$dest/$IPKG_DIR_PREFIX
1029         local info_dir=$sd/info
1030
1031         if ! ipkg_status_installed_sd $sd $pkg; then
1032                 echo "ipkg_remove: Package $pkg does not appear to be installed in $dest"
1033                 if ipkg_status_mentioned_sd $sd $pkg; then
1034                         echo "Purging mention of $pkg from the ipkg database"
1035                         ipkg_status_remove_sd $sd $pkg
1036                 fi
1037                 return 1
1038         fi
1039
1040         echo "ipkg_remove: Removing $pkg... "
1041
1042         local files="`cat $info_dir/$pkg.list`"
1043
1044         export PKG_ROOT=$dest
1045         if [ -x "$info_dir/$pkg.prerm" ]; then
1046                 $info_dir/$pkg.prerm remove
1047         fi
1048
1049         local conffiles="`ipkg_status_sd $sd $pkg Conffiles | ipkg_extract_value`"
1050
1051         local dirs_to_remove=
1052         for file in $files; do
1053                 if [ -d "$dest/$file" ]; then
1054                         dirs_to_remove="$dirs_to_remove $dest/$file"
1055                 else
1056                         if echo " $conffiles " | grep -q " $file "; then
1057                                 if echo " $conffiles " | grep -q " $file "`md5sum $dest/$file | sed 's/ .*//'`; then
1058                                         rm -f $dest/$file
1059                                 fi
1060                         else
1061                                 rm -f $dest/$file
1062                         fi
1063                 fi
1064         done
1065
1066         local removed_a_dir=t
1067         while [ -n "$removed_a_dir" ]; do
1068                 removed_a_dir=
1069                 local new_dirs_to_remove=
1070                 for dir in $dirs_to_remove; do
1071                         if rmdir $dir >/dev/null 2>&1; then
1072                                 removed_a_dir=t
1073                         else
1074                                 new_dirs_to_remove="$new_dirs_to_remove $dir"
1075                         fi
1076                 done
1077                 dirs_to_remove="$new_dirs_to_remove"
1078         done
1079
1080         if [ -n "$dirs_to_remove" ]; then
1081                 echo "ipkg_remove: Warning: Not removing the following directories since they are not empty:" >&2
1082                 echo "$dirs_to_remove" | sed -e 's/\/[/]\+/\//g' >&2
1083         fi
1084
1085         if [ -x "$info_dir/$pkg.postrm" ]; then
1086                 $info_dir/$pkg.postrm remove
1087         fi
1088
1089         ipkg_status_remove_sd $sd $pkg
1090         set +o noglob
1091         rm -f $info_dir/$pkg.*
1092         set -o noglob
1093
1094         echo "Done."
1095 }
1096
1097 ipkg_remove_pkg() {
1098         local pkg="$1"
1099         for dest in `ipkg_dests_all`; do
1100                 local sd=$dest/$IPKG_DIR_PREFIX
1101                 if ipkg_status_mentioned_sd $sd $pkg; then
1102                         ipkg_remove_pkg_dest $dest $pkg
1103                 fi
1104         done
1105 }
1106
1107 ipkg_remove() {
1108         while [ $# -gt 0 ]; do
1109                 local pkg="$1"
1110                 shift
1111                 if [ -n "$DEST_NAME" ]; then
1112                         ipkg_remove_pkg_dest $IPKG_ROOT $pkg
1113                 else
1114                         ipkg_remove_pkg $pkg
1115                 fi
1116         done
1117 }
1118
1119 ###########
1120 # ipkg main
1121 ###########
1122
1123 # Parse options
1124 while [ $# -gt 0 ]; do
1125         arg="$1"
1126         case $arg in
1127         -d | -dest)
1128                 [ $# -gt 1 ] || ipkg_usage "option $arg requires an argument"
1129                 DEST_NAME="$2"
1130                 shift
1131                 ;;
1132         -o | -offline)
1133                 [ $# -gt 1 ] || ipkg_usage "option $arg requires an argument"
1134                 IPKG_OFFLINE_ROOT="$2"
1135                 shift
1136                 ;;
1137         -force-depends)
1138                 FORCE_DEPENDS=t
1139                 ;;
1140         -force-defaults)
1141                 FORCE_DEFAULTS=t
1142                 ;;
1143         -*)
1144                 ipkg_usage "unknown option $arg"
1145                 ;;
1146         *)
1147                 break
1148                 ;;
1149         esac
1150         shift
1151 done
1152
1153 [ $# -lt 1 ] && ipkg_usage "ipkg must have one sub-command argument"
1154 cmd="$1"
1155 shift
1156
1157 ipkg_load_configuration
1158 mkdir -p /tmp/ipkg
1159
1160 case "$cmd" in
1161 update|upgrade|list|info|status|install_pending)
1162         ;;
1163 install|depends|remove|files|search)
1164         [ $# -lt 1 ] && ipkg_usage "ERROR: the \`\`$cmd'' command requires an argument"
1165         ;;
1166 *)
1167         echo "ERROR: unknown sub-command \`$cmd'"
1168         ipkg_usage
1169         ;;
1170 esac
1171
1172 # Only install pending if we have an interactive sub-command
1173 case "$cmd" in
1174 upgrade|install)
1175         ipkg_install_pending
1176         ipkg_install_wanted
1177         ;;
1178 esac
1179
1180 ipkg_$cmd $*
1181 for a in `ls $IPKG_TMP`; do
1182         rm -rf $IPKG_TMP/$a
1183 done