From cdf2bee81b33b8678c4cad9ca45f4f70b0a2d85f Mon Sep 17 00:00:00 2001 From: Guillermo Ramos Date: Tue, 18 Jan 2022 18:34:22 +0100 Subject: deefine: update endpoint and improve wording --- deefine.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/deefine.pl b/deefine.pl index 5c9be21..5a0007a 100755 --- a/deefine.pl +++ b/deefine.pl @@ -20,14 +20,15 @@ my $WORD = shift or die "Usage: $0 \n"; my $ua = LWP::UserAgent->new; $ua->agent("gramos's script for perlweeklychallenge.org"); -my $uri = "https://wordsapiv1.p.mashape.com/words/$WORD"; +my $uri = "https://wordsapiv1.p.rapidapi.com/words/$WORD"; my @headers = ("X-Mashape-Key", $WORDSAPI_KEY); my $response = $ua->request(HTTP::Request->new("GET", $uri, \@headers)); # Check for errors in API request if ($response->is_error()) { if ($response->code == 404) { - die "Word '$WORD' not found\n"; + printf "Sorry, word '$WORD' not found\n"; + exit; } else { die "Unknown error: " . $response->message; } -- cgit v1.2.3