Update the [timestamp] placeholder(s) at every G-code export. #1957

lib/Slic3r/GCode/PlaceholderParser.pm

@@ -12,7 +12,13 @@ sub BUILD {
     # environment variables
     $s->{$_} = $ENV{$_} for grep /^SLIC3R_/, keys %ENV;
     
-    # timestamp
+    $self->update_timestamp;
+}
+
+sub update_timestamp {
+    my ($self) = @_;
+    
+    my $s = $self->_single;
     my @lt = localtime; $lt[5] += 1900; $lt[4] += 1;
     $s->{timestamp} = sprintf '%04d%02d%02d-%02d%02d%02d', @lt[5,4,3,2,1,0];
     $s->{year}      = $lt[5];

lib/Slic3r/Print.pm

@@ -839,7 +839,7 @@ sub write_gcode {
     }
     
     # prepare the helper object for replacing placeholders in custom G-code and output filename
-    
+    $self->placeholder_parser->update_timestamp;
     
     # set up our helper object
     my $gcodegen = Slic3r::GCode->new(