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:
a17c2c8
)
r676 - perltidy. Also, give an error if we failed to save a beta download.
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 22 Jul 2009 18:06:13 +0000
(11:06 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 22 Jul 2009 18:06:13 +0000
(11:06 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 3496cfcdd9a623be6b4ad63a4f2304758d3df956..68dfac8d6c3fb2aea85e79d58e4cccb41a85bd34 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-12,7
+12,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.2.5beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.2.5beta";
-my ($REV) = '$Rev: 67
5
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 67
6
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-21,7
+21,7
@@
my ($REV) = '$Rev: 675 $' =~ /(\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-07-22 1
0:06:58
-0700 (Wed, 22 Jul 2009) $',
+ changed => '$Date: 2009-07-22 1
1:05:52
-0700 (Wed, 22 Jul 2009) $',
);
my $window;
);
my $window;
@@
-183,7
+183,8
@@
sub cmd_retweet_as {
unless (
$twits{$username}->update(
{
unless (
$twits{$username}->update(
{
- status => $data,
+ status => $data,
+
# in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
)
# in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
)
@@
-663,10
+664,17
@@
sub cmd_upgrade {
¬ice("Downloading twirssi from $URL");
LWP::Simple::getstore( $URL, "$loc.upgrade" );
¬ice("Downloading twirssi from $URL");
LWP::Simple::getstore( $URL, "$loc.upgrade" );
+ unless ( -s "$loc.upgrade" ) {
+ ¬ice("Failed to save $loc.upgrade."
+ . " Check that /set twirssi_location is set to the correct location."
+ );
+ return;
+ }
+
unless ( $data or Irssi::settings_get_bool("twirssi_upgrade_beta") ) {
unless ( open( NEW, "$loc.upgrade" ) ) {
unless ( $data or Irssi::settings_get_bool("twirssi_upgrade_beta") ) {
unless ( open( NEW, "$loc.upgrade" ) ) {
- ¬ice(
-
"Failed to read $loc.upgrade.
Check that /set twirssi_location is set to the correct location."
+ ¬ice(
"Failed to read $loc.upgrade."
+
. "
Check that /set twirssi_location is set to the correct location."
);
return;
}
);
return;
}
@@
-759,7
+767,8
@@
sub get_updates {
my $pid = fork();
if ($pid) { # parent
my $pid = fork();
if ($pid) { # parent
- Irssi::timeout_add_once( 5000, 'monitor_child', [ "$filename.done", 0 ] );
+ Irssi::timeout_add_once( 5000, 'monitor_child',
+ [ "$filename.done", 0 ] );
Irssi::pidwait_add($pid);
} elsif ( defined $pid ) { # child
close STDIN;
Irssi::pidwait_add($pid);
} elsif ( defined $pid ) { # child
close STDIN;
@@
-1169,8
+1178,8
@@
sub monitor_child {
$window->printformat(
$line->[0],
"twirssi_" . $line->[1],
$window->printformat(
$line->[0],
"twirssi_" . $line->[1],
- @$line[ 2 .. $#$line
-
1 ],
- &hilight(
$line->[-1]
)
+ @$line[ 2 .. $#$line
-
1 ],
+ &hilight(
$line->[-1]
)
);
}
}
);
}
}