From 5b7ef796565747adb5113ec08d862c31631c1255 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 12 Aug 2002 03:28:06 +0000 Subject: Have --quiet --- NEWS | 1 + pingd | 10 ++++++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index c150666..cabd944 100644 --- a/NEWS +++ b/NEWS @@ -4,6 +4,7 @@ Changes in version * Have a debian/ directory to build a Debian package. * Config option mailindir was renamed to mailin. You now can also point it to a mbox format mailbox. + * Have --quiet. Changes in version 2.0beta25 - 2002-08-10 * Produce echolot.html, an index file for echolot results. diff --git a/pingd b/pingd index d4b4763..6b870f3 100755 --- a/pingd +++ b/pingd @@ -3,7 +3,7 @@ $| = 1; # (c) 2002 Peter Palfrader -# $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 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()); -- cgit v1.2.3