#!/usr/bin/perl

my $callpath = $0;
$callpath =~ s/getnewver\.pl//;
chdir $callpath;
my $tmp;
# gets a new version of BlogPost from the website
$tmp = `curl -s -o BlogPost.tar.gz http://www.zeroaltitude.org/BlogPost/latest/BlogPost.tar.gz`;
# the base directory is up from here:
chdir "../../../../..";
$tmp = `tar xzf BlogPost.widget/Contents/Resources/BlogPost/Perls/BlogPost.tar.gz`;
$tmp = `rm BlogPost.widget/Contents/Resources/BlogPost/Perls/BlogPost.tar.gz`;
# all done
print "1\n";