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 <gre...@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 <ni...@thykier.net> 2014, Damyan Ivanov <d...@debian.org> License: GPL-2+ -Files: scripts/alioth-author -Copyright: 2008, 2011, Damyan Ivanov <d...@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="$aut...@users.alioth.debian.org"; - fi; -else - email="$aut...@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 <uidn...@server.tld> - -=head1 COPYRIGHT AND LICENSE - -Copyright (c) 2008, 2011 Damyan Ivanov <d...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits