$NetBSD: patch-wgetpaste,v 1.1 2019/12/29 22:09:38 ng0 Exp $

upstream commit 6175f89cb618fef83882ed86ab049a7fd1035770
Fix handling of bpaste urls. bpaste is the default service.

--- wgetpaste~
+++ wgetpaste
@@ -181,7 +181,8 @@ xml+cheetah xml+django xml+evoque xml+lasso xml+mako xml+myghty xml+php xml+erb
 xml+velocity xml xquery xslt xtend yaml"
 EXPIRATIONS_pinnwand="1day 1week 1month never"
 POST_pinnwand="submit=Paste! % % lexer expiry % code"
-REGEX_RAW_pinnwand='s|^\(https\?://[^/]*/\)show\(/[[:alnum:]]*/\?\)$|\1raw\2|'
+REGEX_LOC_pinnwand="\(/show/[^ ]*\).*$|https://bpaste.net\1"
+REGEX_RAW_pinnwand='s|^\(https\?://[^/]*/\)show\(/[^ ]*/\?\)$|\1raw\2|'
 
 ### errors
 die() {
@@ -550,11 +551,15 @@ postdata() {
 
 # get url from response from server
 geturl() {
-	local regex
+	local regex location
 	regex=REGEX_URL_$ENGINE
+	location=REGEX_LOC_$ENGINE
 	if [[ -n ${!regex} ]]; then
 		[[ needstdout = $1 ]] && return 0
 		sed -n -e "${!regex}" <<< "$*"
+	elif [[ -n ${!location} ]]; then
+		[[ needstdout = $1 ]] && return 1
+		sed -n -e "s|^.*Location: ${!location}|p" <<< "$*"
 	else
 		[[ needstdout = $1 ]] && return 1
 		sed -n -e 's|^.*Location: \(https\{0,1\}://[^ ]*\).*$|\1|p' <<< "$*"
