Minor changes to printlog

rbackup.pl

@@ -172,6 +172,12 @@ ($)
 	return (qw(sun mon tue wed thu fri sat))[$val];
 }
 
+sub printlog($){
+	my($text) = @_;
+	my ($sec,$min,$hour,$day,$month,$year) = gettime();
+	print LOG "$year-$month-$day $hour:$min:$sec $text\n";
+}
+
 sub gettime(){
 	my $input = time();
 	my ($sec,$min,$hour,$day,$month,$year) = (localtime($input))[0,1,2,3,4,5];
@@ -196,12 +202,6 @@ ()
 	return ($sec,$min,$hour,$day,$month,$year);
 }
 
-sub printlog($){
-	my($text) = @_;
-	my ($sec,$min,$hour,$day,$month,$year) = gettime();
-	print LOG "$year-$month-$day $hour:$min:$sec $text\n";
-}
-
 sub get_hostname(){
 	my $hostname = `/bin/hostname`;
 	chomp($hostname);