diff options
Diffstat (limited to 'svgcaptcha-parser')
-rwxr-xr-x | svgcaptcha-parser | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/svgcaptcha-parser b/svgcaptcha-parser index af98720..fd65c8d 100755 --- a/svgcaptcha-parser +++ b/svgcaptcha-parser @@ -4,11 +4,11 @@ use strict; use warnings; use XML::Simple; - +use HTTP::Tiny; # Fetch fresh svg and parse it -die("Failed to download new svg: $!\n") unless my $raw_svg = `curl -s http://svgcaptcha.com/captcha.php`; - +my $response = HTTP::Tiny->new->get('http://svgcaptcha.com/captcha.php') or die("Failed to download new SVG: $!\n"); +my $raw_svg = $response->{content}; my $svg = XMLin($raw_svg, KeyAttr => {"text", "x"})->{"text"}; |