Author: myon
Date: 2008-09-11 11:02:27 +0000 (Thu, 11 Sep 2008)
New Revision: 1620
Modified:
trunk/debian/changelog
trunk/scripts/dget.pl
Log:
dget: Make -q really quiet.
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-09-09 20:56:17 UTC (rev 1619)
+++ trunk/debian/changelog 2008-09-11 11:02:27 UTC (rev 1620)
@@ -71,6 +71,7 @@
[ Christoph Berg ]
* debsign: Fix debsign -r dir/*.changes, and do some QA on the manpage.
Continue with next file if an already existing signature is kept.
+ * dget: Make -q really quiet.
[ Mohammed Adnène Trojette ]
* nmudiff: Use a friendlier template inspired from Lucas Nussbaum's
Modified: trunk/scripts/dget.pl
===================================================================
--- trunk/scripts/dget.pl 2008-09-09 20:56:17 UTC (rev 1619)
+++ trunk/scripts/dget.pl 2008-09-11 11:02:27 UTC (rev 1620)
@@ -152,9 +152,9 @@
my $md5sum_new = Digest::MD5->new->addfile($fh5)->hexdigest();
close $fh5;
if (not $md5sum or ($md5sum_new eq $md5sum)) {
- print "$progname: using existing $file\n";
+ print "$progname: using existing $file\n" unless $opt->{'quiet'};
} else {
- print "$progname: removing $file (md5sum does not match)\n";
+ print "$progname: removing $file (md5sum does not match)\n" unless
$opt->{'quiet'};
backup_or_unlink($file);
}
}
@@ -171,9 +171,9 @@
if ($md5sum_new eq $md5sum) {
if (link "$path/$file", $file) {
- print "$progname: using $path/$file (hardlink)\n";
+ print "$progname: using $path/$file (hardlink)\n" unless
$opt->{'quiet'};
} else {
- print "$progname: using $path/$file (copy)\n";
+ print "$progname: using $path/$file (copy)\n" unless
$opt->{'quiet'};
system "cp -a $path/$file $file";
}
last;
@@ -183,7 +183,7 @@
# finally get it from the web
unless (-e $file) {
- print "$progname: retrieving $dir/$file\n";
+ print "$progname: retrieving $dir/$file\n" unless $opt->{'quiet'};
if (wget($file, "$dir/$file")) {
warn "$progname: $wget $file $dir/$file failed\n";
unlink $file;
@@ -443,7 +443,7 @@
}
if ($opt->{'build'}) {
my @output = `dpkg-source -x $found_dsc`; # FIXME: this will
break when dpkg-source output is localized
- print @output;
+ print @output unless $opt->{'quiet'};
foreach (@output) {
if ( /^dpkg-source: extracting .* in (.*)/ ) {
chdir $1;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
