Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 2c3b8f1c

Von Tamino Steinert vor 11 Monaten hinzugefügt

  • ID 2c3b8f1cbbd937c48b88043cf95e8e50323c2319
  • Vorgänger 3094eb60
  • Nachfolger f725711f

FileVersion: Migration für Backend Webdav angepasst

Unterschiede anzeigen:

sql/Pg-upgrade2/add_file_version.pl
8 8

  
9 9
use SL::DB::File;
10 10

  
11
use SL::System::Process;
12

  
11 13
use UUID::Tiny ':std';
12 14

  
13 15
use parent qw(SL::DBUpgrade2::Base);
......
15 17
sub run {
16 18
  my ($self) = @_;
17 19

  
18
  my $doc_path = $::lx_office_conf{paths}->{document_path};
19

  
20
  my $all_dbfiles = SL::DB::Manager::File->get_all;
21
  my $dbfile;
22
  foreach $dbfile (@$all_dbfiles) {
23
    my @versions = SL::File->get_all_versions(dbfile => $dbfile);
24

  
25
    foreach my $version (@versions) {
26
      my $tofile = $version->get_file();
27
      my $rel_file = $tofile;
28
      $rel_file    =~ s/$doc_path//;
29

  
30
      my $fv = SL::DB::FileVersion->new(
31
                            file_id       => $dbfile->id,
32
                            version       => $version->version,
33
                            file_location => $rel_file,
34
                            doc_path      => $doc_path,
35
                            backend       => $dbfile->backend,
36
                            guid          => create_uuid_as_string(UUID_V4),
37
                          )->save;
20
  SL::DB->client->with_transaction(sub {
21
    my $all_dbfiles = SL::DB::Manager::File->get_all;
22
    foreach my $dbfile (@$all_dbfiles) {
23
      my $file_id = $dbfile->id;
24
      my $backend = $dbfile->backend
25
        or die "File with ID '$file_id' has no backend specified.";
26

  
27
      my $doc_path;
28
      if ($backend eq 'Webdav') {
29
        $doc_path = SL::System::Process::exe_dir() . '/webdav';
30
      } elsif ($backend eq 'Filesystem') {
31
        $doc_path = $::lx_office_conf{paths}->{document_path};
32
      } else {
33
        die "Unknown backend '$backend' for file with ID '$file_id'.";
34
      }
35

  
36
      my @versions = SL::File->get_all_versions(dbfile => $dbfile);
37
      foreach my $version (@versions) {
38
        my $tofile = $version->get_file();
39
        my $rel_file = $tofile;
40
        $rel_file    =~ s/$doc_path//;
41

  
42
        my $fv = SL::DB::FileVersion->new(
43
                              file_id       => $dbfile->id,
44
                              version       => $version->version,
45
                              file_location => $rel_file,
46
                              doc_path      => $doc_path,
47
                              backend       => $dbfile->backend,
48
                              guid          => create_uuid_as_string(UUID_V4),
49
                            )->save;
50
      }
38 51
    }
39
  }
52
    1;
53
  }) or do { die SL::DB->client->error };
40 54

  
41 55
  return 1;
42 56
}

Auch abrufbar als: Unified diff