From 07de4a1e0ff37b96e6ba63517e7fbfcdf6c66d5f Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 22 Feb 2005 22:25:26 +0000
Subject: [PATCH] web1913

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1167 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/Modules/Dict.pl | 57 ++++++++++++++++++++++++++++++++++--
 1 file changed, 55 insertions(+), 2 deletions(-)

diff --git a/blootbot/src/Modules/Dict.pl b/blootbot/src/Modules/Dict.pl
index c254d05..71acb5a 100644
--- a/blootbot/src/Modules/Dict.pl
+++ b/blootbot/src/Modules/Dict.pl
@@ -57,11 +57,13 @@ sub Dict {
 	# body.
 	push(@results, &Dict_Wordnet($socket,$query));
 	push(@results, &Dict_Foldoc($socket,$query));
+	push(@results, &Dict_web1913($socket,$query));
 	# end.
 
 	print $socket "QUIT\n";
 	close $socket;
 
+	&::DEBUG(join(";;\n",@results));
 	my $total = scalar @results;
 
 	if ($total == 0) {
@@ -106,7 +108,7 @@ sub Dict_Wordnet {
 	chop;	# remove \n
 	chop;	# remove \r
 
-	&::DEBUG("got '$_'");
+	&::DEBUG("wordnet '$_'");
 	if (/^552 no match/) {
 	    # no match.
 	    return;
@@ -157,7 +159,7 @@ sub Dict_Foldoc {
 	chop;	# remove \n
 	chop;	# remove \r
 
-	&::DEBUG("got '$_'");
+	&::DEBUG("foldoc '$_'");
 	if (/^552 /) {
 	    # no match
 	    return;
@@ -196,4 +198,55 @@ sub Dict_Foldoc {
     return @results;
 }
 
+sub Dict_web1913 {
+    my ($socket,$query) = @_;
+    my @results;
+
+    &::status("Dict: asking web1913.");
+    print $socket "DEFINE web1913 \"$query\"\n";
+
+    my $string;
+    while (<$socket>) {
+	# remove \n
+	chop;
+	# remove \r
+	chop;
+	&::DEBUG("web1913 '$_'");
+
+	# no match.
+	return if /^552/;
+
+	# stats; end of def.
+	last if (/^250/);
+
+	# definition and/or retrieval
+	next if (/^151/ or /^150/);
+
+	# each line.
+	s/^\s+|\s+$//g;
+
+	# sub def separator.
+	if ($_ eq "" or $_ =~ /^\.$/) {
+	    # sub def.
+	    $string =~ s/^\s+|\s+$//g;
+	    $string =~ s/[{}]//g;
+
+	    next if ($string eq "");
+
+	    push(@results, $string);
+	    $string = "";
+	}
+
+	$string .= $_." ";
+    }
+
+    &::status("Dict: web1913: found ". scalar(@results) ." defs.");
+
+    return if (!scalar @results);
+    # last def is date of entry.
+    #pop @results;
+
+    return @results;
+}
+
 1;
-- 
2.39.2