Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 18:45:42 -04:00
Code Issues Releases Wiki Activity

committing the changes for >

Browse source
This commit is contained in:
ryan 2010-01-12 15:21:15 -05:00
parent 9b2996b532
commit 7f0e743c93
2 changed files with 133 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lib/Bot/BB3/Roles/IRC.pm
View file

@ -289,9 +289,19 @@ sub _said {
}
#--------------------------
# Check for our own name
# Check for forwarded message
#--------------------------
$said->{body} = $said->{body_raw};
if ($said->{body} =~ s/\s*>\s*\b([^>]+)\s*$//)
{
#we have a forwarded message
$said->{forwarding} = $1;
}
#--------------------------
# Check for our own name
#--------------------------
if( $said->{my_name} ) { #TODO verify that we need this if check.
my $body = $said->{body_raw};
@ -505,6 +515,21 @@ sub channel_list {
sub plugin_output {
my( $self, $said, $text ) = @_[OBJECT,ARG0,ARG1];
#this forwards messages to priv_msg for users
if (exists($said->{forwarding}) && defined($said->{forwarding}) && ($said->{forwarding} =~ /\S/))
{
my $copy = {%$said}; #make a shallow copy of $said
delete $copy->{forwarding};
$copy->{channel} = "*irc_msg";
$copy->{name} = $said->{forwarding};
my $newtext = $said->{name} . " wanted you to know: ". $text;
$_[KERNEL]->yield(plugin_output => $copy, $newtext);
$said->{channel} = "*irc_msg";
delete $said->{forwarding};
$_[KERNEL]->yield(plugin_output => $said, "Told ".$copy->{name}." about ".$text);
return;
}
utf8::decode( $text );
return unless $text =~ /\S/;

106
need Normal file
View file

@ -0,0 +1,106 @@
AutoLoader
B::Deparse
BSD::Resource
Bot::BB3
Bot::BB3::ConfigParser
Bot::BB3::Logger
Bot::BB3::MacroQuote
Bot::BB3::PluginConfigParser
Bot::BB3::PluginManager
Bot::BB3::PluginWrapper
CGI
Carp
Carp::Heavy
Config::General
DBD::SQLite
DBI
Data::Dumper
Date::Manip
DateTime
DateTimeX::Easy
Encode
EvalServer
ExtUtils::Constant
ExtUtils::MakeMaker
File::Glob
File::Listing
Finance::Currency::Convert::XE
Geo::IATA
Geo::IP
Geo::WeatherNWS
Getopt::Long
Getopt::Std
HTML::Entities
HTML::TreeBuilder
HTTP::Status
IMDB
IO::Socket::INET
JavaScript::SpiderMonkey
LWP::Simple
LWP::UserAgent
Language::K20
List::AllUtils
List::MoreUtils
List::Util
Log::Log4perl
Math::Farnsworth::Dimension
Math::Farnsworth::Error
Math::Farnsworth::Evaluate
Math::Farnsworth::FunctionDispatch
Math::Farnsworth::Output
Math::Farnsworth::Parser
Math::Farnsworth::Units
Math::Farnsworth::Value
Math::Farnsworth::Value::Array
Math::Farnsworth::Value::Boolean
Math::Farnsworth::Value::Date
Math::Farnsworth::Value::Lambda
Math::Farnsworth::Value::Pari
Math::Farnsworth::Value::String
Math::Farnsworth::Value::Undef
Math::Farnsworth::Variables
Math::Pari
Memoize
Module::CoreList
MyModule::Somewhere
Net::DNS
Net::FTP
POE
POE::Component::IRC::Common
POE::Component::IRC::Plugin::AutoJoin
POE::Component::IRC::Plugin::Connector
POE::Component::IRC::Plugin::NickReclaim
POE::Component::IRC::State
POE::Component::Server::SimpleHTTP
POE::Filter::Line
POE::Filter::Reference
POE::Filter::Stream
POE::Session
POE::Wheel::ReadWrite
POE::Wheel::Run
POE::Wheel::SocketFactory
POSIX
Parse::RecDescent
PerlIO
PerlIO::scalar
REST::Google::Translate
Scalar::Util
Socket
Storable
Template
Term::ANSIColor
Term::ReadLine
Test
Test::More
Text::Aspell
Text::Glob
Text::Soundex
Tie::Hash::NamedCapture
URI
URI::Escape
URI::URL
Unicode::UCD
WWW::RottenTomatoes
WWW::Shorten
Weather::Underground
XML::RSS::Parser