From 6098a862a26de6526354513295a911cb46f6f56b Mon Sep 17 00:00:00 2001
From: Stig Thormodsrud <stig@vyatta.com>
Date: Mon, 27 Apr 2009 18:03:50 -0700
Subject: Replace md5 compare with a (hopefully) lighter-weight file compare.

---
 scripts/vyatta-banner.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/scripts/vyatta-banner.pl b/scripts/vyatta-banner.pl
index 8c3db846..7ae35edf 100644
--- a/scripts/vyatta-banner.pl
+++ b/scripts/vyatta-banner.pl
@@ -33,8 +33,7 @@ use Vyatta::Config;
 
 use Getopt::Long;
 use File::Copy;
-use Digest::MD5 qw(md5_hex);
-use Digest::file qw(digest_file_hex);
+use File::Compare;
 use strict;
 use warnings;
 
@@ -61,9 +60,14 @@ sub is_same_as_file {
     my ($file, $value) = @_;
 
     return if ! -e $file;
-    my $fdigest = digest_file_hex($file, "MD5");
-    my $vdigest = md5_hex("$value"); 
-    return 1 if $fdigest eq $vdigest;
+
+    my $mem_file;
+    open my $MF, '+<', \$mem_file or die "couldn't open memfile $!\n";
+    print $MF $value;
+    seek($MF, 0, 0);
+    
+    my $rc = compare($file, $MF);
+    return 1 if $rc == 0;
     return;
 }
 
-- 
cgit v1.2.3