ANTICHAT — форум по информационной безопасности, OSINT и технологиям

use strict;
use warnings;
use Getopt::Std;
use HTTP::Cookies;
use threads;
use threads::shared;
use LWP;
use HTTP::Request::Common qw(POST);
use HTTP::Request::Common qw(GET);
use Data::Dumper qw(Dumper);

my $cookie_jar = HTTP::Cookies->new(
    file => 'wpcheck.dat',
    autosave => 1,
);

getopt('d:t:');

our($opt_d, $opt_t, $dfh);

my @threads;
my @domains;
my @running;

open($dfh, '){
    chomp $thisDomain;
    push @domains, $thisDomain;
}

while(@domains){
    @running = threads->list(threads::running);
    if(scalar @running new(\&check);
        # Вот тут скрипт выходит и всё.
    }
   
    foreach (@threads){
        if($_->is_joinable()){
            $_->join();
        }
    }
}

sub check{
    my $el = pop(@domains);
    my $ua = LWP::UserAgent->new;

    $ua->cookie_jar($cookie_jar);

    my $resp = $ua->get("http://$el/wp-login.php");

    if($resp->code() == 200){
        print "$el\n";
    }
}