From ca6dcc7406a3ea47a9f059831bd2218d31f15fad Mon Sep 17 00:00:00 2001
From: Albert Zeyer <albert.zeyer@rwth-aachen.de>
Date: Thu, 6 Oct 2011 14:48:47 +0200
Subject: [PATCH] hw_addr from apname

---
 shairport.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/shairport.pl b/shairport.pl
index 45caabba..8b6fcc6f 100755
--- a/shairport.pl
+++ b/shairport.pl
@@ -42,7 +42,7 @@ use HTTP::Response;
 use URI::Escape;
 use IPC::Open2;
 use Crypt::OpenSSL::RSA;
-use Digest::MD5 qw(md5_hex);
+use Digest::MD5 qw(md5 md5_hex);
 use POSIX qw(:sys_wait_h setsid);
 eval "use IO::Socket::INET6;";
 
@@ -210,7 +210,7 @@ if (defined($squeeze) && $squeeze) {
 };
 chomp $apname;
 
-my @hw_addr = (0..5);
+my @hw_addr = +(map(ord, split(//, md5($apname))))[0..5];
 
 sub POPE {
     print "Broken pipe\n" if $verbose;