1 files changed, 51 insertions, 0 deletions
diff --git a/scripts/mksnapshot b/scripts/mksnapshot
new file mode 100755
index 000000000..0d7a94d32
--- /dev/null
+++ b/scripts/mksnapshot
@@ -0,0 +1,51 @@
+#!/bin/sh
+# Make a snapshot of the CVS head revision
+#  Fixme: we should either run autoconf here or make a real distribution
+
+set -e
+
+cd $HOME/pub
+
+
+fix_version () {
+    version=$(cat $1/VERSION)
+    echo "$version-snap$(date +%Y-%m-%d)" >$1/VERSION
+    cat <<EOF >$1/SNAPSHOT
+		  WARNING!
+
+This is a snapshot of the current CVS head branch!
+
+It may not compile or not work.  Please don't report
+bugs about this snapshot release it is just for your
+convenience and to reduce the load of out CVS server.
+
+Thanks,
+
+   Werner
+EOF
+}
+
+
+do_export () {
+    pgm=$1
+    mod=$2
+
+    rm -rf $pgm.new || true
+    rm -rf $pgm.old || true
+    cvs -Q export -r HEAD -d $pgm.new $mod
+    fix_version $pgm.new
+    [ -d $pgm ] && mv $pgm $pgm.old
+    if ! mv $pgm.new $pgm ; then
+	echo "rename failed - restoring" >&2
+	mv $pgm.old $pgm
+	exit 1
+    fi
+    rm -rf $pgm.old || true
+}
+
+
+do_export gnupg-snapshot gnupg
+
+
+exit 0
+