dotfiles

My dotfiles, nothing really interesting to see ...
git clone https://git.onna.be/dotfiles.git
Log | Files | Refs | README

commit 06a19aaca934f218abeba2968ea9bbe5b053c592
parent 96251fd41586b6217610da00ee757ddde1da9914
Author: Paco Esteban <paco@onna.be>
Date:   Tue, 23 Oct 2018 09:23:28 +0200

pertidy

Diffstat:
bin/bin/rarbg.pl | 11+++++++----
1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/bin/bin/rarbg.pl b/bin/bin/rarbg.pl @@ -52,7 +52,7 @@ else { usage(); } -if (ref($result) eq 'ARRAY') { +if ( ref($result) eq 'ARRAY' ) { foreach my $t ( @{$result} ) { printf( "%d -> %s (%.2f GB # %d seeds)\n", @@ -61,9 +61,11 @@ if (ref($result) eq 'ARRAY') { ); $counter++; } -} elsif (ref($result) eq 'Rarbg::torrentapi::Error') { +} +elsif ( ref($result) eq 'Rarbg::torrentapi::Error' ) { die "[*] We got an error: $result->{error}"; -} else { +} +else { die "[*] Unexpected Error"; } @@ -73,7 +75,8 @@ chomp $selection; if ( $selection =~ m/\d{1,2}/ ) { say "[*] You selected: " . $result->[$selection]->title; - say " [-] sending magnet to transmission:\n" . $result->[$selection]->download; + say " [-] sending magnet to transmission:\n" + . $result->[$selection]->download; my $magnet = $result->[$selection]->download; `transmission-remote pippin.h.e1e0.net --authenv -a $magnet`; }