Permalink
Browse files

Change the IRC colors for "finished" and "unrared" to make them unique

  • Loading branch information...
1 parent 2c3ae74 commit 0d18b2f2f15b79963e266738a2f585131567ca35 @hinrik hinrik committed Sep 11, 2010
Showing with 4 additions and 3 deletions.
  1. +1 −0 Changes
  2. +3 −3 lib/POE/Component/IRC/Plugin/RTorrentStatus.pm
View
1 Changes
@@ -1,4 +1,5 @@
{{$NEXT}}
+ - Change the IRC colors for "finished" and "unrared" to make them unique
0.08 Thu Sep 9 06:35:57 GMT 2010
- Mention App::Pocoirc in the SYNOPSIS
View
6 lib/POE/Component/IRC/Plugin/RTorrentStatus.pm
@@ -8,7 +8,7 @@ use DateTime::Format::Human::Duration;
use File::Basename qw(fileparse);
use Format::Human::Bytes;
use POE::Component::IRC::Plugin qw(PCI_EAT_NONE);
-use POE::Component::IRC::Common qw(NORMAL DARK_GREEN DARK_BLUE ORANGE TEAL BROWN);
+use POE::Component::IRC::Common qw(NORMAL DARK_GREEN DARK_BLUE ORANGE TEAL BROWN PURPLE MAGENTA);
use POE::Component::IRC::Plugin::FollowTail;
sub new {
@@ -104,7 +104,7 @@ sub _finished_torrent {
my $duration = _duration($hash_started, $hash_done);
my $msg = $self->{Color}
- ? DARK_GREEN.'Hashed: '.ORANGE.$name.NORMAL." in $duration"
+ ? PURPLE.'Hashed: '.ORANGE.$name.NORMAL." in $duration"
: "Hashed: $name in $duration";
if ($rars > 0) {
@@ -123,7 +123,7 @@ sub _unrar_torrent {
my $info = defined $file ? $file : "$rars $archives";
my $msg = $self->{Color}
- ? TEAL.'Unrared: '.ORANGE.$name.NORMAL." in $duration ($info)"
+ ? MAGENTA.'Unrared: '.ORANGE.$name.NORMAL." in $duration ($info)"
: "Unrared: $name in $duration ($info)";
return $msg;

0 comments on commit 0d18b2f

Please sign in to comment.