Import Upstream version 0.0.23

[htag.git] / plugins / 10simple

diff --git a/plugins/10simple b/plugins/10simple
index 46825d684a7a1dedd0363768dd3c5485e21afde1..22e67c4ac8740a50665c7747a7b4262270cae21d 100644 (file)
--- 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