[pkg-perl-tools] 01/03: Remove dpt-alioth-author.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch salsa
in repository pkg-perl-tools.

commit d2fa7c42c3906c12b183c3df512e4a6578a7aa03
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Feb 23 11:24:46 2018 +0100

    Remove dpt-alioth-author.
    
    Was supposed to run on Alioth which is about to go away.
---
 bin/dpt               |  4 ---
 debian/copyright      |  4 ---
 scripts/alioth-author | 72 ---------------------------------------------------
 3 files changed, 80 deletions(-)

diff --git a/bin/dpt b/bin/dpt
index 27e819f..366c768 100755
--- a/bin/dpt
+++ b/bin/dpt
@@ -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)>.
diff --git a/debian/copyright b/debian/copyright
index 09b06de..d1555a7 100644
--- a/debian/copyright
+++ b/debian/copyright
@@ -69,10 +69,6 @@ Copyright: 2013, Niels Thykier <niels at thykier.net>
            2014, Damyan Ivanov <dmn at debian.org>
 License: GPL-2+
 
-Files: scripts/alioth-author
-Copyright: 2008, 2011, Damyan Ivanov <dmn at debian.org>
-License: Artistic or GPL-1+
-
 Files: scripts/cd
        scripts/gc
        scripts/push
diff --git a/scripts/alioth-author b/scripts/alioth-author
deleted file mode 100755
index 662cea8..0000000
--- a/scripts/alioth-author
+++ /dev/null
@@ -1,72 +0,0 @@
-#!/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 at users.alioth.debian.org";
-    fi;
-else
-    email="$author at 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 at server.tld>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (c) 2008, 2011 Damyan Ivanov <dmn at 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 :

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git