As noted in chatterbox, $r variable in get_block will unsync with day numbers if one day is missing in block.db; consider using $date as the index directly. Also, $r increments at the end of the sub, so if the db day number begins at day 1, then $r is not synced to begin with.