r77767 - /scripts/AUTHOR

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sat Jul 23 16:00:15 UTC 2011


Author: dmn
Date: Sat Jul 23 16:00:12 2011
New Revision: 77767

URL: http://svn.debian.org/wsvn/?sc=1&rev=77767
Log:
fallback to wget -q -O - when curl is not available

Modified:
    scripts/AUTHOR

Modified: scripts/AUTHOR
URL: http://svn.debian.org/wsvn/scripts/AUTHOR?rev=77767&op=diff
==============================================================================
--- scripts/AUTHOR (original)
+++ scripts/AUTHOR Sat Jul 23 16:00:12 2011
@@ -16,8 +16,13 @@
     exit 1
 fi
 
+CURL=`which curl`
+if [ -z "$CURL" ]; then
+	CURL='wget -q -O -'
+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@ /@/'`;
+    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";




More information about the Pkg-perl-cvs-commits mailing list