simbot-commits — SimBot's commits to CVS

[SimBot-commits] CVS: simbot/tools - New directory

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21038/tools

Log Message:
Directory /cvsroot/simbot/simbot/tools added to the repository

[SimBot-commits] CVS: simbot/plugins info.pl,1.41,1.42

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26184/plugins

Modified Files:
	info.pl 
Log Message:
documentage++


Index: info.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/info.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -p -r1.41 -r1.42
--- info.pl	4 May 2005 20:54:13 -0000	1.41
+++ info.pl	5 May 2005 04:04:07 -0000	1.42
@@ -554,12 +554,13 @@ sub normalize_urls {
 
 &SimBot::plugin_register(
     plugin_id   => 'info',
-    plugin_params => '(<key> [is [also] <fact>] | list <key>)',
+    plugin_params => '(<key> [is [also] <fact>] | list <key> | forget <key>)',
     plugin_help     => <<EOT,
 If only <key> is specified, a random associated fact will be returned.
 If <key> is <fact> is specified, <fact> will be stored under <key>, unless
   <key> already exists. Use 'is also' to add facts to existing keys.
 If list <key> is specified, all associated facts will be returned.
+If forget <key> is specified, all associated facts will be deleted.
 The truthfulness of any stored facts is not guaranteed.
 EOT
 

[SimBot-commits] CVS: simbot ChangeLog,1.71,1.72

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23316

Modified Files:
	ChangeLog 
Log Message:
Forecast support. Try %weather <lat> <long>, where <lat> and <long> 
provide a point in the US.


Index: ChangeLog
===================================================================
RCS file: /cvsroot/simbot/simbot/ChangeLog,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -d -p -r1.71 -r1.72
--- ChangeLog	4 May 2005 19:50:10 -0000	1.71
+++ ChangeLog	5 May 2005 03:48:31 -0000	1.72
@@ -1,5 +1,9 @@
 Version 1.0 alpha: (04 May 2005)
-        * simbot.pl:
+	* plugins/weather.pl:
+	  - Forecast support; %weather <lat> <long> will give a forecast or break
+	    horribly depending on how sober NOAA is and if the lat/long is in the
+	    US.
+	* simbot.pl:
 	  - Replace plugin_desc parameter with plugin_help and plugin_params
 	    to allow a very nicely formed usage description.  Plugins that have
 	    no help will not be listed, even if they have params, but if the

[SimBot-commits] CVS: simbot/plugins dict.pl,1.19,1.20

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23397/plugins

Modified Files:
	dict.pl 
Log Message:
Parenthesis!


Index: dict.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dict.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -p -r1.19 -r1.20
--- dict.pl	5 May 2005 03:35:33 -0000	1.19
+++ dict.pl	5 May 2005 03:48:46 -0000	1.20
@@ -32,7 +32,7 @@ use constant DICT_SERVER => "dict.org";
 sub look_up {
     my ($kernel, $nick, $channel, $command) = @_;
 	my $line = join(' ', @_[ 4 .. $#_ ]);
-	my $dictionary, $term, $destination;
+	my ($dictionary, $term, $destination);
 	if ($line =~ /^\"?(.+?)\"?( (in|with) \"?(.+?)\"?)?( (privately|publicly))?$/i) {
 		if ($1 eq "dictionaries" && $3 eq "with") {
 			$dictionary = "?";

[SimBot-commits] CVS: simbot/plugins weather.pl,1.56,1.57

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23316/plugins

Modified Files:
	weather.pl 
Log Message:
Forecast support. Try %weather <lat> <long>, where <lat> and <long> 
provide a point in the US.


Index: weather.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/weather.pl,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -p -r1.56 -r1.57
--- weather.pl	4 May 2005 20:39:05 -0000	1.56
+++ weather.pl	5 May 2005 03:48:32 -0000	1.57
@@ -42,12 +42,17 @@ package SimBot::plugin::weather;
 use strict;
 use warnings;
 
+use Data::Dumper;
+
 # The weather, more or less!
 use Geo::METAR;
 
 # the new fangled XML weather reports need to be parsed too!
 use XML::Simple;
 
+# and we need this to get the XML forecasts
+use SOAP::Lite;
+
 use POE;
 
 # Fetching from URLs is better with LWP!
@@ -754,6 +759,105 @@ sub got_xml {
         "$nick: $msg");
 }
 
+sub do_forecast {
+    # Credit/blame to http://golem.ph.utexas.edu/~distler/blog/archives/000500.html
+    # for much of this script
+    my ($nick, $channel, $lat, $long) = @_;
+    
+    
+    my $serviceURI = 'http://weather.gov/forecasts/xml';
+    my $method = 'NDFDgenByDay';
+    my $endpoint = "$serviceURI/SOAP_server/ndfdXMLserver.php";
+    my $soapAction = "$serviceURI/DWMLgen/wsdl/ndfdXML.wsdl#$method";
+    my $numDays = 6;
+    my $format = '12 hourly';
+    
+    my @time = localtime;
+    my $startDate = ($time[5] + 1900) . '-' . ($time[4] + 1) . '-'
+        . ($time[3]) . '-00:00';
+    
+    my $weather = SOAP::Lite->new(uri => $soapAction,
+                                proxy => $endpoint);
+    my $response = $weather->call(
+       SOAP::Data->name($method)
+         => SOAP::Data->type(decimal => $lat      )->name('latitude'),
+         => SOAP::Data->type(decimal => $long     )->name('longitude'),
+         => SOAP::Data->type(date    => $startDate)->name('startDate'),
+         => SOAP::Data->type(integer => $numDays  )->name('numDays'),
+         => SOAP::Data->type(string  => $format   )->name('format')
+       );
+    
+    if ($response->fault) {
+         &SimBot::send_message($channel, "$nick: Something unexpected happened: " . $response->faultstring);
+    } else {
+        open(OUT, ">forecast_debug");
+        print OUT $response->result;
+        
+        my $xml = $response->result;
+        
+        my $forecast;
+        if (!eval { $forecast = XMLin($xml); }) {
+            &SimBot::send_message($channel, "$nick: The forecast could not be parsed. Blame NOAA.");
+            return;
+        }
+        
+        my $params = $forecast->{'data'}->{'parameters'};
+        my $layout = $forecast->{'data'}->{'time-layout'};
+        my $title = $forecast->{'head'}->{'product'}->{'title'};
+        my $info_url = $forecast->{'head'}->{'source'}->{'more-information'};
+        
+        my ($maxperiodkey, $minperiodkey, $condsperiodkey);
+        
+        # arrays of keys for the time-periods in the forecast
+        LAYOUT:
+        for my $i (0 .. $#$layout) {
+          my $period_key = $layout->[$i]->{'start-valid-time'};
+          my $layout_key = $layout->[$i]->{'layout-key'};
+          $layout_key =~ /k-p24h-n\d-1/ ? do {$maxperiodkey=$period_key; next LAYOUT;} :
+          $layout_key =~ /k-p24h-n\d-2/ ? do {$minperiodkey=$period_key; next LAYOUT;} :
+          $layout_key =~ /k-p12h-n\d/ ?    ($condsperiodkey=$period_key) :
+                  die "unknown period key\n";
+        }
+        
+        $numDays = 2;
+        if ($numDays > $#$maxperiodkey + 1) {
+            $numDays = $#$maxperiodkey + 1;
+        }
+        my ($conditions, $temperatures, $hilo, $times, $precip, $icons);
+        
+        # turn the forecast into hashes, keyed by time-period
+        for my $i (0 .. 2*$numDays-1) {
+            $times->[$i] = $condsperiodkey->[$i]->{'period-name'};
+            $conditions->{$times->[$i]} =
+              $params->{'weather'}->{'weather-conditions'}->[$i]->{'weather-summary'};
+            $precip->{$times->[$i]} =
+              $params->{'probability-of-precipitation'}->{'value'}->[$i];
+        # towards the end of a 12-hour period, NOAA doesn't deign to "forecast" the
+        # weather for that period. So we hack around them.
+            $icons->{$times->[$i]} =
+              ($params->{'conditions-icon'}->{'icon-link'}->[$i] =~ /^HASH/ ) ?
+                   '' :
+                   $params->{'conditions-icon'}->{'icon-link'}->[$i];
+        }
+        for my $i (0 .. $numDays-1) {
+            $temperatures->{$maxperiodkey->[$i]->{'period-name'}} =
+              $params->{'temperature'}->{'Daily Maximum Temperature'}->{'value'}->[$i];
+            $temperatures->{$minperiodkey->[$i]->{'period-name'}} =
+              $params->{'temperature'}->{'Daily Minimum Temperature'}->{'value'}->[$i];
+            $hilo->{$maxperiodkey->[$i]->{'period-name'}} = 'High';
+            $hilo->{$minperiodkey->[$i]->{'period-name'}} = 'Low';
+        }
+        
+        # OK, so we have weather. Let's do something with it.
+        my $msg = '';
+        
+        for my $i (@$times) {
+            $msg .= $i . ': ' . $conditions->{$i} . ', ' . $temperatures->{$i} . '°F; ';
+        }
+        &SimBot::send_message($channel, "$nick: $msg");
+    }
+}
+
 sub nlp_match {
     my ($kernel, $nick, $channel, $plugin, @params) = @_;
 
@@ -781,6 +885,14 @@ sub new_get_wx {
     my ($kernel, $nick, $channel, $command, $station, @args) = @_;
     my $flags = 0;
     
+    my ($lat, $long);
+    if(($lat) = $station =~ /(-?[\d\.]+)/) {
+        my $long = $args[0];
+        
+        &do_forecast($nick, $channel, $lat, $long);
+        return;
+    }
+    
     if($command =~ /^.metar$/)      { $flags |= RAW_METAR; }
     foreach(@args) {
         if(m/^metar$/)              { $flags |= FORCE_METAR; }
@@ -793,9 +905,10 @@ sub new_get_wx {
 # Register Plugins
 &SimBot::plugin_register(
 						 plugin_id   => "weather",
-						 plugin_params => "<station ID> [metar|raw]",
+				         plugin_params => "<station ID> [metar|raw]",
 						 plugin_help =>
 "Gets a weather report for the given station.\nSpecifying %bold%metar%bold% will force the parsing the metar report instead of using the NOAA XML data.\nSpecifying %bold%raw%bold% will show the METAR report in its original form.",
+
 						 event_plugin_call    => \&new_get_wx,
 						 event_plugin_load    => \&messup_wx,
 						 event_plugin_unload  => \&cleanup_wx,

[SimBot-commits] CVS: simbot/plugins dict.pl,1.18,1.19

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21215/plugins

Modified Files:
	dict.pl 
Log Message:
This should plug a warning on %define with no parameters


Index: dict.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dict.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -p -r1.18 -r1.19
--- dict.pl	5 May 2005 03:29:39 -0000	1.18
+++ dict.pl	5 May 2005 03:35:33 -0000	1.19
@@ -32,17 +32,17 @@ use constant DICT_SERVER => "dict.org";
 sub look_up {
     my ($kernel, $nick, $channel, $command) = @_;
 	my $line = join(' ', @_[ 4 .. $#_ ]);
-	$line =~ /^\"?(.+?)\"?( (in|with) \"?(.+?)\"?)?( (privately|publicly))?$/i;
-	my $dictionary;
-	my $term;
-	if ($1 eq "dictionaries" && $3 eq "with") {
-		$dictionary = "?";
-		$term = $4
-	} else {
-		$dictionary = $4;
-		$term = $1;
+	my $dictionary, $term, $destination;
+	if ($line =~ /^\"?(.+?)\"?( (in|with) \"?(.+?)\"?)?( (privately|publicly))?$/i) {
+		if ($1 eq "dictionaries" && $3 eq "with") {
+			$dictionary = "?";
+			$term = $4;
+		} else {
+			$dictionary = $4;
+			$term = $1;
+		}
+		$destination = (defined $6 ? $6 : "default");
 	}
-	my $destination = (defined $6 ? $6 : "default");
 
 	&SimBot::debug(3, "define: Received request from " . $nick . ".\n");
 
@@ -59,7 +59,7 @@ sub look_up {
 
 	my %dbs = $dict->dbs();
 	# We're killing these because they're "pseudo-dictionary" names and
-	# they don't actually work right.
+	# they don't actually work right.  They won't return results anyway.
 	delete $dbs{"--exit--"} if defined $dbs{"--exit--"};
 	delete $dbs{"all"}      if defined $dbs{"all"};
 	delete $dbs{"trans"}    if defined $dbs{"trans"};

[SimBot-commits] CVS: simbot/plugins dict.pl,1.17,1.18

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18317/plugins

Modified Files:
	dict.pl 
Log Message:
Fix send_pieces to not split words on . and -, because it does weird things
to most blocks of text, like putting the period for the sentence in a new
message or splitting a decimal number.

This also makes the dict plugin work better in several ways, including
sending a private list of dictionaries isntead of always listing the public
one.  All private messages in dict.pl are now sent with notices instead.

Index: dict.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dict.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -p -r1.17 -r1.18
--- dict.pl	4 May 2005 21:36:58 -0000	1.17
+++ dict.pl	5 May 2005 03:29:39 -0000	1.18
@@ -58,9 +58,17 @@ sub look_up {
 	}
 
 	my %dbs = $dict->dbs();
+	# We're killing these because they're "pseudo-dictionary" names and
+	# they don't actually work right.
+	delete $dbs{"--exit--"} if defined $dbs{"--exit--"};
+	delete $dbs{"all"}      if defined $dbs{"all"};
+	delete $dbs{"trans"}    if defined $dbs{"trans"};
+	delete $dbs{"english"}  if defined $dbs{"english"};
+
 
 	if (!defined $term) {
-		&SimBot::send_message($channel, "$nick: Please specify which word you want defined. If you wish, you can specify 'in' and one of " . join(", ", keys(%dbs)) . ", after the word to indicate which dictionary to use.  By default, the first match in any dictionary will be used.");
+		&SimBot::send_message($channel, "$nick: Please specify which word you want defined.  You can specify 'in <dictionary>' after the word to search a specific dictionary from the list I am messaging you now.  If you don't specify, I'll just look for the first match.");
+		&SimBot::send_pieces_with_notice($nick, undef, "Available Dictionaries: " . join(", ", keys(%dbs)) . ".");
 		return;
 	}
 
@@ -95,7 +103,7 @@ sub look_up {
 			} elsif ($destination eq "publicly") {
 				&SimBot::send_pieces($channel, "$nick:", $definition);
 			} elsif ($destination eq "privately") {
-				&SimBot::send_pieces($nick, undef, $definition);
+				&SimBot::send_pieces_with_notice($nick, undef, $definition);
 			} else {
 				&SimBot::send_message($channel, "$nick: $definition");
 			}
@@ -114,13 +122,13 @@ sub look_up {
 					$dictionaries{${$entry}[0]}++;
 				}
 			}
-			&SimBot::send_message($channel, "$nick: A definition for $term is available in the following dictionaries: " . join(", ", keys (%dictionaries)) . ".");
+			&SimBot::send_pieces($channel, "$nick:", "A definition for $term is available in the following dictionaries: " . join(", ", keys (%dictionaries)) . ".");
 		} else {
 			&SimBot::send_message($channel, "$nick: I could not find a definition for $term in any available dictionaries.");
 		}
 
 	} else {
-		&SimBot::send_message($channel, "$nick: There is no dictionary called '$dictionary' available. Try one of " . join(", ", keys(%dbs)) . ".");
+		&SimBot::send_message($channel, &SimBot::parse_style("$nick: There is no dictionary called '$dictionary' available. Type %bold%$command%bold% with no parameters to see a list of dictionaries you can use."));
 	}
 }
 
@@ -128,7 +136,7 @@ sub look_up {
 &SimBot::plugin_register(plugin_id   => "define",
 						 plugin_params => "[dictionaries with \"<term>\"|\"<term>\" [in <dictionary>]] [publicly|privately]",
 						 plugin_help =>
-qq~Defines the requested term. Quotation marks are optional unless the query has more than one word:
+qq~Defines the requested term. Quotation marks are optional unless the query has more than one word.  To see a list of available dictionaries privately, simply use the define command with no parameters.
 %bold%dictionaries with%bold%: Lists the dictionaries with the given term.
 %bold%in <dictionary>%bold%: Shows the entry from a specific dictionary, if it exists.
 %bold%publicly%bold% or %bold%privately%bold%: Specify one of these terms to request the definition in the channel or via private message. Public messages will be limited to a reasonable length.~,

[SimBot-commits] CVS: simbot simbot.pl,1.113,1.114

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18317

Modified Files:
	simbot.pl 
Log Message:
Fix send_pieces to not split words on . and -, because it does weird things
to most blocks of text, like putting the period for the sentence in a new
message or splitting a decimal number.

This also makes the dict plugin work better in several ways, including
sending a private list of dictionaries isntead of always listing the public
one.  All private messages in dict.pl are now sent with notices instead.

Index: simbot.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/simbot.pl,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -d -p -r1.113 -r1.114
--- simbot.pl	4 May 2005 20:03:50 -0000	1.113
+++ simbot.pl	5 May 2005 03:29:39 -0000	1.114
@@ -1457,7 +1457,7 @@ sub send_pieces {
 #   ARG3: $text:    the text to split.
 sub cont_send_pieces {
     my ($kernel, $type, $dest, $prefix, $text) = @_[KERNEL, ARG0, ARG1, ARG2, ARG3];
-    my @words = split(/\b/, $text);
+    my @words = split(/(\b | \b)/, $text);
     my $line = (defined $prefix ? $prefix . ' ' : '') . shift(@words);
     my ($curWord);
 

[SimBot-commits] CVS: simbot TODO,1.14,1.15

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27399

Modified Files:
	TODO 
Log Message:
Tweak the TODO a little.  We'll never release at this rate. ;)

Index: TODO
===================================================================
RCS file: /cvsroot/simbot/simbot/TODO,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -p -r1.14 -r1.15
--- TODO	1 May 2005 20:52:49 -0000	1.14
+++ TODO	4 May 2005 21:36:58 -0000	1.15
@@ -9,6 +9,8 @@ Targets for 1.0 Beta
 - Implement learning ignore by hostmask/nickname.
 - Implement autokick plugin.
 - Make interesting word calculation adaptive by db size, because over time, 5000 is not enough, and lots of words become uninteresting.
+- Improve data storage format by converting to DBD-SQLite.
+- Convert all private messaging to private notices, to comply better with RFC 2812 section 3.3.2.
 
 Targets for 1.0 Final
 ======================
@@ -21,8 +23,6 @@ Targets for 1.0 Final
 Targets for Beyond 1.0
 ======================
 - Use POE better, blocking less and using more events.
-- Reduce memory footprint.
-- Improve data storage format. Look into converting databases to DBD-SQLite.
 - RSS plugin desperately needs to handle all links/guids changing.
 - Weather plugin needs to stop using Geo::METAR.
 - Make sentence generation bonus __BEGIN/__END as sentence gets longer to reduce the chance of (but not obliterate) excessively long sentences.

[SimBot-commits] CVS: simbot/plugins dict.pl,1.16,1.17

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27399/plugins

Modified Files:
	dict.pl 
Log Message:
Tweak the TODO a little.  We'll never release at this rate. ;)

Index: dict.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dict.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -p -r1.16 -r1.17
--- dict.pl	4 May 2005 21:17:17 -0000	1.16
+++ dict.pl	4 May 2005 21:36:58 -0000	1.17
@@ -126,7 +126,7 @@ sub look_up {
 
 # Register Plugin
 &SimBot::plugin_register(plugin_id   => "define",
-						 plugin_params => "[dictionaries with \"<term>\"|\"<term>\"] [in <dictionary>] [publicly|privately]",
+						 plugin_params => "[dictionaries with \"<term>\"|\"<term>\" [in <dictionary>]] [publicly|privately]",
 						 plugin_help =>
 qq~Defines the requested term. Quotation marks are optional unless the query has more than one word:
 %bold%dictionaries with%bold%: Lists the dictionaries with the given term.

[SimBot-commits] CVS: simbot/plugins dict.pl,1.15,1.16

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20910/plugins

Modified Files:
	dict.pl 
Log Message:
I guess I should be proofreading better and whatnot

Index: dict.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dict.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -p -r1.15 -r1.16
--- dict.pl	4 May 2005 20:59:40 -0000	1.15
+++ dict.pl	4 May 2005 21:17:17 -0000	1.16
@@ -129,8 +129,8 @@ sub look_up {
 						 plugin_params => "[dictionaries with \"<term>\"|\"<term>\"] [in <dictionary>] [publicly|privately]",
 						 plugin_help =>
 qq~Defines the requested term. Quotation marks are optional unless the query has more than one word:
- %bold%dictionaries with%bold%: Lists the dictionaries with the given term
- %bold%in <dictionary>%bold%: Shows the entry from a specific dictionary, if it exists.
- %bold%publicly|privately%bold%: Specify one of these terms to request the definition in the channel or via private message.  Public messages will be limited toa reasonable length.~,
+%bold%dictionaries with%bold%: Lists the dictionaries with the given term.
+%bold%in <dictionary>%bold%: Shows the entry from a specific dictionary, if it exists.
+%bold%publicly%bold% or %bold%privately%bold%: Specify one of these terms to request the definition in the channel or via private message. Public messages will be limited to a reasonable length.~,
 						 event_plugin_call => \&look_up,
 						 );

[SimBot-commits] CVS: simbot/plugins dice.pl,1.22,1.23

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19190/plugins

Modified Files:
	dice.pl 
Log Message:
I don't know what I was thinking here.

Index: dice.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dice.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -p -r1.22 -r1.23
--- dice.pl	4 May 2005 20:56:24 -0000	1.22
+++ dice.pl	4 May 2005 21:09:54 -0000	1.23
@@ -248,7 +248,8 @@ sub nlp_match {
 						  "i-want", "would-you", "command",],
 						 );
 
-&SimBot::plugin_register(plugin_id   => "rps <selection>",
+&SimBot::plugin_register(plugin_id   => "rps",
+						 plugin_params => "<selection>",
 						 plugin_help => "Pick rock, paper or scissors.",
 						 event_plugin_call => \&rps_shoot,
 						 );

[SimBot-commits] CVS: simbot/plugins dict.pl,1.14,1.15 recap.pl,1.15,1.16

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16583/plugins

Modified Files:
	dict.pl recap.pl 
Log Message:
I make lots of mistakes

Index: dict.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dict.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -p -r1.14 -r1.15
--- dict.pl	4 May 2005 20:39:05 -0000	1.14
+++ dict.pl	4 May 2005 20:59:40 -0000	1.15
@@ -127,11 +127,10 @@ sub look_up {
 # Register Plugin
 &SimBot::plugin_register(plugin_id   => "define",
 						 plugin_params => "[dictionaries with \"<term>\"|\"<term>\"] [in <dictionary>] [publicly|privately]",
-						 plugin_help => <<EOT;
-Defines the requested term. Quotation marks are optional unless the query has more than one word:
+						 plugin_help =>
+qq~Defines the requested term. Quotation marks are optional unless the query has more than one word:
  %bold%dictionaries with%bold%: Lists the dictionaries with the given term
  %bold%in <dictionary>%bold%: Shows the entry from a specific dictionary, if it exists.
- %bold%publicly|privately%bold%: Specify one of these terms to request the definition in the channel or via private message.  Public messages will be limited toa reasonable length.
-EOT,
+ %bold%publicly|privately%bold%: Specify one of these terms to request the definition in the channel or via private message.  Public messages will be limited toa reasonable length.~,
 						 event_plugin_call => \&look_up,
 						 );

Index: recap.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/recap.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -p -r1.15 -r1.16
--- recap.pl	4 May 2005 20:39:05 -0000	1.15
+++ recap.pl	4 May 2005 20:59:40 -0000	1.16
@@ -113,7 +113,7 @@ sub nick_change {
 
 # Register Plugin
 &SimBot::plugin_register(plugin_id   => "recap",
-						 plugin_params => "[<lines>]"
+						 plugin_params => "[<lines>]",
 						 plugin_help => "Privately recaps up to " . MAX_BACKLOG
 						 . " lines of chat backlog. The default is to recap " .
 						 STD_BACKLOG . " lines or from the point the user " .

[SimBot-commits] CVS: simbot/plugins dice.pl,1.21,1.22

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15724

Modified Files:
	dice.pl 
Log Message:
testing mail

Index: dice.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/dice.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -p -r1.21 -r1.22
--- dice.pl	4 May 2005 20:39:05 -0000	1.21
+++ dice.pl	4 May 2005 20:56:24 -0000	1.22
@@ -13,7 +13,7 @@
 #   This program is free software; you can redistribute and/or modify it
 #   under the terms of version 2 of the GNU General Public License as
 #   published by the Free Software Foundation.
-#   
+#
 #   This program is distributed in the hope that it will be useful,
 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

[SimBot-commits] CVS: simbot/plugins info.pl,1.40,1.41

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot/plugins
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15081/plugins

Modified Files:
	info.pl 
Log Message:
Updated info.pl's help.


Index: info.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/plugins/info.pl,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -p -r1.40 -r1.41
--- info.pl	4 May 2005 19:50:12 -0000	1.40
+++ info.pl	4 May 2005 20:54:13 -0000	1.41
@@ -506,9 +506,9 @@ sub munge_pronouns {
     if($person_being_referenced) {
         # you're, you are   -> $person_being_referenced is
         $content =~ s/\b(you\'re|you are)/${person_being_referenced} is/ig;
-        
+        #'
         # your              -> $person_being_referenced's
-        $content =~ s/\byour/${person_being_referenced}\'s/ig;
+        $content =~ s/\byour/${person_being_referenced}\'s/ig; #'
     }
     
     return $content;
@@ -554,7 +554,15 @@ sub normalize_urls {
 
 &SimBot::plugin_register(
     plugin_id   => 'info',
-    plugin_help => 'Tells you what simbot has learned about something.',
+    plugin_params => '(<key> [is [also] <fact>] | list <key>)',
+    plugin_help     => <<EOT,
+If only <key> is specified, a random associated fact will be returned.
+If <key> is <fact> is specified, <fact> will be stored under <key>, unless
+  <key> already exists. Use 'is also' to add facts to existing keys.
+If list <key> is specified, all associated facts will be returned.
+The truthfulness of any stored facts is not guaranteed.
+EOT
+
     event_plugin_call   => sub {}, # Do nothing.
     event_plugin_load   => \&messup_info,
     event_plugin_unload => \&cleanup_info,