projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3e6f337
)
1.6.1 - r335 - Ignore case in /reply commands, ignore most chars too while we're...
author
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:51:06 +0000
(12:51 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:51:06 +0000
(12:51 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 0805eab86a9a041878894f0366aa3c38d2d16e25..a147335df4f5250b02d84c0718450df3d8902661 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,8
+11,8
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "1.6";
-my ($REV) = '$Rev: 33
4
$' =~ /(\d+)/;
+$VERSION = "1.6
.1
";
+my ($REV) = '$Rev: 33
5
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-216,6
+216,7
@@
sub cmd_reply_as {
}
my $nick;
}
my $nick;
+ $id =~ s/[^\w\d\-:]+//g;
( $nick, $id ) = split /:/, $id;
unless ( exists $id_map{$nick} ) {
¬ice("Can't find a tweet from $nick to reply to!");
( $nick, $id ) = split /:/, $id;
unless ( exists $id_map{$nick} ) {
¬ice("Can't find a tweet from $nick to reply to!");
@@
-223,7
+224,7
@@
sub cmd_reply_as {
}
$id = $id_map{__indexes}{$nick} unless $id;
}
$id = $id_map{__indexes}{$nick} unless $id;
- unless ( $id_map{$nick}[$id] ) {
+ unless ( $id_map{
lc
$nick}[$id] ) {
¬ice("Can't find a tweet numbered $id from $nick to reply to!");
return;
}
¬ice("Can't find a tweet numbered $id from $nick to reply to!");
return;
}
@@
-249,7
+250,7
@@
sub cmd_reply_as {
unless (
$twits{$username}->update(
unless (
$twits{$username}->update(
- { status => $data, in_reply_to_status_id => $id_map{$nick}[$id] }
+ { status => $data, in_reply_to_status_id => $id_map{
lc
$nick}[$id] }
)
)
{
)
)
{
@@
-695,7
+696,7
@@
sub monitor_child {
and $meta{id} )
{
$marker = ( $id_map{__indexes}{ $meta{nick} } + 1 ) % 100;
and $meta{id} )
{
$marker = ( $id_map{__indexes}{ $meta{nick} } + 1 ) % 100;
- $id_map{ $meta{nick} }[$marker] = $meta{id};
+ $id_map{
lc
$meta{nick} }[$marker] = $meta{id};
$id_map{__indexes}{ $meta{nick} } = $marker;
$marker = ":$marker";
}
$id_map{__indexes}{ $meta{nick} } = $marker;
$marker = ":$marker";
}
@@
-766,8
+767,7
@@
sub sig_complete {
and $linestart =~ /^\/reply(?:_as)?\s*$/ )
)
{ # /twitter_reply gets a nick:num
and $linestart =~ /^\/reply(?:_as)?\s*$/ )
)
{ # /twitter_reply gets a nick:num
- @$complist = grep { $_ ne "__indexes" } grep /^\Q$word/i,
- sort keys %id_map;
+ @$complist = grep /^\Q$word/i, sort keys %{$id_map{__indexes}};
}
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first
}
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first