use vars qw($VERSION %IRSSI);
-$VERSION = "2.0.1";
-my ($REV) = '$Rev: 449 $' =~ /(\d+)/;
+$VERSION = "2.0.2";
+my ($REV) = '$Rev: 454 $' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
- changed => '$Date: 2009-02-02 09:49:45 -0800 (Mon, 02 Feb 2009) $',
+ changed => '$Date: 2009-02-04 13:35:29 -0800 (Wed, 04 Feb 2009) $',
);
my $window;
return;
}
- # remove any @nick at the beginning of the reply, as we'll add it anyway
- $data =~ s/^\s*\@?$nick\s*//;
- $data = "\@$nick " . $data;
+ if ( Irssi::settings_get_bool("twirssi_replies_autonick") ) {
+
+ # remove any @nick at the beginning of the reply, as we'll add it anyway
+ $data =~ s/^\s*\@?$nick\s*//;
+ $data = "\@$nick " . $data;
+ }
if ( Irssi::settings_get_str("short_url_provider") ) {
foreach my $url ( $data =~ /(https?:\/\/\S+[\w\/])/g ) {
$data = $user unless $data;
return unless &valid_username($data);
- if ($data) {
- ¬ice("Logging out $data...");
- $twits{$data}->end_session();
- delete $twits{$data};
+ ¬ice("Logging out $data...");
+ $twits{$data}->end_session();
+ delete $twits{$data};
+ undef $twit;
+ if ( keys %twits ) {
+ &cmd_switch( ( keys %twits )[0], $server, $win );
} else {
- ¬ice("Logging out $user...");
- $twit->end_session();
- undef $twit;
- delete $twits{$user};
- if ( keys %twits ) {
- &cmd_switch( ( keys %twits )[0], $server, $win );
- } else {
- Irssi::timeout_remove($poll) if $poll;
- undef $poll;
- }
+ Irssi::timeout_remove($poll) if $poll;
+ undef $poll;
}
}
}
}
- next if exists $meta{id} and exists $tweet_cache{ $meta{id} };
- $tweet_cache{ $meta{id} } = time;
+ if (not $meta{type} or $meta{type} ne 'searchid') {
+ next if exists $meta{id} and exists $tweet_cache{ $meta{id} };
+ $tweet_cache{ $meta{id} } = time;
+ }
+
my $account = "";
if ( $meta{account} ne $user ) {
$account = "$meta{account}: ";
my $hilight_color =
$irssi_to_mirc_colors{ Irssi::settings_get_str("hilight_color") };
- if ( $_ =~ /\@$meta{account}\W/i ) {
+ if ( ($_ =~ /\@$meta{account}\W/i) && Irssi::settings_get_bool("twirssi_hilights") ) {
$meta{nick} = "\cC$hilight_color$meta{nick}\cO";
$hilight = MSGLEVEL_HILIGHT;
}
$meta{type}, $account, $meta{topic},
$meta{nick}, $marker, $_
];
+ if ( $meta{id} >
+ $id_map{__searches}{ $meta{account} }{ $meta{topic} } )
+ {
+ $id_map{__searches}{ $meta{account} }{ $meta{topic} } =
+ $meta{id};
+ }
} elsif ( $meta{type} eq 'dm' ) {
push @lines,
[
$meta{type}, $account, $meta{nick}, $_
];
} elsif ( $meta{type} eq 'searchid' ) {
- print "Search '$meta{topic}' returned id $meta{id}";
+ print "Search '$meta{topic}' returned id $meta{id}" if &debug;
if ( $meta{id} >=
$id_map{__searches}{ $meta{account} }{ $meta{topic} } )
{
$id_map{__searches}{ $meta{account} }{ $meta{topic} } =
$meta{id};
- } else {
+ } elsif (&debug) {
print "Search '$meta{topic}' returned invalid id $meta{id}";
}
- print "Search '$meta{topic}' id set to $meta{id}" if &debug;
} elsif ( $meta{type} eq 'error' ) {
push @lines, [ MSGLEVEL_MSGS, $_ ];
} elsif ( $meta{type} eq 'debug' ) {
Irssi::settings_add_bool( "twirssi", "twirssi_debug", 0 );
Irssi::settings_add_bool( "twirssi", "twirssi_first_run", 1 );
Irssi::settings_add_bool( "twirssi", "twirssi_track_replies", 1 );
+Irssi::settings_add_bool( "twirssi", "twirssi_replies_autonick", 1 );
Irssi::settings_add_bool( "twirssi", "twirssi_use_reply_aliases", 0 );
+Irssi::settings_add_bool( "twirssi", "twirssi_hilights", 1 );
Irssi::settings_add_bool( "twirssi", "tweet_window_input", 0 );
$last_poll = time - &get_poll_time;