Have --quiet

1 files changed, 8 insertions, 2 deletions

diff --git a/pingd b/pingd
index d4b4763..6b870f3 100755
--- a/pingd
+++ b/pingd
@@ -3,7 +3,7 @@
 $| = 1;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: pingd,v 1.60 2002/08/12 03:06:53 weasel Exp $
+# $Id: pingd,v 1.61 2002/08/12 03:28:06 weasel Exp $
 #
 
 =pod
@@ -162,6 +162,10 @@ DIRECTORY section below.
 
 Verbose mode. Causes B<pingd> to print debugging messages about its progress.
 
+=item B<--quiet>
+
+Quiet mode. Be even more quient than normally.
+
 =item B<--help>
 
 Print a short help and exit sucessfully.
@@ -545,6 +549,7 @@ if (!GetOptions (
 	'detach'   =>  \$params->{'detach'},
 	'process'  =>  \$params->{'process'},
 	'basedir'  =>  \$params->{'basedir'},
+	'quiet'    =>  \$params->{'quiet'},
 	)) {
 	die ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [-fwhv]\n");
 };
@@ -577,6 +582,7 @@ if ($params->{'version'}) {
     print ("http://savannah.gnu.org/projects/echolot/\n");
     exit 0;
 };
+$params->{'quiet'} = undef if ($params->{'verbose'});
 
 my $COMMAND = shift @ARGV;
 die ("command required\n") unless defined $COMMAND;
@@ -620,7 +626,7 @@ if ($COMMAND eq 'add' || $COMMAND eq 'delete') {
 		if pid_exists();
 	make_dirs();
 	if ($params->{'detach'}) {
-		print "Detaching.\n";
+		print "Detaching.\n" unless ($params->{'quiet'});
 		exit(0) if (fork());
 		POSIX::setsid();
 		exit(0) if (fork());