From 4b8a89e9ea7620e0d73e351d4209a4978280c32e Mon Sep 17 00:00:00 2001
From: Alexander Wirt <formorer@debian.org>
Date: Tue, 1 Nov 2011 23:32:35 +0100
Subject: [PATCH] Add a smple masterlist2mirmon converter

---
 masterlist2mirmon | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 masterlist2mirmon

diff --git a/masterlist2mirmon b/masterlist2mirmon
new file mode 100755
index 0000000..f191686
--- /dev/null
+++ b/masterlist2mirmon
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $file = shift;
+
+die "no file $file" unless -f $file;
+
+open (my $fh, '<', $file) or die "Could not open $file: $!";
+
+my @mirrors;
+my $data;
+while (my $line = <$fh>) {
+    chomp $line;
+    if ($line =~ /([^:]+): (.*)/) {
+        my $key = lc($1);
+        my $value = $2;
+        $data->{$key} = $value;
+    } elsif ($line eq '') {
+        push @mirrors, $data;
+        $data = undef;
+    } else {
+        print "Malformed line: $line\n";
+    }
+}
+
+foreach my $mirror (@mirrors) {
+    my ($c, $r) = split (/ +/, $mirror->{'country'});
+    printf ("%s http://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-http'});
+}
-- 
2.1.4