From dfe9965de98427d26259060233ac3d36d176ed66 Mon Sep 17 00:00:00 2001 From: Johannes Löthberg Date: Sat, 3 Jun 2017 01:45:10 +0200 Subject: mutt/tiny.pl: use curl instead of wget MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit curl will already be installed on all my systems since pacman uses libcurl. Signed-off-by: Johannes Löthberg --- mutt/tiny.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mutt/tiny.pl') diff --git a/mutt/tiny.pl b/mutt/tiny.pl index b157372..e33c472 100755 --- a/mutt/tiny.pl +++ b/mutt/tiny.pl @@ -33,12 +33,12 @@ while (my $line = shift @text) { my $alarm = 5; alarm $alarm; my $link = uri_escape($link); - $tinyurl=`wget -q -O - http://tinyurl.com/api-create.php?url=$link`; + $tinyurl=`curl -s http://tinyurl.com/api-create.php?url=$link`; alarm 0; }; if ($@) { - $line =~ s/(\w+:\/\/\S+)/$link (wget TimeOut)/; } + $line =~ s/(\w+:\/\/\S+)/$link (curl TimeOut)/; } else { $line =~ s/(\w+:\/\/\S+)/$tinyurl\n\t[>> $link <<]/; } } } -- cgit v1.2.3-70-g09d2