mirror_style release
download_style apt
force_md5

setvar LIBC = 'libc6'
if test $ARCH = "alpha" || test $ARCH = "ia64" {
  setvar LIBC = ""libc6.1""
}

proc work_out_debs {

    setvar required = ""base-files base-passwd bash bsdutils debconf debianutils diff dpkg e2fsprogs fileutils findutils grep gzip hostname libcap1 libc6 libdb2 libdb3 libncurses5 libnewt0 libpam-modules libpam-runtime libpam0g libperl5.6 libpopt0 libreadline4 libstdc++2.10-glibc2.2 login makedev mawk modutils mount ncurses-base ncurses-bin passwd perl-base procps sed shellutils slang1 sysvinit tar textutils util-linux whiptail""

    setvar base = ""adduser apt apt-utils at base-config bsdmainutils console-common console-tools console-tools-libs console-data cpio cron dhcp-client ed exim fdutils gettext-base groff-base ifupdown info klogd libident libldap2 liblockfile1 libpcre3 libsasl7 libwrap0 logrotate mailx man-db manpages modconf nano net-tools netbase netkit-inetd netkit-ping nvi ppp pppconfig pppoe pppoeconf libpcap0 sysklogd tasksel tcpd telnet""

    proc without_package {
        echo $2 | tr ' ' '\n' | grep -v "^$1$" | tr '\n' ' '
    }

    setvar IPFWTOOL = 'iptables'

    case (ARCH) {
        "alpha" {
            setvar required = ""$(without_package "libc6" "$required") libc6.1""
            setvar base = ""$base setserial aboot pciutils""
	    setvar IPFWTOOL = ""ipchains""
            }
        "arm" {
            setvar base = ""$base setserial libgpmg1""
	    setvar IPFWTOOL = ""ipchains iptables""
            }
        "i386" {
            setvar required = ""$(without_package "libperl5.6" "$required") mbr""
            setvar base = ""$base lilo pciutils setserial syslinux psmisc pcmcia-cs""
	    setvar IPFWTOOL = ""ipchains iptables""
            }
        "ia64" {
            setvar required = ""$(without_package "libc6" "$required") libc6.1 gcc-2.96-base""
            setvar base = ""$base elilo efibootmgr dosfstools libparted1.4 parted""
            }
        "m68k" {
            setvar base = ""$base atari-bootstrap atari-fdisk amiga-fdisk eject mac-fdisk pmac-fdisk-cross setserial vmelilo""
	    setvar IPFWTOOL = ""ipchains""
            }
        "powerpc" {
            setvar base = ""$base quik mac-fdisk amiga-fdisk psmisc powerpc-utils setserial pciutils hfsutils yaboot pcmcia-cs""
	    setvar IPFWTOOL = ""ipchains iptables""
            }
        "sparc" {
            setvar base = ""$base silo eject pciutils sparc-utils""
	    setvar IPFWTOOL = ""ipchains iptables""
            }
        "mips" {
            setvar base = ""$base dvhtool pciutils setserial"" # pcmcia-cs
            }
        "mipsel" {
            setvar base = ""$base delo pciutils setserial"" # pcmcia-cs
            }
        "hppa" {
            setvar base = ""$base palo libstdc++3 gcc-3.0-base""
            setvar required = "$(without_package "libstdc++2.10-glibc2.2" "$required")"
            }
        s390|s390x {
            # base-config depends on console-data and console-common
            # so we can't exclude them although they are useless on s390
            setvar base = ""$base s390-tools telnetd devfsd""
            setvar base = "$(without_package "console-tools" "$base")"
            setvar base = "$(without_package "console-tools-libs" "$base")"
            setvar base = "$(without_package "fdutils" "$base")"
            setvar base = "$(without_package "ppp" "$base")"
            setvar base = "$(without_package "pppconfig" "$base")"
            setvar base = "$(without_package "pppoe" "$base")"
            setvar base = "$(without_package "pppoeconf" "$base")"
            }
        * {
            # who knows?
            }
    }

    setvar base = ""$base $IPFWTOOL""
}

proc first_stage_install {
    extract $required

    mkdir -p "$TARGET/var/lib/dpkg"
    : >"$TARGET/var/lib/dpkg/status"
    echo >"$TARGET/var/lib/dpkg/available"

    setup_etc
    if test ! -e "$TARGET/etc/fstab" {
        echo '# UNCONFIGURED FSTAB FOR BASE SYSTEM' > "$TARGET/etc/fstab"
        chown 0:0 "$TARGET/etc/fstab"; chmod 644 "$TARGET/etc/fstab"
    }

    setup_devices

    proc x_feign_install {
        local pkg="$1"
        local deb="$(debfor $pkg)"
        local ver="$(extract_deb_field "$TARGET/$deb" Version)"

        mkdir -p "$TARGET/var/lib/dpkg/info"

        echo \
"Package: $pkg
Version: $ver
Status: install ok installed" >> "$TARGET/var/lib/dpkg/status"

        touch "$TARGET/var/lib/dpkg/info/${pkg}.list"
    }

    x_feign_install dpkg
}

proc second_stage_install {
    proc x_core_install {
	smallyes '' | in_target dpkg --force-depends --install $(debfor "$@")
    }

    proc p {
	setvar baseprog = """$(($baseprog + ${1:-1}))"
    }

    setup_proc
    in_target /sbin/ldconfig

    setvar DEBIAN_FRONTEND = 'Noninteractive'
    export DEBIAN_FRONTEND

    setvar baseprog = '0'
    setvar bases = '40'

    p; progress $baseprog $bases INSTBASE "Installing base system" #1
    info INSTCORE "Installing core packages..."

    p; progress $baseprog $bases INSTBASE "Installing base system" #2
    ln -sf mawk "$TARGET/usr/bin/awk"
    x_core_install base-files base-passwd
    p; progress $baseprog $bases INSTBASE "Installing base system" #3
    x_core_install dpkg

    if test ! -e "$TARGET/etc/localtime" {
        ln -sf /usr/share/zoneinfo/UTC "$TARGET/etc/localtime"
    }

    p; progress $baseprog $bases INSTBASE "Installing base system" #4
    x_core_install $LIBC

    p; progress $baseprog $bases INSTBASE "Installing base system" #5
    x_core_install perl-base
    p; progress $baseprog $bases INSTBASE "Installing base system" #6
    rm "$TARGET/usr/bin/awk"
    x_core_install mawk
    p; progress $baseprog $bases INSTBASE "Installing base system" #7
    x_core_install debconf

    info UNPACKREQ "Unpacking required packages..."

    p; progress $baseprog $bases INSTBASE "Installing base system" #8
    smallyes '' | repeatn 5 in_target_failmsg UNPACK_REQ_FAIL_FIVE "Failure while unpacking required packages.  This will be attempted up to five times." "" dpkg --force-depends --unpack $(debfor $required)
    p 10; progress $baseprog $bases INSTBASE "Installing base system"  #18

    info CONFREQ "Configuring required packages..."

    mv "$TARGET/sbin/start-stop-daemon" "$TARGET/sbin/start-stop-daemon.REAL"
    echo \
"#!/bin/sh
echo
echo \"Warning: Fake start-stop-daemon called, doing nothing\"" > "$TARGET/sbin/start-stop-daemon"
    chmod 755 "$TARGET/sbin/start-stop-daemon"

    setup_dselect_method apt

    p; progress $baseprog $bases INSTBASE "Installing base system" #19
    smallyes '' | in_target_failmsg CONF_REQ_FAIL "Failure while configuring required packages." "" dpkg --configure --pending --force-configure-any --force-depends
    p 10; progress $baseprog $bases INSTBASE "Installing base system" #29

    if test ! -e "$TARGET/etc/exim/exim.conf" {
        mkdir -p "$TARGET/etc/exim"
        touch "$TARGET/etc/exim/exim.conf"
    }

    info INSTBASE "Installing base packages..."

    p; progress $baseprog $bases INSTBASE "Installing base system" #30
    smallyes '' | repeatn 5 in_target_failmsg INST_BASE_FAIL_FIVE "Failure while installing base packages.  This will be re-attempted up to five times." "" dpkg --force-auto-select --force-overwrite --force-confold --skip-same-version --unpack $(debfor $base)

    rm -f "$TARGET/usr/sbin/sendmail"
    ln -sf /bin/true "$TARGET/usr/sbin/sendmail"

    smallyes '' | repeatn 5 in_target_failmsg CONF_BASE_FAIL_FIVE "Failure while configuring base packages.  This will be attempted 5 times." "" dpkg  --force-confold --skip-same-version  --configure -a

    rm -f "$TARGET/usr/sbin/sendmail"
    ln -sf exim "$TARGET/usr/sbin/sendmail"

    p 9; progress $baseprog $bases INSTBASE "Installing base system" #39

    mv "$TARGET/sbin/start-stop-daemon.REAL" "$TARGET/sbin/start-stop-daemon"

    progress $bases $bases INSTBASE "Installing base system" #40
    info BASESUCCESS "Base system installed successfully."
}