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:
6b9c5e3
)
Switch to home_timeline, update retweet command
author
Dan Boger
<zigdon@irc.peeron.com>
Thu, 26 Nov 2009 17:26:08 +0000
(09:26 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Thu, 26 Nov 2009 17:26:08 +0000
(09:26 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 5ab53c1bc2f5ba2681dd5ef517c2f4adf4fcc72e..62f2c02aacc4edea3bd225c5b4be92d3ec29f23e 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,7
+11,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "2.3.
1beta
";
+$VERSION = "2.3.
3
";
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-175,25
+175,29
@@
sub cmd_retweet_as {
}
$text =~ s/\$t/$id_map{__tweets}{ lc $nick }[$id]/;
}
$text =~ s/\$t/$id_map{__tweets}{ lc $nick }[$id]/;
+ my $modified = $data;
$data = &shorten($text);
return if &too_long($data);
my $success = 1;
eval {
$data = &shorten($text);
return if &too_long($data);
my $success = 1;
eval {
- unless (
- $twits{$username}->update(
+ if ($modified) {
+ $
success = $
twits{$username}->update(
{
status => $data,
# in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
)
{
status => $data,
# in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
)
- )
- {
- ¬ice("Update failed");
- $success = 0;
+ } else {
+ $success = $twits{$username}->retweet(
+ {
+ id => $id_map{ lc $nick }[$id]
+ }
+ )
}
}
+ ¬ice("Update failed") unless $success;
};
return unless $success;
};
return unless $success;
@@
-513,6
+517,7
@@
sub cmd_login {
and $twit->can('ua') )
{
$twit->ua->timeout($timeout);
and $twit->can('ua') )
{
$twit->ua->timeout($timeout);
+ ¬ice("Twitter timeout set to $timeout");
}
unless ( $twit->verify_credentials() ) {
}
unless ( $twit->verify_credentials() ) {
@@
-935,14
+940,14
@@
sub do_updates {
eval {
if ( $id_map{__last_id}{$username}{timeline} )
{
eval {
if ( $id_map{__last_id}{$username}{timeline} )
{
- $tweets = $obj->
friends
_timeline( { count => 100 } );
+ $tweets = $obj->
home
_timeline( { count => 100 } );
} else {
} else {
- $tweets = $obj->
friends
_timeline();
+ $tweets = $obj->
home
_timeline();
}
};
if ($@) {
}
};
if ($@) {
- print $fh "type:debug Error during
friends
_timeline call: Aborted.\n";
+ print $fh "type:debug Error during
home
_timeline call: Aborted.\n";
print $fh "type:debug : $_\n" foreach split /\n/, Dumper($@);
return undef;
}
print $fh "type:debug : $_\n" foreach split /\n/, Dumper($@);
return undef;
}
@@
-953,12
+958,12
@@
sub do_updates {
eval { $error = JSON::Any->jsonToObj( $obj->get_error() ) };
unless ($@) { $error = $obj->get_error() }
print $fh
eval { $error = JSON::Any->jsonToObj( $obj->get_error() ) };
unless ($@) { $error = $obj->get_error() }
print $fh
- "type:debug API Error during
friends
_timeline call: Aborted\n";
+ "type:debug API Error during
home
_timeline call: Aborted\n";
print $fh "type:debug : $_\n" foreach split /\n/, Dumper($error);
} else {
print $fh
print $fh "type:debug : $_\n" foreach split /\n/, Dumper($error);
} else {
print $fh
- "type:debug API Error during
friends
_timeline call. Aborted.\n";
+ "type:debug API Error during
home
_timeline call. Aborted.\n";
}
return undef;
}
}
return undef;
}
@@
-1602,7
+1607,7
@@
sub hilight {
if ( Irssi::settings_get_str("twirssi_nick_color") ) {
my $c = Irssi::settings_get_str("twirssi_nick_color");
$c = $irssi_to_mirc_colors{$c};
if ( Irssi::settings_get_str("twirssi_nick_color") ) {
my $c = Irssi::settings_get_str("twirssi_nick_color");
$c = $irssi_to_mirc_colors{$c};
- $text =~ s/(^|\W)\@(
[-\w]
+)/$1\cC$c\@$2\cO/g if $c;
+ $text =~ s/(^|\W)\@(
\w
+)/$1\cC$c\@$2\cO/g if $c;
}
if ( Irssi::settings_get_str("twirssi_topic_color") ) {
my $c = Irssi::settings_get_str("twirssi_topic_color");
}
if ( Irssi::settings_get_str("twirssi_topic_color") ) {
my $c = Irssi::settings_get_str("twirssi_topic_color");