#!/bin/perl
# Ondrej Brablc
                                                     
use strict;
 
my $rootcd = $ENV{'MOZDIR'};
my $objdir=`cat ~/.mozconfig.objdir` || die "Cannot get objdir!";
chop $objdir;
 
my $target = $rootcd.'/'.$objdir."/dist/bin/extensions/allpeers\@allpeers.com/chrome/allpeers";
 
open (IN,"jar.mn") || die "There is no jar.mn in this directory!";
while (<IN>)
{
	if (/\s+(\S+)\s+\((.*)\)/)
	{
		system("cp -uv $2 $target/$1");
	}
}
close IN;