diff options
Diffstat (limited to 'scripts/authors2xml.pl')
-rwxr-xr-x | scripts/authors2xml.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/scripts/authors2xml.pl b/scripts/authors2xml.pl new file mode 100755 index 00000000..c2e34438 --- /dev/null +++ b/scripts/authors2xml.pl @@ -0,0 +1,27 @@ +#!/usr/bin/perl -w +# Extract author information from C++ files +# and print it out in DocBook format as a list +# Daniel Naber <daniel.naber@t-online.de> +# $Id$ + +my $file = $ARGV[0]; +if( ! $file ) { + print "Usage: $0 <file.cpp>\n"; + exit; +} + +open(IN, $file) || die "Cannot open '$file': $!\n"; +undef $/; +my $str = (<IN>); +close(IN); + +print "<itemizedlist>\n"; +while( $str =~ m/addAuthor\s*\(\s*"(.*?)",\s*.*?,\s*"(.*?)"/gs ) { + my ($name, $email) = ($1, $2); + print "<listitem><para>$name <email>$email</email></para></listitem>\n"; + #print "$name, $email\n"; +} +print "</itemizedlist>\n"; + +print STDERR "Warning: maybe you need to fix umlauts manually...\n"; +exit; |