X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=plugins%2F10simple;fp=plugins%2F10simple;h=22e67c4ac8740a50665c7747a7b4262270cae21d;hb=49c39d47502a7485e7e63f7cbea8325852d25967;hp=46825d684a7a1dedd0363768dd3c5485e21afde1;hpb=05869f1bf3fb39b81155235901cae1ba99b9b359;p=htag.git

diff --git a/plugins/10simple b/plugins/10simple
index 46825d6..22e67c4 100644
--- a/plugins/10simple
+++ b/plugins/10simple
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# Copyright (C) 2000-2001 Simon Huggins
+# Copyright (C) 2000-2003 Simon Huggins
 # simple just chooses a random tagline in the simplest possible way
 # or uses fortune(1)
 
@@ -24,6 +24,17 @@ my (@tags);
 
 # srand( time() ^ ($$ + ($$ << 15) )); # Since 5.004 not required.
 
+my $sig="";
+open(SIG, "<$cfg{'tmpsigfile'}") or htagdie "$0: Could not open $cfg{'tmpsigfile'}: $!\n";
+while(<SIG>) {
+	$sig .= $_;
+}
+close(SIG);
+
+if (grep { /\@NOTAG\@/ } $sig) {
+	$cfg{'notag'}=1;
+	return 15;
+}
 
 htagdie <<EOF if (not defined $cfg{'tagfile'} and not defined $cfg{'tagfiles'} and not defined $cfg{'fortune'} and not defined $cfg{'tagdir'}); 
 No tagfile defined!  I'm good but I'm not psychic