projects
/
twirssi-net-twitter-lite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r614 - Fix searches, thanks to @Olatho finding a bug. Note that existing searches...
[twirssi-net-twitter-lite.git]
/
twirssi.pl
diff --git
a/twirssi.pl
b/twirssi.pl
index 2375ba9b0504299f51079c357904c6b5d900155b..466486bcff0cadb689c74377af70fd1bcc8cd0f3 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-10,8
+10,8
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "2.2.
1
beta";
-my ($REV) = '$Rev: 6
07
$' =~ /(\d+)/;
+$VERSION = "2.2.
2
beta";
+my ($REV) = '$Rev: 6
14
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-20,7
+20,7
@@
my ($REV) = '$Rev: 607 $' =~ /(\d+)/;
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
- changed => '$Date: 2009-04-
09 21:22:55 -0700 (Thu, 09
Apr 2009) $',
+ changed => '$Date: 2009-04-
20 20:24:00 -0700 (Mon, 20
Apr 2009) $',
);
my $window;
);
my $window;
@@
-552,12
+552,12
@@
sub cmd_add_search {
return;
}
return;
}
- if ( exists $id_map{__searches}{
$user
}{$data} ) {
+ if ( exists $id_map{__searches}{
"$user\@$defservice"
}{$data} ) {
¬ice("Already had a subscription for '$data'");
return;
}
¬ice("Already had a subscription for '$data'");
return;
}
- $id_map{__searches}{
$user
}{$data} = 1;
+ $id_map{__searches}{
"$user\@$defservice"
}{$data} = 1;
¬ice("Added subscription for '$data'");
}
¬ice("Added subscription for '$data'");
}
@@
-577,12
+577,12
@@
sub cmd_del_search {
return;
}
return;
}
- unless ( exists $id_map{__searches}{
$user
}{$data} ) {
+ unless ( exists $id_map{__searches}{
"$user\@$defservice"
}{$data} ) {
¬ice("No subscription found for '$data'");
return;
}
¬ice("No subscription found for '$data'");
return;
}
- delete $id_map{__searches}{
$user
}{$data};
+ delete $id_map{__searches}{
"$user\@$defservice"
}{$data};
¬ice("Removed subscription for '$data'");
}
¬ice("Removed subscription for '$data'");
}
@@
-810,8
+810,7
@@
sub do_updates {
eval {
if ( $id_map{__last_id}{$username}{timeline} )
{
eval {
if ( $id_map{__last_id}{$username}{timeline} )
{
- $tweets = $obj->friends_timeline(
- { since_id => $id_map{__last_id}{$username}{timeline} } );
+ $tweets = $obj->friends_timeline( { count => 100 } );
} else {
$tweets = $obj->friends_timeline();
}
} else {
$tweets = $obj->friends_timeline();
}
@@
-1311,6
+1310,13
@@
sub sig_complete {
keys %{ $id_map{__indexes} };
}
keys %{ $id_map{__indexes} };
}
+ if ( $linestart =~ /^\/twitter_unfriend\s*$/ )
+ { # /twitter_unfriend gets a nick
+ $word =~ s/^@//;
+ push @$complist, grep /^\Q$word/i,
+ sort { $nicks{$b} <=> $nicks{$a} } keys %nicks;
+ }
+
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first
# arg to dm)
if ( $linestart =~ /^\/(?:tweet|dm)/ ) {
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first
# arg to dm)
if ( $linestart =~ /^\/(?:tweet|dm)/ ) {