1 files changed, 29 insertions, 0 deletions
diff --git a/scripts/myhash.pm b/scripts/myhash.pm
new file mode 100755
index 0000000..5d8f1bd
--- /dev/null
+++ b/scripts/myhash.pm
@@ -0,0 +1,29 @@
+package myhash;
+
+
+##################################################
+#
+# GiantDisc mp3 Jukebox
+# 
+# © 2000, Rolf Brugger
+#
+##################################################
+
+#use lib '/usr/local/bin';
+#BEGIN{;}
+#END{;}
+
+
+############################################################
+###
+sub addvaltohash{ # gets a current hashval and a new elment
+		  # returns new hashval
+  my ($hashval,$newelement) = @_;
+
+  return (($hashval << 5) ^ ($hashval >> 27)) ^ $newelement;
+  # (^ is bitwise EXOR)
+}
+
+
+1;
+#