#!/usr/bin/perl

opendir source, "/mnt/cdrom/System";
@allsource = readdir source;
closedir source;

foreach $file (@allsource)
{
  if ($file =~ /\.u$/) {
    system "xdelta patch ./delta/$file.delta /mnt/cdrom/System/$file ../System/$file";
  }
}
