From 263f239242615418d0af4ea9f02aaf243f521925 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Tue, 22 Jun 2010 22:03:38 +0200
Subject: inital script for downloading rakudo and modules

---
 build/download-stuff.pl | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 build/download-stuff.pl

(limited to 'build')

diff --git a/build/download-stuff.pl b/build/download-stuff.pl
new file mode 100644
index 0000000..1d7b60d
--- /dev/null
+++ b/build/download-stuff.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my @modules = qw(
+    http://github.com/rakudo/rakudo
+    http://github.com/jnthn/zavolaj
+    http://github.com/mberends/fakedbi
+    http://github.com/masak/svg
+    http://github.com/moritz/svg-plot
+    http://github.com/moritz/Math-RungeKutta
+    http://github.com/moritz/Math-Model
+);
+
+chdir 'dist' or die "Can't chdir to build dir: $!";
+
+for my $m (@modules) {
+    my $git_url = $m;
+    $git_url =~ s/^http/git/;
+    $git_url .= '.git';
+    my $return = system 'git', 'clone', $git_url;
+    if ($return) {
+        if ($? == -1) {
+            warn "Error while running 'git clone $git_url': $?\n";
+        } else {
+            warn "Git returned unsuccessfully with return code "
+                    . ($? >> 8) . "\n";
+        }
+        next;
+    }
+}
+
+# for projects of which we want to ship specific tags or branches
+# the right-hand side can be anything that 'git checkout' accepts,
+# so a branch name, tag name, sha1 sum, HEAD~3 ( not quite sane, 
+# but possible )
+#
+#  XXX we want rakudo 2010.07 of course, but that will give an error now
+my %tags = ( rakudo => '2010.06' );
+
+while (my ($project, $version) = each %tags) {
+    chdir $project or die "Can't chdir to '$project': $!";
+    system('git', 'checkout', $version) == 0
+        or die "Can't git checkout $version: $?";
+    chdir '..' or die "Can't chdir back to dist/ folder: $!";
+}
+
+# TODO: copy docs, build scripts, whatever
-- 
cgit v1.1