DAV SVN Variable

<VirtualHost *>
    ServerName svn.adameus
    UserDir svn                                                                 
    <Perl>
		#VAR1 should be the REQUEST_URI
        %VAR1 = '/~alessandro';
        %VAR2 = %VAR1;
        %VAR2 =~ s/.*~([^\/]+\/).*/\1/;
        $Location{%VAR1}  = {

            DAV => 'svn',
            SVNPath => '/home/'.%VAR2.'/svn',
            AuthType => 'None',
        };
    </Perl>
#    <Location />
#       DAV svn
#       SVNPath /home/alessandro/svn                                            #       AuthType None
#    </Location>
</VirtualHost>