From 5c0857b2be75f5d24cb93d9f3ce1565802142e08 Mon Sep 17 00:00:00 2001 From: janw 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