| … | |
… | |
| 134 | or die "$path~: $!"; |
134 | or die "$path~: $!"; |
| 135 | |
135 | |
| 136 | print $fh "# automatically generated, do NOT edit\n"; |
136 | print $fh "# automatically generated, do NOT edit\n"; |
| 137 | |
137 | |
| 138 | print $fh "[SYNCMAIL]\n"; |
138 | print $fh "[SYNCMAIL]\n"; |
| 139 | print $fh "$_=$self->{$_}\n" for (qw(fsize mtime version)); |
139 | print $fh "$_=$self->{$_}\n" for (qw(fsize mtime version ctime)); |
| 140 | |
140 | |
| 141 | print $fh "[HOSTS]\n"; |
141 | print $fh "[HOSTS]\n"; |
| 142 | while (my ($k,$v) = each %{$self->{host}}) { |
142 | while (my ($k,$v) = each %{$self->{host}}) { |
| 143 | print $fh "$k=$v\n"; |
143 | print $fh "$k=$v\n"; |
| 144 | } |
144 | } |
| … | |
… | |
| 234 | } or return (); |
234 | } or return (); |
| 235 | |
235 | |
| 236 | $self->read_mdif; |
236 | $self->read_mdif; |
| 237 | |
237 | |
| 238 | $self->{version} ||= MDIFVERSION; |
238 | $self->{version} ||= MDIFVERSION; |
|
|
239 | $self->{fsize} = $fsize; |
|
|
240 | $self->{mtime} = $mtime; |
|
|
241 | $self->{ctime} = time; |
|
|
242 | $self->{idx} = \@idx; |
|
|
243 | |
| 239 | my ($add, $del) = gendiff $self->{idx}, \@idx; |
244 | my ($add, $del) = gendiff $self->{idx}, \@idx; |
| 240 | push @{$self->{diff}}, [ |
245 | push @{$self->{diff}}, [ |
| 241 | $mtime, |
246 | $self->{ctime}, |
| 242 | $add, $del, |
247 | $add, $del, |
| 243 | ] if @$add || @$del; |
248 | ] if @$add || @$del; |
| 244 | |
|
|
| 245 | $self->{fsize} = $fsize; |
|
|
| 246 | $self->{mtime} = $mtime; |
|
|
| 247 | $self->{idx} = \@idx; |
|
|
| 248 | |
249 | |
| 249 | $self->dirty; |
250 | $self->dirty; |
| 250 | |
251 | |
| 251 | return 2; |
252 | return 2; |
| 252 | } else { |
253 | } else { |
