X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?p=modbot-mtm.git;a=blobdiff_plain;f=manual-reinject;h=b75c9f3854c750b455ac0f617bc6313f379bdfd3;hp=c0c2878c877dcef19f46ae6a1d083820fa528c2b;hb=857e2cc60c053ff934be9f512115fdcef331f6b1;hpb=518ce894b43f80c957cad8a1977b1b91ebd6a2a0 diff --git a/manual-reinject b/manual-reinject index c0c2878..b75c9f3 100755 --- 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;