1 files changed, 42 insertions, 0 deletions
diff --git a/cervisia/move_repositories.pl b/cervisia/move_repositories.pl
new file mode 100644
index 00000000..c38b352d
--- /dev/null
+++ b/cervisia/move_repositories.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+$DEBUG = 0;
+
+while(<>)
+{
+    if( /\[(Repository-.*)\]/ )
+    {
+        # remember group section
+        $section = $1;
+        print "[$section]\n";
+        next;
+    }
+    if( /\[(.*)\]/ )
+    {
+        # clear section variable for other groups
+        $section = "";
+        next;
+    }
+    if( /^Compression=(.*)$/ )
+    {
+        # skip if not in repository group
+        if( $section eq "" )
+        {
+            next;
+        }
+
+        print STDERR "\n[$section]Compression=$1\n" if ( $DEBUG );
+        print "Compression=$1\n";
+    }
+    if( /^rsh=(.*)$/ )
+    {
+        # skip if not in repository group
+        if( $section eq "" )
+        {
+            next;
+        }
+
+        print STDERR "\n[$section]rsh=$1\n" if ( $DEBUG );
+        print "rsh=$1\n";
+    }
+}