From d6d562d921c72ddc11597a2c45fdc5182d5907cf Mon Sep 17 00:00:00 2001
From: Shiar <shiar@shiar.org>
Date: Wed, 28 Nov 2007 04:54:21 +0100
Subject: [PATCH] scmtomap: extract map data from scm

Perl Archive::MoPaQ map extractor prototype. Assumes the data to be the
first file part, which certainly isn't always correct (detection later).
Can only extract to an external file rightnow.
---
 scmtomap | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 scmtomap

diff --git a/scmtomap b/scmtomap
new file mode 100755
index 0000000..1c24020
--- /dev/null
+++ b/scmtomap
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Archive::MoPaQ;
+
+@ARGV or die "Usage: $0 filename.scm\n";
+
+my $mpq = Archive::MoPaQ->new or die;
+print $mpq->open($ARGV[0]);
+$mpq->listopen("");
+$mpq->extract(1);
+
-- 
2.30.0