The problem was that any address beginning with a "/" was treated as HOSTILE,
so an address like "/G=Lena/S=Paulsen@mhs-opic.attmail.com" could never
subscribe. The reason turned out to be the line that said
local(@components) = split( /\//, $_);
The split function caused $components[0] to always be the null string if
the first character of the address was "/". Thus when the string
/$components[0] was tested, it evaluated to "/", the filesystem root, and
I guess writing to that would be pretty hostile :-)
The fix was to break up $addr properly. Here's the patch:
511c511
< local(@components) = split( /\//, $_);
---
> local(@components) = ($_ =~ /([\/\@]?[^\/\@]+)/g);
-- Walt
-------
"Change is necessary. Change is good." - Lonnie Burton
"If you don't like those ideas, I got others." - Marshall McLuhan
Follow-Ups:
|
|
