6 files changed, 145 insertions, 0 deletions

diff --git a/mail/adcomplain/Makefile b/mail/adcomplain/Makefile
new file mode 100644
index 000000000000..9f23cd1cd4e4
--- /dev/null
+++ b/mail/adcomplain/Makefile
@@ -0,0 +1,27 @@
+# New ports collection makefile for:    adcomplain
+# http://www.rdrop.com/users/billmc/
+# Version required:     1.6
+# Date created: 13 Sep 1997
+# Whom:         ache@FreeBSD.org
+#
+# $Id: Makefile,v 1.2 1997/03/28 10:10:05 asami Exp $
+#
+
+DISTNAME=       adcomplain-1.6
+DISTFILES=      adcomplain.pl.uu
+CATEGORIES=     mail news
+MASTER_SITES=   http://www.rdrop.com/users/billmc/
+
+MAINTAINER=     ache@FreeBSD.org
+
+EXTRACT_CMD=    /usr/bin/uudecode
+EXTRACT_BEFORE_ARGS=    <
+NO_WRKSUBDIR=	YES
+NO_CONFIGURE=   YES
+NO_BUILD=       YES
+
+do-install:
+	cd ${WRKSRC}; \
+	${INSTALL_SCRIPT} adcomplain.pl ${PREFIX}/bin/adcomplain
+
+.include <bsd.port.mk>
diff --git a/mail/adcomplain/distinfo b/mail/adcomplain/distinfo
new file mode 100644
index 000000000000..22cd9c917de4
--- /dev/null
+++ b/mail/adcomplain/distinfo
@@ -0,0 +1 @@
+MD5 (adcomplain.pl.uu) = 04175d619e0873f1607cc79da19eb43a
diff --git a/mail/adcomplain/files/patch-aa b/mail/adcomplain/files/patch-aa
new file mode 100644
index 000000000000..e297b474f0ac
--- /dev/null
+++ b/mail/adcomplain/files/patch-aa
@@ -0,0 +1,101 @@
+*** adcomplain.pl.orig	Sat Sep 13 17:48:01 1997
+--- adcomplain.pl	Sat Sep 13 17:59:23 1997
+***************
+*** 1,6 ****
+! #! /bin/sh -- # -*- perl -*-
+! eval 'exec perl $0 ${1+"$@"}'
+! if 0;
+  
+  # $Id: adcomplain.pl,v 1.6 1997/08/01 19:38:06 jason Exp $
+  
+--- 1,4 ----
+! #!/usr/bin/perl
+  
+  # $Id: adcomplain.pl,v 1.6 1997/08/01 19:38:06 jason Exp $
+  
+***************
+*** 230,236 ****
+  $noinclude = 1;
+  
+  # comment this if your mailer automatically adds your .signature
+! $addsig = 1;
+  
+  # this is the default name of the file to use for the complaint text
+  # if the file name is empty, the default text will be used
+--- 228,234 ----
+  $noinclude = 1;
+  
+  # comment this if your mailer automatically adds your .signature
+! $addsig = 0;
+  
+  # this is the default name of the file to use for the complaint text
+  # if the file name is empty, the default text will be used
+***************
+*** 238,244 ****
+  
+  # this is the name of the mail utility (see sendmail(8) man page)
+  # type "which sendmail" to find out where sendmail is on your system
+! $mailcmd = "/usr/lib/sendmail -t";
+  
+  #-----------------------------------------------
+  
+--- 236,242 ----
+  
+  # this is the name of the mail utility (see sendmail(8) man page)
+  # type "which sendmail" to find out where sendmail is on your system
+! $mailcmd = "/usr/sbin/sendmail -t";
+  
+  #-----------------------------------------------
+  
+***************
+*** 294,300 ****
+    }
+  
+  # Make sure critical messages are seen
+! if ($poster eq "" || $complain_to eq "") {
+    print "Press enter to continue.... ";
+    $ans = <STDIN>;
+    }
+--- 292,298 ----
+    }
+  
+  # Make sure critical messages are seen
+! if (!$quiet && ($poster eq "" || $complain_to eq "")) {
+    print "Press enter to continue.... ";
+    $ans = <STDIN>;
+    }
+***************
+*** 358,363 ****
+--- 356,364 ----
+    $cc = "$complain_to$cc";
+    }
+  $header .= "Cc: $cc\n" if $cc ne "";
++ if ($quiet) {
++   print "$header";
++ }
+  if ($recipient == $complain_to_only) {
+    $header .= "Subject: Abuse report ($subject)\n";
+    }
+***************
+*** 374,379 ****
+--- 375,381 ----
+  close TEXTFILE;
+  $response = ""; # garbage collection
+  
++ if (!$quiet) {
+  ## print copy of message on terminal
+  print "\n";
+  $pager = $ENV{"PAGER"};
+***************
+*** 405,410 ****
+--- 407,416 ----
+    } # for
+  
+  print "\n";
++ } else {
++     system "$mailcmd <$tempname"; # Unix dependent
++     print "sent\n";
++ }
+  unlink $tempname;
+  close STDIN;
+  exit 0;
diff --git a/mail/adcomplain/pkg-comment b/mail/adcomplain/pkg-comment
new file mode 100644
index 000000000000..514c28b86e5e
--- /dev/null
+++ b/mail/adcomplain/pkg-comment
@@ -0,0 +1 @@
+complain about inappropriate commercial use (f.e. SPAM) of usenet/e-mail
diff --git a/mail/adcomplain/pkg-descr b/mail/adcomplain/pkg-descr
new file mode 100644
index 000000000000..2cde05c3330e
--- /dev/null
+++ b/mail/adcomplain/pkg-descr
@@ -0,0 +1,14 @@
+Composes and mails a complaint about inappropriate commercial use of
+usenet/e-mail.  Sends complaint his/her provider by default, but
+destination is configurable.  Can be used with as few as three keystrokes.
+
+A third-party forwarding service called Abuse.net is used for
+complaints to the offender's provider.  This ensures that the best
+known complaint address is used.  The first time you use Abuse.net,
+you will receive a message asking you to register.  See www.abuse.net.
+
+This was created in the belief that a single, concise message is the
+most appropriate way to complain. Mail bombing (e-mailing megabytes
+of useless data) and public flaming (replying on usenet, causing your
+complaint to be duplicated on every machine in the network) are
+discouraged.
diff --git a/mail/adcomplain/pkg-plist b/mail/adcomplain/pkg-plist
new file mode 100644
index 000000000000..b8ce66d02bef
--- /dev/null
+++ b/mail/adcomplain/pkg-plist
@@ -0,0 +1 @@
+bin/adcomplain