diff options
-rw-r--r-- | README.md | 12 | ||||
-rwxr-xr-x | svgcaptcha-parser | 6 |
2 files changed, 4 insertions, 14 deletions
@@ -9,16 +9,6 @@ This targets a very small subset of all possible types of SVG captchas. Dependencies ------------ -* curl +* HTTP::Tiny * XML::Simple -Invocation ----------- -Example: - - $ ./svgcaptcha-parser - Saved 3f45kx9.svg - $ ls *.svg - 3f45kx9.svg - $ - 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"}; |