diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-02-16 19:46:12 +0000 |
|---|---|---|
| committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-17 14:26:18 +0000 |
| commit | 094c3e91be4404010934350fd0e831ded98085a7 (patch) | |
| tree | 32718412d8282c2e4dc4e966fb8c011758f3cde5 /solenv/bin | |
| parent | d6adf7c7b38d72328bd0c8867c472be677cd91ef (diff) | |
Remove unreferenced subroutines from installer::logger
Diffstat (limited to 'solenv/bin')
| -rw-r--r-- | solenv/bin/modules/installer/logger.pm | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/solenv/bin/modules/installer/logger.pm b/solenv/bin/modules/installer/logger.pm index 01303697beff..f86c4df82eff 100644 --- a/solenv/bin/modules/installer/logger.pm +++ b/solenv/bin/modules/installer/logger.pm @@ -247,19 +247,6 @@ sub get_time_string } ############################################################### -# Returning the age of a file (in seconds) -############################################################### - -sub get_file_age -{ - my ( $filename ) = @_; - - my $filetime = (stat($filename))[9]; - my $timediff = time() - $filetime; - return $timediff; -} - -############################################################### # Stopping the time ############################################################### @@ -270,29 +257,6 @@ sub stoptime } ############################################################### -# Set date string, format: yymmdd -############################################################### - -sub set_installation_date -{ - my $datestring = ""; - - my @timearray = localtime(time); - - my $day = $timearray[3]; - my $month = $timearray[4] + 1; - my $year = $timearray[5] - 100; - - if ( $year < 10 ) { $year = "0" . $year; } - if ( $month < 10 ) { $month = "0" . $month; } - if ( $day < 10 ) { $day = "0" . $day; } - - $datestring = $year . $month . $day; - - return $datestring; -} - -############################################################### # Console output: messages ############################################################### @@ -305,14 +269,6 @@ sub print_message return; } -sub print_message_without_newline -{ - my $message = shift; - chomp $message; - print "$message" if ( ! $installer::globals::quiet ); - return; -} - ############################################################### # Console output: warnings ############################################################### |