#!/usr/bin/perl
# fetch a changeset tar file, unpack it, and apply it
#
# usage:  apply-lps-patch.pl URL
#
# requires 'wget' to be in your path
use File::Basename;
$url = $ARGV[0];
($base,$path,$type) = fileparse($url, "\.tar");  
$tarfile= "$base$type" ;
system "wget $url";
system "tar -xvf $tarfile";
system  "$base/apply.sh\n"