#!/bin/sh

perl -pi -mDigest::MD5 -e '$_ = sprintf("\t<%stime>%04d-%02d-%02dT00:00:00</%stime>\n", $1, $4, $2, $3, $1) if m|^\s*<(\w+)time>(\d+)/(\d+)/(\d+)</(\w+)time>\s*$|i;
s|^\s*Email:\s*$||g;
s|^\s*Memo:\s*$||g;
s|<br>||g;
$_ = sprintf("\t<uuid>%s</uuid>\n", Digest::MD5::md5_hex($. . time())) if m|\s*<uuid></uuid>\s$|;
s|^\s*<expiretime expires="true">never</expiretime>\s*$|\t<expiretime expires="false">2999-12-28T23:59:59</expiretime>\n|g;
$_ = sprintf("\t<expiretime expires=\"true\">%04d-%02d-%02dT00:00:00</expiretime>\n", $3, $1, $2) if m|^\s*<expiretime expires="true">(\d+)/(\d+)/(\d+)</expiretime>\s*$|i;
' $1