Attachment #179213 for bug #216180




# $FreeBSD$

PORTNAME=	extract_url
PORTVERSION=	1.6.1
DISTVERSIONPREFIX=	v
CATEGORIES=	textproc
MASTER_SITES=	GOOGLE_CODE
PROJECTHOST=	extracturl

MAINTAINER=	dbaio@bsd.com.br
COMMENT=	Perl script that extracts URLs from email in MIME or plain text format

LICENSE=	BSD2CLAUSE
LICENSE_FILE=	${WRKSRC}/COPYING

BROKEN=		Unfetchable (google code has gone away)

BUILD_DEPENDS=	p5-MIME-Tools>=0:mail/p5-MIME-Tools \
		p5-HTML-Parser>=0:www/p5-HTML-Parser
RUN_DEPENDS:=	${BUILD_DEPENDS}

SUB_FILES=	pkg-message
NO_ARCH=	yes

USE_GITHUB=	yes
GH_ACCOUNT=	m3m0ryh0l3
GH_PROJECT=	extracturl

PLIST_FILES=	bin/extract_url \
		share/extract_url/extract_urlview.sample \
		man/man1/extract_url.1.gz
PORTDOCS=	AUTHORS NEWS README

OPTIONS_DEFINE=		DOCS URI_FIND
OPTIONS_RADIO=		URL_SELECTOR
OPTIONS_RADIO_URL_SELECTOR=	CURSES_UI URLVIEW
OPTIONS_DEFAULT=	CURSES_UI URI_FIND
OPTIONS_SUB=		yes

CURSES_UI_DESC=		Allows it to fully replace urlview
GETOPT_LONG_DESC=	Recognizes long options --version and --list
URI_FIND_DESC=		Recognizes more exotic URL variations in plain text
URLVIEW_DESC=		Uses urlview for the URL selector menu

CURSES_UI_RUN_DEPENDS=	p5-Curses-UI>=0:devel/p5-Curses-UI
GETOPT_LONG_RUN_DEPENDS=p5-Getopt-Long>=0:devel/p5-Getopt-Long
URLVIEW_RUN_DEPENDS=	urlview>=0:textproc/urlview
URI_FIND_RUN_DEPENDS=	p5-URI-Find>=0:textproc/p5-URI-Find


		${WRKSRC}/${MAKEFILE}

post-install:
	@${MKDIR} ${STAGEDIR}${DATADIR}
	${INSTALL_DATA} ${WRKSRC}/${PORTNAME}view.sample \
		${STAGEDIR}${DATADIR}/

post-install-DOCS-on:
	@${MKDIR} ${STAGEDIR}${DOCSDIR}

Lines 1-2 Link Here

(-)distinfo (-2 / +3 lines)
1	SHA256 (extract_url-1.5.8.tar.gz) = 58eac907cb926deba74ab81e7503a1055fd3cbe20952f011d8e6b75da12d6bcc	1	TIMESTAMP = 1485089324
2	SIZE (extract_url-1.5.8.tar.gz) = 13861	2	SHA256 (m3m0ryh0l3-extracturl-v1.6.1_GH0.tar.gz) = 6ce3a977477cce6c7c8355500db4ef660d5b22118df6534d3ab022124c62a393
		3	SIZE (m3m0ryh0l3-extracturl-v1.6.1_GH0.tar.gz) = 16192




################################
### extract_url(1) configuration
#
# Copy this file to ~/.extract_urlview

# Command used to view URLs
#COMMAND firefox %s &

# URL will be opened without prompting when emails contains only one
#SHORTCUT

# Turn off showing the full URL before opening it
#NOREVIEW

# Disable the automatic exit of URL selection menu after viewing a URL
#PERSISTENT

# Ignore links that don't correspond to any text
#IGNORE_EMPTY_TAGS

# Specify which HTML tags will be examined for URLs
#HTML_TAGS a,applet,area,blockquote,embed,form,frame,iframe,input,ins,isindex,head,layer,link,object,q,script,xmp

# Key for PERSISTENT behaviour, or opposite if PERSISTENT is specified
#ALTSELECT k

# Show [url] list or show URLs in [context] when the program is run
#DEFAULT_VIEW url

# Sanitize URLs before they are displayed
#DISPLAY_SANITIZED




--- extract_url.pl.orig	2017-01-18 14:59:52 UTC
+++ extract_url.pl
@@ -54,18 +54,7 @@ sub VERSION_MESSAGE {
 
 my $term_cols = 80;
 my ($term_rows, $term_wpix, $term_hpix);
-if (eval "use Term::Readkey") {
-    ($term_cols, $term_rows, $term_wpix, $term_hpix) = GetTerminalSize();
-} else {
-    require 'sys/ioctl.ph';
-    if (defined &TIOCGWINSZ and open(TTY, "+</dev/tty")) {
-        my $winsize = '';
-        unless (ioctl(TTY, &TIOCGWINSZ, $winsize)) {
-            die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
-        }
-        ($term_rows, $term_cols, $term_wpix, $term_hpix) = unpack('S4', $winsize);
-    }
-}
+require 'sys/ioctl.ph';
 my $list_width = $term_cols - 4; # 4 is for the border width on either side
 
 my %options;

Lines 8-14 Link Here

(-)files/pkg-message.in (-1 / +1 lines)
8		8
9	su - user	9	su - user
10		10
11	cp %%PREFIX%%/etc/extract_urlview.sample ~/.extract_urlview	11	cp %%DATADIR%%/extract_urlview.sample ~/.extract_urlview
12		12
13	exit	13	exit
14		14

Return to bug 216180

Lines 2-21 Link Here

(-)Makefile (-15 / +12 lines)
2	# $FreeBSD$	2	# $FreeBSD$
3		3
4	PORTNAME= extract_url	4	PORTNAME= extract_url
5	PORTVERSION= 1.5.8	5	PORTVERSION= 1.6.1
6	PORTREVISION= 1	6	DISTVERSIONPREFIX= v
7	CATEGORIES= textproc	7	CATEGORIES= textproc
8	MASTER_SITES= GOOGLE_CODE
9	PROJECTHOST= extracturl
10		8
11	MAINTAINER= ports@FreeBSD.org	9	MAINTAINER= dbaio@bsd.com.br
12	COMMENT= Perl script that extracts URLs from email in MIME or plain text format	10	COMMENT= Perl script that extracts URLs from email in MIME or plain text format
13		11
14	LICENSE= BSD2CLAUSE	12	LICENSE= BSD2CLAUSE
15	LICENSE_FILE= ${WRKSRC}/COPYING	13	LICENSE_FILE= ${WRKSRC}/COPYING
16		14
17	BROKEN= Unfetchable (google code has gone away)
18
19	BUILD_DEPENDS= p5-MIME-Tools>=0:mail/p5-MIME-Tools \	15	BUILD_DEPENDS= p5-MIME-Tools>=0:mail/p5-MIME-Tools \
20	p5-HTML-Parser>=0:www/p5-HTML-Parser	16	p5-HTML-Parser>=0:www/p5-HTML-Parser
21	RUN_DEPENDS:= ${BUILD_DEPENDS}	17	RUN_DEPENDS:= ${BUILD_DEPENDS}
Lines 25-50 Link Here
25	SUB_FILES= pkg-message	21	SUB_FILES= pkg-message
26	NO_ARCH= yes	22	NO_ARCH= yes
27		23
28	WRKSRC= ${WRKDIR}/${PORTNAME}	24	USE_GITHUB= yes
		25	GH_ACCOUNT= m3m0ryh0l3
		26	GH_PROJECT= extracturl
29		27
30	PLIST_FILES= bin/extract_url \	28	PLIST_FILES= bin/extract_url \
31	etc/extract_urlview.sample \	29	share/extract_url/extract_urlview.sample \
32	man/man1/extract_url.1.gz	30	man/man1/extract_url.1.gz
33	PORTDOCS= AUTHORS NEWS README	31	PORTDOCS= AUTHORS NEWS README
34		32
35	OPTIONS_DEFINE= DOCS GETOPT_LONG URI_FIND	33	OPTIONS_DEFINE= DOCS URI_FIND
36	OPTIONS_RADIO= URL_SELECTOR	34	OPTIONS_RADIO= URL_SELECTOR
37	OPTIONS_RADIO_URL_SELECTOR= CURSES_UI URLVIEW	35	OPTIONS_RADIO_URL_SELECTOR= CURSES_UI URLVIEW
38	OPTIONS_DEFAULT= CURSES_UI GETOPT_LONG URI_FIND	36	OPTIONS_DEFAULT= CURSES_UI URI_FIND
39	OPTIONS_SUB= yes	37	OPTIONS_SUB= yes
40		38
41	CURSES_UI_DESC= Allows it to fully replace urlview	39	CURSES_UI_DESC= Allows it to fully replace urlview
42	GETOPT_LONG_DESC= Recognizes long options --version and --list
43	URI_FIND_DESC= Recognizes more exotic URL variations in plain text	40	URI_FIND_DESC= Recognizes more exotic URL variations in plain text
44	URLVIEW_DESC= Uses urlview for the URL selector menu	41	URLVIEW_DESC= Uses urlview for the URL selector menu
45		42
46	CURSES_UI_RUN_DEPENDS= p5-Curses-UI>=0:devel/p5-Curses-UI	43	CURSES_UI_RUN_DEPENDS= p5-Curses-UI>=0:devel/p5-Curses-UI
47	GETOPT_LONG_RUN_DEPENDS=p5-Getopt-Long>=0:devel/p5-Getopt-Long
48	URLVIEW_RUN_DEPENDS= urlview>=0:textproc/urlview	44	URLVIEW_RUN_DEPENDS= urlview>=0:textproc/urlview
49	URI_FIND_RUN_DEPENDS= p5-URI-Find>=0:textproc/p5-URI-Find	45	URI_FIND_RUN_DEPENDS= p5-URI-Find>=0:textproc/p5-URI-Find
50		46
Lines 53-60 Link Here
53	${WRKSRC}/${MAKEFILE}	49	${WRKSRC}/${MAKEFILE}
54		50
55	post-install:	51	post-install:
56	${INSTALL_DATA} ${FILESDIR}/${PORTNAME}view \	52	@${MKDIR} ${STAGEDIR}${DATADIR}
57	${STAGEDIR}${PREFIX}/etc/${PORTNAME}view.sample	53	${INSTALL_DATA} ${WRKSRC}/${PORTNAME}view.sample \
		54	${STAGEDIR}${DATADIR}/
58		55
59	post-install-DOCS-on:	56	post-install-DOCS-on:
60	@${MKDIR} ${STAGEDIR}${DOCSDIR}	57	@${MKDIR} ${STAGEDIR}${DOCSDIR}

Lines 1-31 Link Here

(-)files/extract_urlview (-31 lines)
1	################################
2	### extract_url(1) configuration
3	#
4	# Copy this file to ~/.extract_urlview
5
6	# Command used to view URLs
7	#COMMAND firefox %s &
8
9	# URL will be opened without prompting when emails contains only one
10	#SHORTCUT
11
12	# Turn off showing the full URL before opening it
13	#NOREVIEW
14
15	# Disable the automatic exit of URL selection menu after viewing a URL
16	#PERSISTENT
17
18	# Ignore links that don't correspond to any text
19	#IGNORE_EMPTY_TAGS
20
21	# Specify which HTML tags will be examined for URLs
22	#HTML_TAGS a,applet,area,blockquote,embed,form,frame,iframe,input,ins,isindex,head,layer,link,object,q,script,xmp
23
24	# Key for PERSISTENT behaviour, or opposite if PERSISTENT is specified
25	#ALTSELECT k
26
27	# Show [url] list or show URLs in [context] when the program is run
28	#DEFAULT_VIEW url
29
30	# Sanitize URLs before they are displayed
31	#DISPLAY_SANITIZED

Line 0 Link Here

(-)files/patch-extract__url.pl (+22 lines)
	1	--- extract_url.pl.orig 2017-01-18 14:59:52 UTC
	2	+++ extract_url.pl
	3	@@ -54,18 +54,7 @@ sub VERSION_MESSAGE {
	4
	5	my $term_cols = 80;
	6	my ($term_rows, $term_wpix, $term_hpix);
	7	-if (eval "use Term::Readkey") {
	8	- ($term_cols, $term_rows, $term_wpix, $term_hpix) = GetTerminalSize();
	9	-} else {
	10	- require 'sys/ioctl.ph';
	11	- if (defined &TIOCGWINSZ and open(TTY, "+</dev/tty")) {
	12	- my $winsize = '';
	13	- unless (ioctl(TTY, &TIOCGWINSZ, $winsize)) {
	14	- die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
	15	- }
	16	- ($term_rows, $term_cols, $term_wpix, $term_hpix) = unpack('S4', $winsize);
	17	- }
	18	-}
	19	+require 'sys/ioctl.ph';
	20	my $list_width = $term_cols - 4; # 4 is for the border width on either side
	21
	22	my %options;