Added function generate_hw_digest.

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8689 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/gosa-si-client b/gosa-si/gosa-si-client
index fe07d32f42669cbd8ac6b09a7d003e2cde713f3f..9b4f2b31a13f1738f07d9da23ee7b9a70739cb7a 100755 (executable)
--- 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 ==============================================================