From db0257ab0867be865497da2874db5c9c60ef0b9c Mon Sep 17 00:00:00 2001
From: Janne Grunau <janne@tjalk.(none)>
Date: Sun, 8 Oct 2006 21:41:31 +0200
Subject: [PATCH] two fixes for myth_archive_job.pl

file size is already in MB while checking for enough free space
enforce df output in one column even for long device names / mount points
---
 mythtv/contrib/myth_archive_job.pl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/mythtv/contrib/myth_archive_job.pl b/mythtv/contrib/myth_archive_job.pl
index afa4546..997e0b0 100755
--- a/mythtv/contrib/myth_archive_job.pl
+++ b/mythtv/contrib/myth_archive_job.pl
@@ -72,7 +72,7 @@ if ( $archiveDir ) {
 			printf( "    Curr Free: %6d MB\n", $freeSpace );
 		}
 
-		if (( $freeSpace - ($size / 1024.0 / 1024.0)) > $keepFree ) {
+		if (( $freeSpace - $size ) > $keepFree ) {
 			printf( "Attempting archive to %s\nStatus: ", $archiveDir );
 			if (MoveFileToArchiveDir( $file, $directory, $archiveDir )) {
 				printf( "Success.\n" );
@@ -97,7 +97,7 @@ sub GetFreeSpace {
 	if ( ! -r $dir ) {
 		return 0;
 	} else {
-		my( $freeSpace ) = `df -m $dir | grep -v Available | awk '{print \$4}'`;
+		my( $freeSpace ) = `df -Pm $dir | grep -v Available | awk '{print \$4}'`;
 
 		return $freeSpace;
 	}
-- 
1.4.2.3

