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