#!/usr/bin/perl use strict; use Boofy::Main; use Boofy::Login; use Boofy::Config qw(COMM_PIC_DIR DIARY_NEW_BYTE TMPL_DIR); use Boofy::String qw(tune_html tune_textarea make_clickable japanese_date %cf_comm_level make_photo_dir fold_line); …