New commands for exporting/importing full config bundles. Useful for printer vendors. #1365

This commit is contained in:
Alessandro Ranellucci 2014-03-25 14:04:01 +01:00
parent c98c992b4d
commit fed8783e30
4 changed files with 143 additions and 16 deletions

View file

@ -345,16 +345,13 @@ sub load_presets {
name => '- default -',
}];
opendir my $dh, "$Slic3r::GUI::datadir/" . $self->name or die "Failed to read directory $Slic3r::GUI::datadir/" . $self->name . " (errno: $!)\n";
foreach my $file (sort grep /\.ini$/i, readdir $dh) {
my $name = basename($file);
$name =~ s/\.ini$//;
my %presets = Slic3r::GUI->presets($self->name);
foreach my $preset_name (keys %presets) {
push @{$self->{presets}}, {
file => "$Slic3r::GUI::datadir/" . $self->name . "/$file",
name => $name,
name => $preset_name,
file => $presets{$preset_name},
};
}
closedir $dh;
$self->{presets_choice}->Clear;
$self->{presets_choice}->Append($_->{name}) for @{$self->{presets}};