31 lines
582 B
Awk
31 lines
582 B
Awk
|
#
|
||
|
|
# Copyright 2007 Openedhand Ltd.
|
||
|
|
#
|
||
|
|
# Author: Richard Purdie <rpurdie@openedhand.com>
|
||
|
|
#
|
||
|
|
# Rather hacky proof of concept
|
||
|
|
#
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
rc=system("test -d /usr/dpkg/info/")
|
||
|
|
if (rc==0)
|
||
|
|
pkgdir="/var/lib/dpkg/info"
|
||
|
|
else
|
||
|
|
pkgdir="/usr/lib/opkg/info"
|
||
|
|
package=""
|
||
|
|
}
|
||
|
|
/Package:.*/ {
|
||
|
|
package = substr($0, 10)
|
||
|
|
}
|
||
|
|
/Status:.*unpacked.*/ {
|
||
|
|
print "Configuring: " package > "/dev/stderr"
|
||
|
|
ret = system(pkgdir "/" package ".postinst 1>&2")
|
||
|
|
if (ret == 0)
|
||
|
|
$0 = gensub("unpacked", "installed", 1)
|
||
|
|
else
|
||
|
|
print "Postinstall failed for " package > "/dev/stderr"
|
||
|
|
}
|
||
|
|
{
|
||
|
|
print $0
|
||
|
|
}
|