Commit d2fa7c42 authored by gregor herrmann's avatar gregor herrmann

Remove dpt-alioth-author.

Was supposed to run on Alioth which is about to go away.
parent d6579712
......@@ -81,10 +81,6 @@ Show this documentation.
=over
=item B<alioth-author> - deduce name/email from account name
See L<dpt-alioth-author(1)>.
=item B<alioth-repo> - clone newly created repository to alioth.debian.org
See L<dpt-alioth-repo(1)>.
......
......@@ -69,10 +69,6 @@ Copyright: 2013, Niels Thykier <niels@thykier.net>
2014, Damyan Ivanov <dmn@debian.org>
License: GPL-2+
Files: scripts/alioth-author
Copyright: 2008, 2011, Damyan Ivanov <dmn@debian.org>
License: Artistic or GPL-1+
Files: scripts/cd
scripts/gc
scripts/push
......
#!/bin/sh
set -e
set -u
usage() {
echo "Syntax: dpt `basename $0` <author>"
exit 1
}
[ -n "${1:-}" ] && [ -z "${2:-}" ] || usage
author="$1"
real_author=$author
full_name=`getent passwd $author | cut -d: -f5 | sed 's/,.\+//'`;
if [ -z "$full_name" ]; then
echo "Unable to get account information for $author" >& 2
if echo $author | grep -q -E -- '-guest$'; then
echo " trying without -guest suffix" >& 2
author=`echo $author | sed 's/-guest$//'`
full_name=`getent passwd $author | cut -d: -f5 | sed 's/,.\+//'`;
if [ -z "$full_name" ]; then
echo "Unable to get account information for $author" >& 2
echo " trying a hard-coded list of DDs" >& 2
author=`echo $author | sed 's/xaviero/xoswald/; s/hanska/dapal/; s/kitterma/kitterman/; s/ra28145/jjr/; s/ryan52/ryan/; s/thialme/franck/'`
full_name=`getent passwd $author | cut -d: -f5 | sed 's/,.\+//'`;
if [ -z "$full_name" ]; then
echo "NO MORE WORKAROUNDS: Unable to get account information for $author" >& 2
exit 1
fi
fi
else
exit 1
fi
fi
if echo $author | grep -E -q -e '-guest$'; then
email=`curl -s http://alioth.debian.org/users/$author/ | grep sendmessage|grep touser|grep nospam|sed 's,.*<strong>.*<a href[^>]\+>,,; s/<.*//; s/ @nospam@ /@/'`;
if [ -z "$email" ]; then
email="$author@users.alioth.debian.org";
fi;
else
email="$author@debian.org";
fi;
echo "$real_author = $full_name <$email>"
exit 0
POD=<<EOF
=head1 NAME
dpt-alioth-author -- deduce name/email from alioth account name
=head1 SYNOPSIS
$ dpt alioth-author <account>
Alioth Author <uidname@server.tld>
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2008, 2011 Damyan Ivanov <dmn@debian.org>
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
EOF
# vim: set et sw=4 sts=4 ts=8 tw=78 ai :
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment