- next if ( !defined($UserEmailInfo{$u}{lastTime}) );
- my $emailTimeStr = timeStamp2($UserEmailInfo{$u}{lastTime});
- $EmailStr{$UserEmailInfo{$u}{lastTime}} .= <<EOF;
+ my $info;
+ if ( defined($UserEmailInfo{$u}{lastTime})
+ && ref($UserEmailInfo{$u}{lastTime}) ne 'HASH' ) {
+ #
+ # old format $UserEmailInfo - pre 3.2.0.
+ #
+ my $host = $UserEmailInfo{$u}{lastHost};
+ $info = {
+ $host => {
+ lastTime => $UserEmailInfo{$u}{lastTime},
+ lastSubj => $UserEmailInfo{$u}{lastSubj},
+ },
+ };
+ } else {
+ $info = $UserEmailInfo{$u};
+ }
+ foreach my $host ( keys(%$info) ) {
+ next if ( !defined($info->{$host}{lastTime}) );
+ my $emailTimeStr = timeStamp2($info->{$host}{lastTime});
+ $EmailStr{$info->{$host}{lastTime}} .= <<EOF;