#!/usr/bin/env perl

use strict;
use warnings;

use LWP::UserAgent;

my $url = 'http://agentzh.org/misc/wqy-zenhei.ttf';
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

mkdir 'share/font' unless -d 'share/font';
my $file = 'share/font/wqy-zenhei.ttf';
unless (-f $file and -s $file > 13000000) {
    warn "Fetching $url...\n";
    $ua->mirror($url, $file);
}