/ - Diff - projekt kivitendo - wissen

« Zurück | Weiter »

Revision 4c39335f

Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt

ID 4c39335febe115dfe9c39e9f1784645cb6a30036
Vorgänger a0b482c6
Nachfolger 3b77b3c7

BJ zum Belege synchronisieren angepasst, auch EmailJournal nutzen

Alle Emails in Unterordnern werden synchronisiert und Emaildateien zu
den Belegen gespeichert. Alle unter Ordner, die nicht zu offenen Belegen
gehören, werden gelöscht.

     package SL::BackgroundJob::CleanUpEmailSubfolders;
     use strict;
     use warnings;
     use parent qw(SL::BackgroundJob::Base);
     use SL::IMAPClient;
     sub clean_up_subfolders {
       my ($self) = @_;
       my $imap_client = SL::IMAPClient->new();
       my $open_sales_orders = SL::DB::Manager::Order->get_all(
         query => [
           vendor_id => undef,
           closed => 0,
         ],
       );
       my $email_import = $imap_client->clean_up_subfolders($open_sales_orders);
       return unless $email_import;
       $self->{job_obj}->set_data(last_email_import_id => $email_import->id)->save;
+    }
     sub run {
       my ($self, $job_obj) = @_;
       $self->{job_obj} = $job_obj;
       $self->clean_up_subfolders();
       return;
+    }
 ;
     __END__
     =encoding utf8
     =head1 NAME
     SL::BackgroundJob::CleanUpEmailSubfolders - Background job for removing all email
     subfolders except open records.
     =head1 SYNOPSIS
     This background job syncs all emails in subfolders and adds emails files to the
     corresponding record. After that is removes all subfolders except for open
     records.
     =head1 BUGS
     Nothing here yet.
     =head1 AUTHOR
     Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
     =cut

     package SL::BackgroundJob::CleanUpRecordEmailFolders;
     use strict;
     use warnings;
     use parent qw(SL::BackgroundJob::Base);
     use SL::IMAPClient;
     sub clean_up_record_folders {
       my ($self) = @_;
       my $imap_client = SL::IMAPClient->new();
       my $open_sales_orders = SL::DB::Manager::Order->get_all(
         query => [
           vendor_id => undef,
           closed => 0,
         ],
       );
       $imap_client->clean_up_record_folders($open_sales_orders);
+    }
     sub run {
       my ($self, $job_obj) = @_;
       $self->{job_obj} = $job_obj;
       $self->clean_up_record_folders();
       return;
+    }
 ;
     __END__
     =encoding utf8
     =head1 NAME
     SL::BackgroundJob::CleanUpRecordEmailFolders - Background job for removing email folders of closed records.
     =head1 SYNOPSIS
     This background job syncs all emails to emails files to the corresponding
     record and than removes email folders of closed records.
     =head1 BUGS
     Nothing here yet.
     =head1 AUTHOR
     Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
     =cut

+      }
+    }
     sub update_email_files_for_all_records {
     sub update_email_subfolders_and_files_for_records {
       my ($self) = @_;
       my $record_folder_path = $self->{base_folder};
       my $base_folder_path = $self->{base_folder};
       my $base_folder_string = $self->get_folder_string_from_path($base_folder_path);
       my $subfolder_strings = $self->{imap_client}->folders($record_folder_path)
       my $folder_strings = $self->{imap_client}->folders($base_folder_string)
         or die "Could not get folders via IMAP: $@\n";
       my @record_folder_strings = grep { $_ ne $record_folder_path }
         @$subfolder_strings;
       my @subfolder_strings = grep { $_ ne $base_folder_string } @$folder_strings;
       # Store all emails in journal
       my $email_import =
         $self->_update_emails_from_folder_strings($base_folder_path, \@subfolder_strings);
       foreach my $record_folder_string (@record_folder_strings) {
         my $ilike_folder_path = $self->get_ilike_folder_path_from_string($record_folder_string);
       # Store the emails to the records
       foreach my $subfolder_string (@subfolder_strings) {
         my $ilike_folder_path = $self->get_ilike_folder_path_from_string($subfolder_string);
         my (
           $ilike_record_folder_path, # is greedily matched
           $ilike_customer_number, # no spaces allowed
-...
         my $record_type = $RECORD_FOLDER_TO_TYPE{$record_folder};
         next unless $record_type;
         # TODO make it generic for all records
         my $is_quotation = $record_type eq 'sales_quotation' ? 1 : 0;
         my $number_field = $is_quotation ? 'quonumber' : 'ordnumber';
         my $order = SL::DB::Manager::Order->get_first(
         my $record = SL::DB::Manager::Order->get_first(
           query => [
             and => [
               vendor_id => undef,
-...
               $number_field => { ilike => $ilike_record_number },
             ],
         ]);
         next unless $order;
         $self->update_email_files_for_record($order);
         next unless $record;
         $self->update_email_files_for_record($record);
+      }
       return ($email_import, \@subfolder_strings);
+    }
     sub create_folder {
-...
       return;
+    }
     sub clean_up_record_folders {
     sub clean_up_subfolders {
       my ($self, $active_records) = @_;
       my $record_folder_path = $self->{base_folder};
       $self->update_email_files_for_all_records();
       my $base_folder_string = $self->get_folder_string_from_path($record_folder_path);
       my @folders = $self->{imap_client}->folders($base_folder_string)
         or die "Could not get folders via IMAP: $@\n";
       my ($email_import, $synced_folders) =
         $self->update_email_subfolders_and_files_for_records();
       my @active_folders = map { $self->_get_folder_string_for_record($_) }
         @$active_records;
       push @active_folders, $base_folder_string;
       my %keep_folder = map { $_ => 1 } @active_folders;
       my @folders_to_delete = grep { !$keep_folder{$_} } @folders;
       my @folders_to_delete = grep { !$keep_folder{$_} } @$synced_folders;
       foreach my $folder (@folders_to_delete) {
         $self->{imap_client}->delete($folder)
           or die "Could not delete IMAP folder '$folder': $@\n";
+      }
       return $email_import;
+    }
     sub _get_folder_string_for_record {
-...
       Updates the email files for a record. Checks which emails are missing and
       fetches these from the IMAP server.
     =item C<update_email_files_for_all_records>
         Updates the email files for all records. Checks which emails are missing and
         fetches these from the IMAP server.
     =item C<update_email_subfolders_and_files_for_records>
         Updates all subfolders and the email files for all records.
     =item C<create_folder>
-...
       The folder string is encoded in IMAP-UTF-7.
     =item C<get_ilike_folder_path_from_string>
       Converts a folder string to a folder path. The folder path is like path
       on unix filesystem. The folder string is the path on the IMAP server.
       The folder string is encoded in IMAP-UTF-7. It can happend that
       C<get_folder_string_from_path> and C<get_ilike_folder_path_from_string>
       don't cancel each other out. This is because the IMAP server has a different
       separator than the unix filesystem. The changes are made so that a ILIKE
       query on the database works.
       don't cancel each other out. This is because the IMAP server can has a
       different Ieparator than the unix filesystem. The changes are made so that a
       ILIKE query on the database works.
     =item C<create_folder_for_record>
-...
       e.g. INBOX/1234 Testkunde/Angebot/123
       If the folder already exists, nothing happens.
     =item C<clean_up_record_folders>
     =item C<clean_up_subfolders>
       Gets a list of acitve records. First syncs the folders on the IMAP server with
       the corresponding record, by creating email files. Then deletes all folders
       which are not corresponding to an active record.
       Gets a list of acitve records. Syncs all subfolders and add email files to
       the records. Then deletes all subfolders which are not corresponding to an
       active record.
     =item C<_get_folder_string_for_record>
-...
     =head1 BUGS
     Nothing here yet.
     The mapping from record to email folder is not bijective. If the record or
     customer number has special characters, the mapping can fail. Read
     C<get_ilike_folder_path_from_string> for more information.
     =head1 AUTHOR

Auch abrufbar als: Unified diff

Projekt

Allgemein

Profil

projekt kivitendo

Revision 4c39335f

Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt