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:
62cf981
)
1.7.1 - r345 - Fix typos, bug in /reply case insensitivity. v1.7.1
author
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:52:18 +0000
(12:52 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:52:18 +0000
(12:52 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index b049e6f77433f90b45d279f724febc2db8c16773..6e6b8a500257507bd6358d55ac26c021f24f4f87 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.7";
-my ($REV) = '$Rev: 34
4
$' =~ /(\d+)/;
+$VERSION = "1.7
.1
";
+my ($REV) = '$Rev: 34
5
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-21,7
+21,7
@@
my ($REV) = '$Rev: 344 $' =~ /(\d+)/;
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://tinyurl.com/twirssi',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://tinyurl.com/twirssi',
- changed => '$Date: 2009-01-0
5 16:40:46 -0800 (Mon, 05
Jan 2009) $',
+ changed => '$Date: 2009-01-0
6 07:14:03 -0800 (Tue, 06
Jan 2009) $',
);
my $window;
);
my $window;
@@
-171,7
+171,7
@@
sub cmd_tweet_as {
$away = 1;
} else {
¬ice( "Can't find bitlbee server.",
$away = 1;
} else {
¬ice( "Can't find bitlbee server.",
- "Update bitlbee_server or disa
lb
e tweet_to_away" );
+ "Update bitlbee_server or disa
bl
e tweet_to_away" );
}
}
}
}
@@
-233,7
+233,7
@@
sub cmd_reply_as {
my $nick;
$id =~ s/[^\w\d\-:]+//g;
( $nick, $id ) = split /:/, $id;
my $nick;
$id =~ s/[^\w\d\-:]+//g;
( $nick, $id ) = split /:/, $id;
- unless ( exists $id_map{$nick} ) {
+ unless ( exists $id_map{
lc
$nick} ) {
¬ice("Can't find a tweet from $nick to reply to!");
return;
}
¬ice("Can't find a tweet from $nick to reply to!");
return;
}
@@
-783,7
+783,7
@@
sub monitor_child {
} elsif ( $meta{type} eq 'dm' ) {
push @lines, "[$account%B\@$meta{nick}%n (%WDM%n)] $_\n",;
} elsif ( $meta{type} eq 'error' ) {
} elsif ( $meta{type} eq 'dm' ) {
push @lines, "[$account%B\@$meta{nick}%n (%WDM%n)] $_\n",;
} elsif ( $meta{type} eq 'error' ) {
- push @lines, "
debug
: $_\n" if &debug,;
+ push @lines, "
error
: $_\n" if &debug,;
} elsif ( $meta{type} eq 'debug' ) {
push @lines, "debug: $_\n" if &debug,;
}
} elsif ( $meta{type} eq 'debug' ) {
push @lines, "debug: $_\n" if &debug,;
}