sub handleLinks
{
    for(_test){ goto &$_ if $_ }
    my( $inner, $lastnodeid )= @_;
    my $title;
    my $HLS= getVars(getNode('handlelinks settings','setting'));
    my( $prefix, $nodeloc )= split( /:\/\//, $inner, 2 );
    if($nodeloc){
## change here
        $prefix = $1 if($$HLS{lc($prefix) =~ /^=(\w+)$/);
##
        ($nodeloc,$title)=split(/\|/,$nodeloc,2);
        my $cpantitle=$title || $nodeloc;
        my $escapedname=$query->escape($nodeloc);
        if($prefix){
            if($$HLS{lc($prefix)}){
                eval($$HLS{lc($prefix)});
            } else {
                return "[$prefix://$nodeloc]";
            }
        }
    } else {
       return linkNodeTitle($inner);
    }
}