単にYYYY-MM-DD.(jpg|gif|png)があったら、そのファイル名をPOSTするデータに渡すだけなんだけどね。

27c27
< sub update_diary_entry($$$$$);
---
> sub update_diary_entry($$$$$$);
31c31
< sub post_it($$$$$);
---
> sub post_it($$$$$$);
154a155,165
>         # Check image exist.
>         my @imgexts = ('jpg', 'png', 'gif');
>         my $imgfile = '';
>         foreach my $ext(@imgexts) {
>             my $tmpname = $year.'-'.$month.'-'.$day.'.'.$ext;
>             if (-e $tmpname) {
>                 $imgfile = $tmpname;
>                 last;
>             }
>         }
>
163c174
<             update_diary_entry($year, $month, $day, $title, $body);
---
>             update_diary_entry($year, $month, $day, $title, $body, $imgfile);
277,278c288,289
< sub update_diary_entry($$$$$) {
<     my ($year, $month, $day, $title, $body) = @_;
---
> sub update_diary_entry($$$$$$) {
>     my ($year, $month, $day, $title, $body, $imgfile) = @_;
304c315
<         $ok = post_it($year, $month, $day, $title, $body);
---
>         $ok = post_it($year, $month, $day, $title, $body, $imgfile);
428,429c439,440
< sub post_it($$$$$) {
<     my ($year, $month, $day, $title, $body) = @_;
---
> sub post_it($$$$$$) {
>     my ($year, $month, $day, $title, $body, $imgfile) = @_;
450a462,464
>                 image => [
>                     $imgfile,
>                 ]

もう

最新版に取り込まれた。早いなー。