commit:e36e1c4827173f5510aa26d72ac19e394ea165f3
author:Chip
committer:Chip
date:Wed Jan 29 01:12:32 2025 -0600
parents:937d4b4fa57bbe043fdc46da32acc9ce80f6d4f1
Strip path prefix when hashing
diff --git a/http.pl b/http.pl
line changes: +1/-0
index b7a7494..cef2832
--- a/http.pl
+++ b/http.pl
@@ -55,6 +55,7 @@ my $ROOT = '/';
         print "HTTP/1.0 200 OK\r\n";
         print $cgi->header(-charset => 'utf-8');
 
+        $path = substr($path, length($ROOT) - 1);
         Dreamlands::Dreamer::seed($path);
         my $para_count = int(rand(3)) + 2;
         my $content = '';