From: Brian S. Stephan Date: Thu, 22 Jan 2009 14:07:11 +0000 (-0600) Subject: print lines at levels appropriate to the tweet. notably, this logs DMs at MSGLEVEL_MS... X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/d4c8bc60abe49b701daf33a080957e014f9cef00 print lines at levels appropriate to the tweet. notably, this logs DMs at MSGLEVEL_MSGS, which results in a highlight in the activity bar for most irssi configurations --- diff --git a/twirssi.pl b/twirssi.pl index acb469c..e575b07 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -734,11 +734,11 @@ sub monitor_child { } if ( $meta{type} eq 'tweet' ) { - push @lines, [$meta{type}, $account, $meta{nick}, $marker, $_]; + push @lines, [MSGLEVEL_PUBLIC, $meta{type}, $account, $meta{nick}, $marker, $_]; } elsif ( $meta{type} eq 'reply' ) { - push @lines, [$meta{type}, $account, $meta{nick}, $marker, $_]; + push @lines, [MSGLEVEL_PUBLIC, $meta{type}, $account, $meta{nick}, $marker, $_]; } elsif ( $meta{type} eq 'dm' ) { - push @lines, [$meta{type}, $account, $meta{nick}, $_]; + push @lines, [MSGLEVEL_MSGS, $meta{type}, $account, $meta{nick}, $_]; } elsif ( $meta{type} eq 'error' ) { $window->print("ERROR: $_", MSGLEVEL_PUBLIC); } elsif ( $meta{type} eq 'debug' ) { @@ -761,8 +761,8 @@ sub monitor_child { if ($new_last_poll) { print "new last_poll = $new_last_poll" if &debug; for my $line ( @lines ) { - $window->printformat(MSGLEVEL_PUBLIC, "twirssi_".@$line[0], - @$line[1,2,3,4]); + $window->printformat(@$line[0], "twirssi_".@$line[1], + @$line[2,3,4,5]); } close FILE;