3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Pass config options as environment variables to post-processing scripts

Browse source
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

10
lib/Slic3r/Config.pm
View file

@ -528,6 +528,16 @@ sub save {
close $fh; 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 { sub load {
my $class = shift; my $class = shift;
my ($file) = @_; my ($file) = @_;

1
lib/Slic3r/Print.pm
View file

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