firewall-init: changelog.sh (NEW) - changelog generator from rc-inetd

[baggins]

Author: baggins                      Date: Tue Jan 12 11:21:19 2010 GMT
Module: firewall-init                 Tag: HEAD
---- Log message:
- changelog generator from rc-inetd

---- Files affected:
firewall-init:
   changelog.sh (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: firewall-init/changelog.sh
diff -u /dev/null firewall-init/changelog.sh:1.1
--- /dev/null	Tue Jan 12 12:21:19 2010
+++ firewall-init/changelog.sh	Tue Jan 12 12:21:14 2010
@@ -0,0 +1,36 @@
+#!/bin/sh
+# $Id$
+# Run this to generate ChangeLog.
+
+if [ ! -x /usr/bin/cvs2cl ]; then
+	echo >&2 'Need cvs2cl program!'
+	exit 1
+fi
+
+# create users for cvs2log format
+tmp=$(mktemp -q cvs2logXXXXXX 2>/dev/null || echo ${TMPDIR:-/tmp}/cvs2log.tmp)
+> $tmp
+
+[ -z "$users" -a -f ../CVSROOT/users ] && users=../CVSROOT/users
+[ -z "$users" -a -f ~/.CVS-PLD/CVSROOT/users ] && users=~/.CVS-PLD/CVSROOT/users
+if [ -z "$users" ]; then
+	echo >&2 "Can't find users file!"
+	echo >&2 'Run in parent dir to fetch one:'
+	echo >&2 '$ cvs -d :pserver:cvs at cvs.pld-linux.org:/cvsroot co CVSROOT/users'
+	exit 1
+fi
+
+awk -F: '{ login=$1; if ($3) { name=$3 } else { name=$1 }; printf "%s:%s <%s at pld-linux.org>\n", login, name, login }' $users > $tmp
+
+if grep -q vim:encoding=utf-8 $users; then
+	charset=UTF-8
+else
+	charset=ISO8859-2
+fi
+
+cvs2cl --no-times --usermap $tmp --ignore ChangeLog
+
+rm -f $tmp
+
+# obfuscate emails <user at domain> and (user at domain)
+sed -i -e 's,\([<(].*\)@\(.*[)>]\),\1/at/\2,g' ChangeLog
================================================================