[project @ 2000-04-29 10:06:31 by doogie]

[debbugs.git] / Debbugs / Common.pm

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 243c3246d745c45aded697f6ee3008cb57035a56..9c8e96cecd4512a0ec43b9faf4a8d272a94c2301 100644 (file)
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -26,6 +26,20 @@ sub fail
        print "$_[0]\n";
        exit 1;
 }
+sub NameToPathHash
+{
+#   12345 -> 5/4/3/12345
+#   12 -> s/2/1/12
+    my $name = $_[0];
+    my $tmp = $name;
+    $name =~ /^.*?(.)(.)(.)$/ ;
+    if(!defined($1)) {
+       $name =~ /^(.*?)(.)(.)$/ ;
+       $tmp = "$1$2$3"."s";
+    }
+    $tmp =~ /^.*?(.)(.)(.)$/ ;
+    return "$3/$2/$1/$name";
+}
 
 1;
 END { }       # module clean-up code here (global destructor)