#!/usr/bin/perl -w
#
my $dir = "/mount/downloads/downloads/moblevents/asge/production";
system("cp","$dir/events","$dir/events.old");
system("wget","-q","-O","$dir/events.tmp","http://services.moblonline.com/asge/events/events");
rename("$dir/events.tmp","$dir/events");
system("cp","$dir/events","$dir/events.json");
