#!/usr/bin/perl

use LWP::UserAgent;
#use HTTP::Request::Common qw(GET);
use LWP::Simple;
$ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/534.24 (KHTML, like Gecko) Ubuntu/10.10 Chromium/12.0.703.0 Chrome/12.0.703.0 Safari/534.24");
#$ua->timeout(30);

my $url = $ARGV[0];
my $plugin = $ARGV[1];

&help unless @ARGV==2;

open(ifile, ";
        close("ifile");

&fun_cheak;

sub trim {
    my($string)=@_;
    for ($string) {
        s/^\s+//;
        s/\s+$//;
        }
    return $string;
    }
  

sub help{
            print "Usage:\n";
            print "cms.pl   || cms.pl list.txt contact-form-7\n";
            print "";
            exit;
            }

sub fun_cheak{
print "..::START::..\n";
print "--------------\n";
    foreach my $urls(@dirs){

my $query=trim($urls)."/wp-content/plugins/$plugin/readme.txt";
my $resp = $ua->get($query);
#print  "$query\n";

#parsing
                        if($resp->content =~ /Contributors/){ #Контрольное слово
                            print "[$plugin]::$urls\n";
                            open(TXTS,"+>>good.txt");
                          
                            print TXTS $urls;
                            close(TXTS);
                          
                            }

            }
print "\n--------------\n";
print "..::FINISH::..";
}