#!/usr/bin/perl
#
# Execute this script to check for anything that
# needs to be updated and recompiled in the xffm 
# code set tree.
#
# 
$release="4.5.0";
@servers=("xffm.foo-projects.org","xffm.xfce.org","sagitario");
#$server="xffm.xfce.org";
#$server="xffm.foo-projects.org";
#$server="xffm.sf.net";
sub falloff;
sub release_check;
sub download_tarball;
use install;


@_=($release,@servers);
&download_tarball;
&release_check;