It works!

1 files changed, 26 insertions, 0 deletions

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);