# wenn wir fremde links nicht folgen sollen 
            if ( ($follow_flag == "0") && ($is_same == "1") ) {
               
 
               
 # tue hier nun was wenn wir nur hostgleiche sachen scannen sollen
               
 print "[$i] Scanning $tmp_url\n";
               
 
               
 if ($thread_count < $thread_max) {
               
     
               
     push @threads, threads->new(\&CLIENT_get_links_threads, $tmp_url, $i, "threads_links.txt");    
               
     $thread_count++;
               
 
               
 } elsif ($thread_count == $thread_max){
               
 
               
     print "\n&linktiefe_scanner_threads(): Max Threads reached: joining them!\n\n" if ($debug == "1");
               
     foreach (@threads) { eval { $_->join; } or warn $@ if $@; };
               
     $thread_count = "0";
               
     
               
 } elsif ($#working_links == $link_count) {
               
     
               
     print "\n&linktiefe_scanner_threads(): Last Link in Array - Threads: joining them!\n\n" if ($debug == "1");
               
     foreach (@threads) { eval { $_->join; } or warn $@ if $@; };
               
     
               
 }
               
     
               
 # ...
               
 # here do something with the links (spider / mirror )
               
 # ...
            
            # wenn wir fremde links folgen sollen
            } elsif ($follow_flag == "1"){