Remove dots from config files in exportBinaryExtensions.
This commit is contained in:
parent
621a0cf71b
commit
cdf2638243
1 changed files with 12 additions and 0 deletions
|
|
@ -32,6 +32,7 @@ my $quiet; # this line required
|
|||
my $session = start(); # this line required
|
||||
hideGalleryAlbums($session);
|
||||
removeBrokenWorkflowInstances($session);
|
||||
undotBinaryExtensions($session);
|
||||
|
||||
# upgrade functions go here
|
||||
|
||||
|
|
@ -59,6 +60,17 @@ sub hideGalleryAlbums {
|
|||
print "DONE!\n" unless $quiet;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub undotBinaryExtensions {
|
||||
my $session = shift;
|
||||
print "\tRemoving dots from list of exportBinaryExtensions... " unless $quiet;
|
||||
# and here's our code
|
||||
my $extensions = $session->config->get('exportBinaryExtensions');
|
||||
my @newExtensions = map { s/\.//; $_ } @{ $extensions };
|
||||
$session->config->set('exportBinaryExtensions', \@newExtensions);
|
||||
print "DONE!\n" unless $quiet;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub removeBrokenWorkflowInstances {
|
||||
my $session = shift;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue