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:
6d1d1ce
)
r499 - Reduce some warnings to CLIENTCRAP - based on patch from mwalling
author
Dan Boger
<zigdon@irc.peeron.com>
Mon, 2 Mar 2009 20:52:30 +0000
(12:52 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Mon, 2 Mar 2009 20:52:30 +0000
(12:52 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 23f9646b04a7f8d4f742672c9e9f17c3f6432c9e..2e73470285828c7cc53ce1b27086a48adb77cb8c 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-12,7
+12,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.2beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.2beta";
-my ($REV) = '$Rev: 49
7
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 49
9
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-21,7
+21,7
@@
my ($REV) = '$Rev: 497 $' =~ /(\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-0
2-28 11:24:31 -0800 (Sat, 28 Feb
2009) $',
+ changed => '$Date: 2009-0
3-02 12:51:50 -0800 (Mon, 02 Mar
2009) $',
);
my $window;
);
my $window;
@@
-1002,7
+1002,7
@@
sub monitor_child {
print JSON JSON::Any->objToJson( \%id_map );
close JSON;
} else {
print JSON JSON::Any->objToJson( \%id_map );
close JSON;
} else {
- &
notice
("Failed to write replies to $file: $!");
+ &
ccrap
("Failed to write replies to $file: $!");
}
}
$failwhale = 0;
}
}
$failwhale = 0;
@@
-1041,11
+1041,11
@@
sub monitor_child {
q{ '--/_.'----'`}
)
{
q{ '--/_.'----'`}
)
{
- &
notice
($whale);
+ &
ccrap
($whale);
}
$failwhale = 1;
}
}
$failwhale = 1;
}
- &
notice
("Haven't been able to get updated tweets since $since");
+ &
ccrap
("Haven't been able to get updated tweets since $since");
}
}
}
}
@@
-1057,6
+1057,10
@@
sub notice {
$window->print( "%R***%n @_", MSGLEVEL_PUBLIC );
}
$window->print( "%R***%n @_", MSGLEVEL_PUBLIC );
}
+sub ccrap {
+ $window->print( "%R***%n @_", MSGLEVEL_CLIENTCRAP );
+}
+
sub update_away {
my $data = shift;
sub update_away {
my $data = shift;
@@
-1070,7
+1074,7
@@
sub update_away {
$server->send_raw("away :$data");
return 1;
} else {
$server->send_raw("away :$data");
return 1;
} else {
- &
notice
( "Can't find bitlbee server.",
+ &
ccrap
( "Can't find bitlbee server.",
"Update bitlbee_server or disable tweet_to_away" );
return 0;
}
"Update bitlbee_server or disable tweet_to_away" );
return 0;
}