From 094c3e91be4404010934350fd0e831ded98085a7 Mon Sep 17 00:00:00 2001
From: Tim Retout <tim@retout.co.uk>
Date: Thu, 16 Feb 2012 19:46:12 +0000
Subject: Remove unreferenced subroutines from installer::logger

---
 solenv/bin/modules/installer/logger.pm | 44 ----------------------------------
 1 file changed, 44 deletions(-)

(limited to 'solenv/bin')

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
@@ -246,19 +246,6 @@ sub get_time_string
     return $currenttime;
 }
 
-###############################################################
-# 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
 ###############################################################
@@ -269,29 +256,6 @@ sub stoptime
     print_message( "$infoline" );
 }
 
-###############################################################
-# 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
 ###############################################################
-- 
cgit