manual-reinject: die if user has a ~/.signature

[modbot-mtm.git] / manual-reinject

diff --git a/manual-reinject b/manual-reinject
index c0c2878c877dcef19f46ae6a1d083820fa528c2b..b75c9f3854c750b455ac0f617bc6313f379bdfd3 100755 (executable)
--- a/manual-reinject
+++ b/manual-reinject
@@ -10,6 +10,7 @@
 
 use strict;
 use IO::File;
+use POSIX;
 
 our $abbrev;
 our $duplicate;
@@ -23,6 +24,12 @@ if (!@ARGV) {
     $force = 1;
 }
 
+my $sig = $ENV{'HOME'};
+defined $sig or die;
+$sig .= '/.signature';
+die $sig if stat $sig;
+die unless $!==ENOENT;
+
 for (;;) {
     $_ = <>;
     die unless defined;