Subversion Repositories DevTools

Rev

Rev 5855 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5855 Rev 6120
Line 574... Line 574...
574 
    }
 574 
    }
575 
 
 575 
 
576 
    #
 576 
    #
577 
    #   Insert tree sections into the main config file template
 577 
    #   Insert tree sections into the main config file template
578 
    #
 578 
    #
- 
 
 579 
    my @hostItems;
579 
    my $hostList = join( ',', map { '\'http://' . $_ .'\''} @addressList );
 580 
    push @hostItems,  map { '\'http://' . $_ .'\''} @addressList;
- 
 
 581 
    push @hostItems,  map { '\'https://' . $_ .'\''} @addressList;
- 
 
 582 
 
- 
 
 583 
    my $hostList = join( ',', @hostItems );
580 
 
 584 
 
581 
    my $tfileName = catfile($scriptDir, 'lxr.template');
 585 
    my $tfileName = catfile($scriptDir, 'lxr.template');
582 
    my $lxrFileName = catfile($Config->{lxr}, 'lxr.new.conf');
 586 
    my $lxrFileName = catfile($Config->{lxr}, 'lxr.new.conf');
583 
    unlink $lxrFileName;
 587 
    unlink $lxrFileName;
584 
    open( my $tf, '<', $tfileName) || Error ("Cannot open $tfileName. $!");
 588 
    open( my $tf, '<', $tfileName) || Error ("Cannot open $tfileName. $!");