$mirror = $state -> { $url } ; # a Mirmon::Mirror object
my ($time, $history) = split('-', $mirror->{state_history});
my $last_state = substr($history,-1,1);
$mirror = $state -> { $url } ; # a Mirmon::Mirror object
my ($time, $history) = split('-', $mirror->{state_history});
my $last_state = substr($history,-1,1);