… | |
… | |
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 { |