path: root/localdebpool

#!/bin/sh

set -e
#set -x

ARCHS="i386 powerpc amd64"
DISTS="etch lenny sid"

SRCBASE=~/public_debian
PUBBASE=~/public_websites/debian.jones.dk
#PUBTOSRC=../../public_debian

archsfrompaths() {
    find "$@" -type l -exec find '{}'/ -type f -name '*.deb' ';' \
        | sed 's/^.*_\([a-z0-9-]\+\)\.deb$/\1/' \
        | sort -u
}

distsfrompaths() {
    find "$@" -mindepth 1 -maxdepth 1 -type d -printf '%f\n'
}

pathsfromsections() {
    case "$@" in
        all)
        sections_re=""
        ;;
        "")
        echo 1>&2 "ERROR: At least one section (or the magic \"all\") is needed."
        exit 1
        ;;
        *)
        sections_re="\b\($(echo "$@" | sed 's/[[:space:]]\+/\\|/g')\)\b"
        ;;
    esac
    find $SRCBASE -type f -name HINTS -exec grep -q "^Sections:.*$sections_re" '{}' ';' -printf '%h\n' \
        | sed "s,^$SRCBASE/,,"
}

sectionsfrompaths() {
    case "$@" in
        all)
        fullpaths="$SRCBASE"
        ;;
        *)
        fullpaths=
        for path in "$@"; do
            # TODO: rewrite to support spaces in directory names
            fullpaths="$fullpaths $SRCBASE/$path"
        done
        ;;
    esac
    find $fullpaths -type f -name HINTS -exec cat '{}' ';' \
        | grep '^Sections:' \
        | sed 's/^Sections://; s/[[:space:]]\+/ /g; s/^ //; s/ $//' \
        | tr ' ' '\n' \
        | sort -u
}

genlist() {
    dist="$1"
    arch="$2"
    srcdir="$3"
    basedir="$4"
    case "$arch" in
        source)
        destdir="$basedir/source";
        cmd="dpkg-scansources";
        file="Sources";
        ;;
        *)
        destdir="$basedir/binary-$arch";
        cmd="dpkg-scanpackages";
        file="Packages";
        ;;
    esac
    mkdir -p "$destdir"
    ( cd "$srcdir" && $cmd $dist /dev/null pools/ ) > "$destdir/$file"
    gzip -c "$destdir/$file" > "$destdir/$file.gz"
    bzip2 -c "$destdir/$file" > "$destdir/$file.bz2"
    cat <<EOF > "$destdir/Release"
Archive: $dist
Component: $section
Origin: Jones
Label: Jones
Architecture: $arch
EOF
}

genlistsfromsection() {
    section="$1"
    case "$section" in
        all)
        srcdir="$SRCBASE/sections"
        ;;
        "")
        echo 1>&2 "ERROR: At least one section (or the magic \"all\") is needed."
        exit 1
        ;;
        *)
        srcdir="$SRCBASE/sections/$section"
        ;;
    esac
    dists="$(distsfrompaths "$srcdir")"
    archs="$(archsfrompaths "$srcdir")"
    for dist in $DISTS; do
        do_dist=
        for dist_found in $dists; do
            if [ "$dist_found" = "$dist" ]; then
                do_dist=1
                continue
            fi
        done
        [ -n "$do_dist" ] || continue
        for arch in $ARCHS; do
            do_arch=
            for arch_found in $archs; do
                case $arch_found in
                    $arch|all)
                    do_arch=1
                    continue
                esac
            done
            [ -n "$do_arch" ] || continue
            genlist "$section" "$dist" "$arch" "$srcdir" "$PUBBASE/dists/$dist/$section"
        done
        genlist "$section" "$dist" "source" "$srcdir" "$PUBBASE/dists/$dist/$section"
    done
}

sections="$@"
paths="$(pathsfromsections "$sections")"
#echo $paths; exit 0
#sectionsfrompaths all; exit 0

for path in $paths; do
    package="$(basename "$path")"
    pool="$(echo $(dirname "$path") | sed 's,.*/pool-\([^/]\+\)/\?.*,\1,; s,-all$,,')"
    buildhost="$(echo $(dirname "$path") | sed 's,^\([^/]\+\)/pool-.*,\1,')"
    symlink_dir="$pool/$package"
    mkdir -p "$PUBBASE/pools/$symlink_dir"
#   ln -sf -T "../../../$PUBTOSRC/$path" "$PUBBASE/pools/$symlink_dir/$buildhost"
    ln -sf -T "$SRCBASE/$path" "$PUBBASE/pools/$symlink_dir/$buildhost"
    for section in $(sectionsfrompaths "$path"); do
        mkdir -p "$SRCBASE/sections/$section/$symlink_dir"
        ln -sf -T "../../../../$path" "$SRCBASE/sections/$section/$symlink_dir/$buildhost"
    done
done

for section in $sections; do
    genlistsfromsection $section
done

exit 0