From d9613adba28e7c4dea982f81912c80fe1294adb4 Mon Sep 17 00:00:00 2001
From: David <dbphillipsnz@gmail.com>
Date: Mon, 24 Nov 2014 14:22:54 +1300
Subject: It works!

---
 svgcaptcha-parser | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 svgcaptcha-parser

diff --git a/svgcaptcha-parser b/svgcaptcha-parser
new file mode 100755
index 0000000..af98720
--- /dev/null
+++ b/svgcaptcha-parser
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use XML::Simple;
+
+
+# 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 $svg = XMLin($raw_svg, KeyAttr => {"text", "x"})->{"text"};
+
+
+# Build the filename
+my $filename = "";
+foreach my $i (sort {$a <=> $b} keys %$svg)
+{
+	$filename .= %$svg{$i}->{"content"};
+}
+
+# Write to file
+open(my $f, ">", "$filename.svg") or die("Failed to open $filename.svg: $!\n");
+print($f $raw_svg) or die("Failed to write to file: $!\n");
+print("Saved $filename.svg\n");
+close($f);
-- 
cgit v1.1