#!/usr/bin/perl

my $v = `grep -Po "(?<=version=')([0-9.]+)" setup.py`;

while(<>) {
	chomp;
	my ($name, $desc) = split(/\s{2,}/);
	`echo '#!/bin/sh\ncat <<HERE\n' > ariba-$name;PYTHONPATH=. scripts/ariba $name --help 2>&1 |  sed 's/usage/Usage/g' | egrep -v '^ARIBA:' >> ariba-$name; echo "HERE\n" >> ariba-$name; chmod +x ariba-$name`;
	`help2man -I debian/extra-man-info.txt -n '$desc' --version-string='$v' -N ./ariba-$name > debian/man/ariba-$name.1`;
	`sed -i 's/ariba $name/ariba_$name/' debian/man/ariba-$name.1`;
	`rm ariba-$name`;
}
