Pass config options as environment variables to post-processing scripts

This commit is contained in:
Alessandro Ranellucci 2012-06-09 17:52:03 +02:00
parent 62bd33a766
commit 3e94add8a8
2 changed files with 11 additions and 0 deletions

View File

@ -528,6 +528,16 @@ sub save {
close $fh;
}
sub setenv {
my $class = shift;
foreach my $opt (sort keys %$Options) {
next if $Options->{$opt}{gui_only};
my $value = get($opt);
$value = $Options->{$opt}{serialize}->($value) if $Options->{$opt}{serialize};
$ENV{"SLIC3R_" . uc $opt} = $value;
}
}
sub load {
my $class = shift;
my ($file) = @_;

View File

@ -311,6 +311,7 @@ sub export_gcode {
# run post-processing scripts
if (@$Slic3r::post_process) {
$status_cb->(95, "Running post-processing scripts");
Slic3r::Config->setenv;
for (@$Slic3r::post_process) {
Slic3r::debugf " '%s' '%s'\n", $_, $output_file;
system($_, $output_file);