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:
76043c1
)
1.5.3 - r331 - Add reporting for added/removed friends. Change how tab-complete...
author
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:50:19 +0000
(12:50 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:50:19 +0000
(12:50 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index e1c46acb93d063223ba07f2946a0abaebec87d48..fe9db3e296ac05b3ff6e71c6811c984c87d70a35 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.5.
2
";
-my ($REV) = '$Rev: 3
26
$' =~ /(\d+)/;
+$VERSION = "1.5.
3
";
+my ($REV) = '$Rev: 3
31
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-406,14
+406,20
@@
sub load_friends {
$friends = $twit->friends( page => $page );
}
$friends = $twit->friends( page => $page );
}
+ my ($added, $removed) = (0, 0);
foreach ( keys %new_friends ) {
next if exists $friends{$_};
$friends{$_} = time;
foreach ( keys %new_friends ) {
next if exists $friends{$_};
$friends{$_} = time;
+ $added++;
}
foreach ( keys %friends ) {
}
foreach ( keys %friends ) {
- delete $friends{$_} unless exists $new_friends{$_};
+ next if exists $new_friends{$_};
+ delete $friends{$_};
+ $removed++;
}
}
+
+ return ($added, $removed);
}
sub get_updates {
}
sub get_updates {
@@
-451,8
+457,13
@@
sub get_updates {
&do_updates( $fh, $_, $twits{$_} );
}
&do_updates( $fh, $_, $twits{$_} );
}
+ my ($added, $removed) = &load_friends;
+ if ($added + $removed) {
+ print $fh "%R***%n Friends list updated: ",
+ join(", ", sprintf("%d added", $added),
+ sprintf("%d removed", $removed)), "\n";
+ }
print $fh "__friends__\n";
print $fh "__friends__\n";
- &load_friends;
foreach ( sort keys %friends ) {
print $fh "$_ $friends{$_}\n";
}
foreach ( sort keys %friends ) {
print $fh "$_ $friends{$_}\n";
}
@@
-609,10
+620,11
@@
sub sig_complete {
my ( $complist, $window, $word, $linestart, $want_space ) = @_;
return unless $linestart =~ /^\/(?:tweet|dm)/;
my ( $complist, $window, $word, $linestart, $want_space ) = @_;
return unless $linestart =~ /^\/(?:tweet|dm)/;
- return if $linestart eq '/tweet' and $word !~ s/^@//;
+ my $prefix = $word =~ s/^@//;
+ $prefix = 0 if $linestart eq '/dm' or $linestart eq '/dm_as';
push @$complist, grep /^\Q$word/i,
sort { $nicks{$b} <=> $nicks{$a} } keys %nicks;
push @$complist, grep /^\Q$word/i,
sort { $nicks{$b} <=> $nicks{$a} } keys %nicks;
- @$complist = map { "\@$_" } @$complist if $
linestart eq '/tweet'
;
+ @$complist = map { "\@$_" } @$complist if $
prefix
;
}
Irssi::settings_add_str( "twirssi", "twitter_window", "twitter" );
}
Irssi::settings_add_str( "twirssi", "twitter_window", "twitter" );