Added net-analyzer/fierce

net-analyzer/fierce/Manifest

@@ -0,0 +1,4 @@
+AUX fierce-path.patch 912 RMD160 d6782bb1dd08389fee49ea32210a3612756b20e7 SHA1 74d054d86dd37f1b784a3dc4d2ce41e11ebce1ea SHA256 820654fe8d69a0e127ec64a1c997d1c6f5edc2945c1d03f7bf5da718da62487e
+DIST fierce.pl 18169 RMD160 1ec0d75e41c99687133a0ca19c037a40140a9a32 SHA1 245d4063473283ad523baa05719600d8213d392b SHA256 513cb69952cf66de44daf7ebb9d18ebd5d8b43838cffa8920ea2e5ef1c646015
+DIST hosts.txt 11850 RMD160 48e3fe38e84887f1b1a4e79547f72ff4e468e8a3 SHA1 a2645ab4e4e1ba8090997eaae8f2bb2dd1bb8ea1 SHA256 257be39eb0bf18162f132722d4ec8db18d7c43219ce4654fbc293341aafb0573
+EBUILD fierce-1.0.3.ebuild 749 RMD160 dd480861e523045569b7724a989cb2fec4df0021 SHA1 651f6f777918602cd5b5abdbd94078b0f4ff1392 SHA256 ac8a10b7fc21cdfec5958c9093472caa81311d64352ae6d3779737d1c7676a4c

net-analyzer/fierce/fierce-1.0.3.ebuild

@@ -0,0 +1,43 @@
+# Copyright 1999-2010 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: $
+
+EAPI="2"
+
+inherit eutils
+DESCRIPTION="Fierce is a DNS reconnaissance tool written in perl"
+HOMEPAGE="http://ha.ckers.org/fierce/"
+SRC_URI="http://ha.ckers.org/fierce/${PN}.pl
+		http://ha.ckers.org/fierce/hosts.txt"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~amd64 ~ppc ~x86"
+IUSE=""
+
+RDEPEND="dev-perl/Net-DNS"
+
+S="${WORKDIR}"/${PN}
+
+src_unpack() {
+	einfo "Nothing to unpack"
+	mkdir "${S}"
+	for x in $A
+	do
+		cp "${DISTDIR}"/"${x}" "${S}"
+	done
+}
+
+src_prepare() {
+	epatch "${FILESDIR}"/${PN}-path.patch
+}
+
+src_compile() {
+	einfo "Nothing to compile"
+}
+
+src_install() {
+	insinto /usr/share/"${PN}"
+	doins hosts.txt
+	dobin "${PN}".pl
+}

net-analyzer/fierce/files/fierce-path.patch

@@ -0,0 +1,25 @@
+--- fierce.pl.orig	2011-12-04 22:22:07.912453710 -0800
++++ fierce.pl	2011-12-04 22:22:43.348452584 -0800
+@@ -245,11 +245,11 @@
+ } elsif ($dns) {
+   output("\nUnsuccessful in zone transfer (it was worth a shot)");
+   output("Okay, trying the good old fashioned way... brute force");
+-  $wordlist = $wordlist || 'hosts.txt';
++  $wordlist = $wordlist || '/usr/share/fierce/hosts.txt';
+   if (-e $wordlist) {
+     # user provided or default
+     open (WORDLIST, '<', $wordlist)   or 
+-    open (WORDLIST, '<', 'hosts.txt') or
++    open (WORDLIST, '<', '/usr/share/fierce/hosts.txt') or
+     quit_early("Can't open $wordlist or the default wordlist");
+     for (<WORDLIST>){
+       chomp;
+@@ -579,6 +579,8 @@
+ 	-wordlist	Use a seperate wordlist (one word per line).  Usage:
+ 
+ 	perl fierce.pl -dns examplecompany.com -wordlist dictionary.txt
++
++	Default hosts list is in /usr/share/fierce/hosts.txt
+ EOHELP
+ exit;
+ }