mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-20 20:09:11 +00:00
Code Issues Releases Activity

- fix missing MAGENTA() for "mytop --nocolor"

Browse Source 
- bump PORTREVISION

Submitted by:	Michael Scheidell <scheidell at secnap.net>
This commit is contained in:
Yen-Ming Lee 2008-07-06 16:02:59 +00:00
parent ff86006219
commit 4972664894
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=216396
2 changed files with 28 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
databases/mytop/Makefile
View File

@ -7,16 +7,17 @@
PORTNAME= mytop
PORTVERSION= 1.6
PORTREVISION= 3
PORTREVISION= 4
CATEGORIES= databases
MASTER_SITES= http://jeremy.zawodny.com/mysql/mytop/
MAINTAINER= leeym@FreeBSD.org
COMMENT= A top clone for MySQL
RUN_DEPENDS= ${SITE_PERL}/${PERL_ARCH}/Term/ReadKey.pm:${PORTSDIR}/devel/p5-Term-ReadKey \
${SITE_PERL}/${PERL_ARCH}/DBD/mysql.pm:${PORTSDIR}/databases/p5-DBD-mysql \
${SITE_PERL}/Term/ANSIColor.pm:${PORTSDIR}/devel/p5-Term-ANSIColor
RUN_DEPENDS= p5-DBD-mysql>=1.0:${PORTSDIR}/databases/p5-DBD-mysql \
p5-DBI>=1.13:${PORTSDIR}/databases/p5-DBI \
p5-Term-ANSIColor>=0:${PORTSDIR}/devel/p5-Term-ANSIColor \
p5-Term-ReadKey>=2.10:${PORTSDIR}/devel/p5-Term-ReadKey
PERL_CONFIGURE= yes
@ -25,7 +26,7 @@ MAN1= mytop.1
.include <bsd.port.pre.mk>
.if ${PERL_LEVEL} < 500805
RUN_DEPENDS+= ${SITE_PERL}/${PERL_ARCH}/Time/HiRes.pm:${PORTSDIR}/devel/p5-Time-HiRes
RUN_DEPENDS+= p5-Time-HiRes>=0:${PORTSDIR}/devel/p5-Time-HiRes
.endif
.include <bsd.port.post.mk>

28
databases/mytop/files/patch-mytop
View File

@ -1,6 +1,22 @@
--- mytop.orig Thu Apr 12 07:42:22 2007
+++ mytop Thu Apr 12 07:42:24 2007
@@ -369,6 +369,10 @@
--- mytop.orig 2007-02-16 20:57:46.000000000 -0800
+++ mytop 2008-07-06 08:27:54.000000000 -0700
@@ -193,6 +193,7 @@
*BLUE = sub { };
*WHITE = sub { };
*BOLD = sub { };
+ *MAGENTA = sub { };
}
my $RESET = RESET() || '';
@@ -202,6 +203,7 @@
my $BLUE = BLUE() || '';
my $WHITE = WHITE() || '';
my $BOLD = BOLD() || '';
+my $MAGENTA= MAGENTA() || '';
## Connect
@@ -369,6 +371,10 @@
require Data::Dumper;
print Data::Dumper::Dumper([\%config]);
ReadKey(0);
@ -11,7 +27,7 @@
}
## m - mode swtich to qps
@@ -377,7 +381,7 @@
@@ -377,7 +383,7 @@
{
$config{mode} = 'qps';
Clear() unless $config{batchmode};
@ -20,7 +36,7 @@
next;
}
@@ -889,8 +893,42 @@
@@ -889,8 +895,42 @@
make_short(($STATUS{Bytes_received} - $OLD_STATUS{Bytes_received}) / $t_delta ),
make_short(($STATUS{Bytes_sent} - $OLD_STATUS{Bytes_sent}) / $t_delta ))
if ($t_delta);
@ -64,7 +80,7 @@
$lines_left--;
}
@@ -1099,8 +1137,8 @@
@@ -1099,8 +1139,8 @@
my @data = Hashes("SHOW INNODB STATUS");
open P, "|$config{pager}" or die "$!";