CVS: blootbot/src/Factoids Reply.pl,1.38,1.39

[Tim R. <tim...@us...>]

Update of /cvsroot/blootbot/blootbot/src/Factoids
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22276/src/Factoids

Modified Files:
	Reply.pl 
Log Message:
literal _default factoid - to get default entries

Index: Reply.pl
===================================================================
RCS file: /cvsroot/blootbot/blootbot/src/Factoids/Reply.pl,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- Reply.pl	14 Jul 2004 19:36:47 -0000	1.38
+++ Reply.pl	14 Jul 2004 19:43:19 -0000	1.39
@@ -35,6 +35,11 @@
 	@searches = ('_default');
     }
 
+    if ($literal and $message =~ /^_default\s+/) {
+	@searches = ('_default');
+	$message =~ s/^_default\s+//;
+    }
+
     # check for factoids with each prefix
     foreach $search (@searches) {
 	if ($search eq '_default') {