From 5c0857b2be75f5d24cb93d9f3ce1565802142e08 Mon Sep 17 00:00:00 2001
From: janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Thu, 31 Jan 2008 08:47:59 +0000
Subject: [PATCH] Added function generate_hw_digest.

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8689 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/gosa-si-client | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gosa-si/gosa-si-client b/gosa-si/gosa-si-client
index fe07d32f4..9b4f2b31a 100755
--- a/gosa-si/gosa-si-client
+++ b/gosa-si/gosa-si-client
@@ -1265,7 +1265,13 @@ sub new_passwd {
     return; 
 }
 
-
+sub genereate_hw_digest {
+	my $hw_data;
+	foreach my $line (split /\n/, `cat /proc/bus/pci/devices`) {
+		$hw_data.= sprintf "%s", $line =~ /[^\s]+\s([^\s]+)\s.*/;
+	}
+	return(md5_base64($hw_data));
+}
 
 
 #==== MAIN = main ==============================================================
-- 
2.30.2