#!/usr/bin/perl -w
     
use strict;
my $m;
my $r;

while (<>) {
/^DarcsURL\:\s+http\:\/\/.*\/repos\/(\w+)/ and $r = $1;

$m .= $_;

}

die "Could not find repo name." unless $r;

print "Darcs Repo: $r\n";

umask 0022;

open FOO, "| darcs apply --verbose --no-test --repodir  ~/repos/$r" or die "Could not pipe to darcs";
print FOO "$m\n";
close FOO;