| … | |
… | |
| 32 | |
32 | |
| 33 | $self->{last_check} = (-M $self->{db_file}) + 1; |
33 | $self->{last_check} = (-M $self->{db_file}) + 1; |
| 34 | unless (-e $self->{db_file}) { |
34 | unless (-e $self->{db_file}) { |
| 35 | write_file ($self->{db_file}, cf::encode_json ({})); |
35 | write_file ($self->{db_file}, cf::encode_json ({})); |
| 36 | } |
36 | } |
| 37 | $self->check_maildb (); |
37 | $self->check_maildb; |
| 38 | |
38 | |
| 39 | $self; |
39 | $self; |
| 40 | } |
40 | } |
| 41 | |
41 | |
| 42 | sub check_maildb { |
42 | sub check_maildb { |
| 43 | my ($self) = @_; |
43 | my ($self) = @_; |
| 44 | |
44 | |
| 45 | if ($self->{last_check} > (-M $self->{db_file})) { |
45 | if ($self->{last_check} > -M $self->{db_file}) { |
| 46 | $self->{last_check} = -M $self->{db_file}; |
46 | $self->{last_check} = -M $self->{db_file}; |
| 47 | |
47 | |
| 48 | my $maildb = eval { my $m = cf::decode_json read_file $self->{db_file}; return $m }; |
48 | my $maildb = eval { my $m = cf::decode_json read_file $self->{db_file}; return $m }; |
| 49 | if ($@) { |
49 | if ($@) { |
| 50 | warn "ERROR when reading mail database $self->{db_file}: $@\n"; |
50 | warn "ERROR when reading mail database $self->{db_file}: $@\n"; |
| … | |
… | |
| 82 | my ($self, $key, $value) = @_; |
82 | my ($self, $key, $value) = @_; |
| 83 | $self->check_maildb; |
83 | $self->check_maildb; |
| 84 | $self->{maildb}->{$key} = $value; |
84 | $self->{maildb}->{$key} = $value; |
| 85 | $self->sync_maildb; |
85 | $self->sync_maildb; |
| 86 | } |
86 | } |
|
|
87 | |
| 87 | 1 |
88 | 1 |
