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:
e12967f
)
r550 - Fix it so that the service doesn't have to be properly capitalized when using...
author
Dan Boger
<zigdon@irc.peeron.com>
Sat, 14 Mar 2009 21:11:21 +0000
(14:11 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Sat, 14 Mar 2009 21:11:21 +0000
(14:11 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 9d88cada991abfa6f96bc9a6b883fbd1dfd707db..8d5944c73ae976e1b268d7f5c045359de5de7eb1 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,7
+11,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.3beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.3beta";
-my ($REV) = '$Rev: 5
49
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 5
50
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-20,7
+20,7
@@
my ($REV) = '$Rev: 549 $' =~ /(\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-03-14 14:
06:07
-0700 (Sat, 14 Mar 2009) $',
+ changed => '$Date: 2009-03-14 14:
10:35
-0700 (Sat, 14 Mar 2009) $',
);
my $window;
);
my $window;
@@
-1272,7
+1272,9
@@
sub normalize_username {
my $user = shift;
my ( $username, $service ) = split /\@/, $user, 2;
my $user = shift;
my ( $username, $service ) = split /\@/, $user, 2;
- unless ($service) {
+ if ($service) {
+ $service = ucfirst lc $service;
+ } else {
$service =
ucfirst lc Irssi::settings_get_str("twirssi_default_service");
unless ( exists $twits{"$username\@$service"} ) {
$service =
ucfirst lc Irssi::settings_get_str("twirssi_default_service");
unless ( exists $twits{"$username\@$service"} ) {