script to extract lists/mirrors from p2g conf

hack-p2g-conf.sh (text/plain), 653 bytes, created by Daniel Santos on 2007-08-30 07:40:40 UTC

#!/bin/bash

filter() {
	# First remove the things we know we don't want before filtering for what
	# we do to make sure we get rid of any other crap.

	egrep -v '<(Enabled|Type|LastUpdate|FailedUpdate|List|/List|Lists|/Lists)>' \
		| egrep '<(Url|Description)>' \
		| perl -pe '
			s/^\s+<Url>//;
			s/^\s+<Description>//;
			s/<\/Url>\s+/\t/;
			s/<\/Description>//;
			' \
		| sort -u
}

main () {
	echo 'BLOCKLISTSERVERS="'
	filter < $1 \
		| perl -pe 's/^(.+)\/.+/\t$1/' \
		| sort -u
	echo '"'
	echo

	filter < $1 \
		| perl -pe 's/^.+\/(.+?)\.\w+\t(.+)/$1\t$2/' \
		| sort -u \
		| perl -pe 's/(.+)\t(.+)/# $2\nBLOCKLISTS+="$1 "\n/'
}

main "$@"