#!/bin/sh

set -e

NO_MIRROR=0
ANNOUNCE=0

if [ "$1" = "--announce" ]
then
    ANNOUNCE=1
    DO_WHAT=mail
elif [ "$1" = "--show" ]
then
    NO_MIRROR=1
    ANNOUNCE=1
    DO_WHAT=show
fi

MIRROR=/srv/darcs/git-mirrors/mirror

if [ "$NO_MIRROR" -eq 0 ]
then
darcs pull -qa --repodir /srv/darcs/darcs-mirrors/haskeline http://code.haskell.org/haskeline/
darcs pull -qa --repodir /srv/darcs/darcs-mirrors/primitive http://code.haskell.org/primitive/
darcs pull -qa --repodir /srv/darcs/darcs-mirrors/terminfo  http://code.haskell.org/terminfo/
darcs pull -qa --repodir /srv/darcs/darcs-mirrors/vector    http://code.haskell.org/vector/
# http://ghc.cs.tufts.edu/hoopl/hoopl.git/ seems non-working
git --git-dir /srv/darcs/git-mirrors/hoopl        fetch git://code.eecs.tufts.edu/hoopl/hoopl.git +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/binary       fetch git://github.com/kolmodin/binary.git      +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/containers   fetch git://github.com/haskell/containers.git   +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/random       fetch git://github.com/haskell/random.git       +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/pretty       fetch git://github.com/haskell/pretty.git       +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/utf8-string  fetch git://github.com/glguy/utf8-string.git    +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/Win32        fetch git://github.com/haskell/win32.git        +refs/heads/*:refs/heads/*
git --git-dir /srv/darcs/git-mirrors/xhtml        fetch git://github.com/haskell/xhtml.git        +refs/heads/*:refs/heads/*
$MIRROR /srv/darcs/bytestring              /srv/darcs/git-mirrors/bytestring
$MIRROR /srv/darcs/Cabal                   /srv/darcs/git-mirrors/Cabal
$MIRROR /srv/darcs/darcs-mirrors/haskeline /srv/darcs/git-mirrors/haskeline
$MIRROR /srv/darcs/darcs-mirrors/terminfo  /srv/darcs/git-mirrors/terminfo
$MIRROR /srv/darcs/darcs-mirrors/primitive /srv/darcs/git-mirrors/primitive
$MIRROR /srv/darcs/darcs-mirrors/vector    /srv/darcs/git-mirrors/vector
# $MIRROR /srv/darcs/cabal-branches/cabal-1.12 /srv/darcs/git-mirrors/cabal-1.12
$MIRROR /srv/darcs/cabal-branches/cabal-1.14 /srv/darcs/git-mirrors/cabal-1.14
fi

for p in hoopl binary bytestring Cabal cabal-1.14 containers haskeline terminfo xhtml primitive vector random pretty utf8-string Win32
do
    ( cd /srv/darcs/git-mirrors/$p && git update-server-info )
    if [ "$ANNOUNCE" -eq 1 ]
    then
        /srv/darcs/look_for_new /srv/darcs/packages/$p.git /srv/darcs/git-mirrors/$p /srv/darcs/new_patches/$p "$DO_WHAT"
    fi
done