ports/63137: Update port: graphics/cadubi to 1.3

[KATO Tsuguru]

>Number:         63137
>Category:       ports
>Synopsis:       Update port: graphics/cadubi to 1.3
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Fri Feb 20 06:10:20 PST 2004
>Closed-Date:
>Last-Modified:
>Originator:     KATO Tsuguru
>Release:        FreeBSD 4.9-RELEASE-p2 i386
>Organization:
>Environment:
>Description:
- Update to version 1.3

Remove file:
files/patch-CADUBI_pl
files/patch-cadubi

>How-To-Repeat:
>Fix:

diff -urN /usr/ports/graphics/cadubi/Makefile graphics/cadubi/Makefile
--- /usr/ports/graphics/cadubi/Makefile	Wed Oct 29 10:27:15 2003
+++ graphics/cadubi/Makefile	Fri Feb 20 21:54:20 2004
@@ -6,25 +6,31 @@
 #
 
 PORTNAME=	cadubi
-PORTVERSION=	1.2
+PORTVERSION=	1.3
 CATEGORIES=	graphics editors
-MASTER_SITES=	ftp://ftp.dei.uc.pt/.raid1/linux/files/console/graphics/ \
-		http://www.logicallemon.com/projects/cadubi/downloads/
-DISTNAME=	${PORTNAME}_${PORTVERSION}
+MASTER_SITES=	http://langworth.com/downloads/
 
 MAINTAINER=	ports at FreeBSD.org
 COMMENT=	ASCII drawing utility
 
 RUN_DEPENDS=	${SITE_PERL}/${PERL_ARCH}/Term/ReadKey.pm:${PORTSDIR}/devel/p5-Term-ReadKey
 
+USE_PERL5=	yes
 NO_BUILD=	yes
 
+do-configure:
+	@${PERL} -pi -e \
+		's|Bin/help|Bin/../share/cadubi/help|g' ${WRKSRC}/cadubi
+
 do-install:
 	${INSTALL_SCRIPT} ${WRKSRC}/cadubi ${PREFIX}/bin
-	${INSTALL_SCRIPT} ${WRKSRC}/CADUBI.pl ${PREFIX}/libexec
+	@${MKDIR} ${DATADIR}
+	${INSTALL_DATA} ${WRKSRC}/help.txt ${DATADIR}
+	${INSTALL_DATA} ${WRKSRC}/logo.txt ${DATADIR}
 .if !defined(NOPORTDOCS)
-	${MKDIR} ${PREFIX}/share/doc/cadubi
-	${INSTALL_DATA} ${WRKSRC}/CADUBI.help ${PREFIX}/share/doc/cadubi
+	${MKDIR} ${DOCSDIR}
+	${INSTALL_DATA} ${WRKSRC}/README ${DOCSDIR}
+	${INSTALL_DATA} ${WRKSRC}/extras/ansi_term_codes.txt ${DOCSDIR}
 .endif
 
 .include <bsd.port.mk>
diff -urN /usr/ports/graphics/cadubi/distinfo graphics/cadubi/distinfo
--- /usr/ports/graphics/cadubi/distinfo	Thu Jan 29 20:25:40 2004
+++ graphics/cadubi/distinfo	Fri Feb 20 21:14:55 2004
@@ -1,2 +1,2 @@
-MD5 (cadubi_1.2.tar.gz) = 53315c148dffda233f04ad83bafd20aa
-SIZE (cadubi_1.2.tar.gz) = 46347
+MD5 (cadubi-1.3.tar.gz) = e4ba1f6995bfdae8639341446782b859
+SIZE (cadubi-1.3.tar.gz) = 12559
diff -urN /usr/ports/graphics/cadubi/files/patch-CADUBI_pl graphics/cadubi/files/patch-CADUBI_pl
--- /usr/ports/graphics/cadubi/files/patch-CADUBI_pl	Sat Aug 25 16:17:59 2001
+++ graphics/cadubi/files/patch-CADUBI_pl	Thu Jan  1 09:00:00 1970
@@ -1,32 +0,0 @@
---- CADUBI.pl.orig	Thu Jan 27 03:54:45 2000
-+++ CADUBI.pl	Sun Jul 29 01:10:28 2001
-@@ -59,6 +59,7 @@ $AUDIBLE = 1;			# beep unless -m, --mute
- $status_changed = 1;	# used with &status so we don't constantly redraw.
- $current_filename = undef;	# name of file we're working with
- $cadubi_done = 0;		# main loop var
-+$Helpfile = $Bin . "/../share/doc/cadubi";
- 
- # runtime statements
- &initKeys(); 		# setup %controlkeys and %keymap
-@@ -716,10 +717,10 @@ sub HandleKeystroke {
- 	
- 	# help
- 	if (ord($key) == $keymap{'^h'}) { #Help
--		if (-e $Bin.'/CADUBI.help') {
-+		if (-e $Helpfile.'/CADUBI.help') {
- 			my @oldmap = @charmap;
- 			my @oldpos = @pos;
--			&readfile($Bin.'/CADUBI.help');
-+			&readfile($Helpfile.'/CADUBI.help');
- 			&status('Press a key to continue...', 1);
- 			my $temp = ReadKey(0);
- 			@charmap = @oldmap;
-@@ -729,7 +730,7 @@ sub HandleKeystroke {
- 			&status;
- 		} else {
- 			&beep;
--			&status("'".$Bin."/CADUBI.help' not available");
-+			&status("'".$Helpfile."/CADUBI.help' not available");
- 		}
- 		return 0;
- 	}
diff -urN /usr/ports/graphics/cadubi/files/patch-cadubi graphics/cadubi/files/patch-cadubi
--- /usr/ports/graphics/cadubi/files/patch-cadubi	Sat Aug 25 16:17:59 2001
+++ graphics/cadubi/files/patch-cadubi	Thu Jan  1 09:00:00 1970
@@ -1,9 +0,0 @@
---- cadubi.orig	Thu Jan 27 03:54:51 2000
-+++ cadubi	Sun Jul 29 01:10:59 2001
-@@ -32,5 +32,5 @@ use FindBin qw($Bin); use lib "$Bin/../l
- my $CADUBI_Arguments = undef;
- $CADUBI_Arguments .= ' --mute' unless $AUDIBLE;
- $CADUBI_Arguments .= ' '.$ADD_OPS if $ADD_OPS;
--exec ('perl '.$Bin.'/CADUBI.pl'.$CADUBI_Arguments.' '.join(' ', at ARGV));
-+exec ('perl '.$Bin.'/../libexec/CADUBI.pl'.$CADUBI_Arguments.' '.join(' ', at ARGV));
- 
diff -urN /usr/ports/graphics/cadubi/pkg-descr graphics/cadubi/pkg-descr
--- /usr/ports/graphics/cadubi/pkg-descr	Tue Feb  4 20:49:55 2003
+++ graphics/cadubi/pkg-descr	Fri Feb 20 21:09:08 2004
@@ -6,4 +6,4 @@
 called "ASCII art," is used in various places such as online
 BBSes, email and login prompts.
 
-WWW: http://www.logicallemon.com/projects/cadubi/
+WWW: http://langworth.com/CadubiProject
diff -urN /usr/ports/graphics/cadubi/pkg-plist graphics/cadubi/pkg-plist
--- /usr/ports/graphics/cadubi/pkg-plist	Sat Aug 25 16:17:59 2001
+++ graphics/cadubi/pkg-plist	Fri Feb 20 21:51:00 2004
@@ -1,4 +1,7 @@
 bin/cadubi
-libexec/CADUBI.pl
-%%PORTDOCS%%share/doc/cadubi/CADUBI.help
-%%PORTDOCS%%@dirrm share/doc/cadubi
+%%DATADIR%%/help.txt
+%%DATADIR%%/logo.txt
+%%PORTDOCS%%%%DOCSDIR%%/README
+%%PORTDOCS%%%%DOCSDIR%%/ansi_term_codes.txt
+%%PORTDOCS%%@dirrm %%DOCSDIR%%
+ at dirrm %%DATADIR%%
>Release-Note:
>Audit-Trail:
>Unformatted: