diff options
| author | Stew Benedict <stewb@mandriva.org> | 2004-01-23 13:35:29 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2004-01-23 13:35:29 +0000 |
| commit | 0355be7101baf8fdb5f7219b45bf2f198bb2b7da (patch) | |
| tree | bae9ff5547f2f4ec635030708c09f7d6420dd7a2 /perl-install | |
| parent | 17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d (diff) | |
| download | drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar.gz drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar.bz2 drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar.xz drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.zip | |
Rework timestamp for backup files to please perl_checker.
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index c8ee648af..c9cd56210 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -25,7 +25,6 @@ use strict; use interactive; use common; -use Time::localtime; use detect_devices; # Backend Options. @@ -337,18 +336,19 @@ sub all_user_list() { sub the_time() { $the_time = "_"; - $the_time .= localtime->year + 1900; - if (localtime->mon < 9) { $the_time .= "0" } - $the_time .= localtime->mon + 1; - if (localtime->mday < 10) { $the_time .= "0" } - $the_time .= localtime->mday; + my ($sec, $min, $hour, $day, $month, $year) = localtime(time()); + $the_time .= $year + 1900; + if ($month < 9) { $the_time .= "0" } + $the_time .= $month + 1; + if ($day < 10) { $the_time .= "0" } + $the_time .= $day; $the_time .= "_"; - if (localtime->hour < 10) { $the_time .= "0" } - $the_time .= localtime->hour; - if (localtime->min < 10) { $the_time .= "0" } - $the_time .= localtime->min; - if (localtime->sec < 10) { $the_time .= "0" } - $the_time .= localtime->sec; + if ($hour < 10) { $the_time .= "0" } + $the_time .= $hour; + if ($min < 10) { $the_time .= "0" } + $the_time .= $min; + if ($sec < 10) { $the_time .= "0" } + $the_time .= $sec; } sub get_tape_info() { |