summaryrefslogtreecommitdiffstats
path: root/client_wizard/scripts/Clientconf.pm
diff options
context:
space:
mode:
Diffstat (limited to 'client_wizard/scripts/Clientconf.pm')
-rw-r--r--client_wizard/scripts/Clientconf.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/client_wizard/scripts/Clientconf.pm b/client_wizard/scripts/Clientconf.pm
index 3b480b3f..b148cec8 100644
--- a/client_wizard/scripts/Clientconf.pm
+++ b/client_wizard/scripts/Clientconf.pm
@@ -55,7 +55,9 @@ sub get_root {
sub up_serial {
my ($file) = @_;
- my $serial_nbm = `date +%Y%m%d00` or die "date not found: $!";
+ my (undef, undef, undef, $mday, $mon, $year) = gmtime(time);
+ $year += 1900;
+ my $serial_nbm = sprintf "%4dY%2dm%2d00", $year, $mon, $mday;
output($file, map {
my $line = $_;
if (/^(\s*)(\d*)(\s*;\s*Serial.*)$/) {