#!/usr/bin/perl
#
# Execute this script to check for anything that
# needs to be updated and recompiled in the xffm 
# code set tree.
#
# 
sub falloff;
sub check;
use install;
$_=`ls -F`;
if (/xffm-CURRENT\//){
  print "Doing svn update... Please wait...\n";
  $command="svn update http://svn.foo-projects.org/svn/xffm/CURRENT xffm-CURRENT";
} else {
  print "Doing svn checkout... Please wait...\n";
  $command="svn co http://svn.foo-projects.org/svn/xffm/CURRENT xffm-CURRENT";
}
$_=`$command`;  if ($? != 0) { &falloff}
print "Checkout done. Proceeding to compile...\n";
chdir "xffm-CURRENT";
✓