|
Lines 59-66
my ($template, $loggedinuser, $cookie, $flags)
Link Here
|
| 59 |
$branch = C4::Context->userenv->{'branch'}; |
59 |
$branch = C4::Context->userenv->{'branch'}; |
| 60 |
} |
60 |
} |
| 61 |
|
61 |
|
| 62 |
my $backupdir = C4::Context->config('backupdir'); |
|
|
| 63 |
|
| 64 |
if ($op eq "export") { |
62 |
if ($op eq "export") { |
| 65 |
my $charset = 'utf-8'; |
63 |
my $charset = 'utf-8'; |
| 66 |
my $mimetype = 'application/octet-stream'; |
64 |
my $mimetype = 'application/octet-stream'; |
|
Lines 175-180
if ($op eq "export") {
Link Here
|
| 175 |
} |
173 |
} |
| 176 |
} |
174 |
} |
| 177 |
elsif ( $record_type eq 'db' ) { |
175 |
elsif ( $record_type eq 'db' ) { |
|
|
176 |
my $backupdir = C4::Context->config('backupdir'); |
| 178 |
my $successful_export; |
177 |
my $successful_export; |
| 179 |
if ( $flags->{superlibrarian} && C4::Context->config('backup_db_via_tools') ) { |
178 |
if ( $flags->{superlibrarian} && C4::Context->config('backup_db_via_tools') ) { |
| 180 |
$successful_export = download_backup( { directory => "$backupdir", extension => 'sql', filename => "$filename" } ) |
179 |
$successful_export = download_backup( { directory => "$backupdir", extension => 'sql', filename => "$filename" } ) |
|
Lines 187-192
if ($op eq "export") {
Link Here
|
| 187 |
exit; |
186 |
exit; |
| 188 |
} |
187 |
} |
| 189 |
elsif ( $record_type eq 'conf' ) { |
188 |
elsif ( $record_type eq 'conf' ) { |
|
|
189 |
my $backupdir = C4::Context->config('backupdir'); |
| 190 |
my $successful_export; |
190 |
my $successful_export; |
| 191 |
if ( $flags->{superlibrarian} && C4::Context->config('backup_conf_via_tools') ) { |
191 |
if ( $flags->{superlibrarian} && C4::Context->config('backup_conf_via_tools') ) { |
| 192 |
$successful_export = download_backup( { directory => "$backupdir", extension => 'tar', filename => "$filename" } ) |
192 |
$successful_export = download_backup( { directory => "$backupdir", extension => 'tar', filename => "$filename" } ) |
|
Lines 269-274
if ($op eq "export") {
Link Here
|
| 269 |
|
269 |
|
| 270 |
else { |
270 |
else { |
| 271 |
|
271 |
|
|
|
272 |
my $backupdir = C4::Context->config('backupdir'); |
| 272 |
my $itemtypes = GetItemTypes; |
273 |
my $itemtypes = GetItemTypes; |
| 273 |
my @itemtypesloop; |
274 |
my @itemtypesloop; |
| 274 |
foreach my $thisitemtype (sort keys %$itemtypes) { |
275 |
foreach my $thisitemtype (sort keys %$itemtypes) { |
|
Lines 328-333
sub getbackupfilelist {
Link Here
|
| 328 |
my $extension = $args->{extension}; |
329 |
my $extension = $args->{extension}; |
| 329 |
my @files; |
330 |
my @files; |
| 330 |
|
331 |
|
|
|
332 |
my $backupdir = C4::Context->config('backupdir'); |
| 333 |
|
| 331 |
if ( opendir(my $dir, $directory) ) { |
334 |
if ( opendir(my $dir, $directory) ) { |
| 332 |
while (my $file = readdir($dir)) { |
335 |
while (my $file = readdir($dir)) { |
| 333 |
next unless ( $file =~ m/\.$extension(\.(gz|bz2|xz))?/ ); |
336 |
next unless ( $file =~ m/\.$extension(\.(gz|bz2|xz))?/ ); |
| 334 |
- |
|
|