CPAN-Testers-WWW-Statistics

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

                "DBI": "0",
                "DBD::mysql": "0",
                "File::Basename": "0",
                "File::Copy": "0",
                "File::Path": "0",
                "File::Slurp": "0",
                "GD::Graph::lines": "0",
                "Getopt::ArgvFile": "0",
                "Getopt::Long": "0",
                "HTML::Entities": "0",
                "HTTP::Request": "0",
                "IO::File": "0",
                "JSON": "0",
                "LWP::UserAgent": "0",
                "Sort::Versions": "0",
                "Regexp::Assemble": "0",
                "Template": "0",
                "Time::Piece": "0"
            }
        },
        "test" : {

META.yml  view on Meta::CPAN

  DBI:                              0
  DBD::mysql:                       0
  GD::Graph::lines:                 0
  File::Basename:                   0
  File::Copy:                       0
  File::Path:                       0
  File::Slurp:                      0
  Getopt::ArgvFile:                 0
  Getopt::Long:                     0
  HTML::Entities:                   0
  HTTP::Request:                    0
  IO::File:                         0
  JSON:                             0
  LWP::UserAgent:                   0
  Sort::Versions:                   0
  Regexp::Assemble:                 0
  Template:                         0
  Time::Piece:                      0
recommends:
  Test::CPAN::Meta:                 0
  Test::CPAN::Meta::JSON:           0

Makefile.PL  view on Meta::CPAN

        'Data::Dumper'                      => 0,       # for debugging purposes
        'DateTime'                          => 0,
        'GD::Graph::lines'                  => 0,
        'File::Basename'                    => 0,
        'File::Copy'                        => 0,
        'File::Path'                        => 0,
        'File::Slurp'                       => 0,
        'Getopt::ArgvFile'                  => 0,
        'Getopt::Long'                      => 0,
        'HTML::Entities'                    => 0,
        'HTTP::Request'                     => 0,
        'IO::File'                          => 0,
        'JSON'                              => 0,
        'LWP::UserAgent'                    => 0,
        'Regexp::Assemble'                  => 0,
        'Sort::Versions'                    => 0,
        'Template'                          => 2.19,
        'Time::Piece'                       => 0,

        # for getmailrc.pl
        'WWW::Mechanize'                    => 0,

lib/CPAN/Testers/WWW/Statistics/Graphs.pm  view on Meta::CPAN

=cut

# -------------------------------------
# Library Modules

use File::Basename;
use File::Path;
use HTML::Entities;
use IO::File;
use LWP::UserAgent;
use HTTP::Request;

# -------------------------------------
# Variables

my %month = (
    0 => 'January',   1 => 'February', 2 => 'March',     3 => 'April',
    4 => 'May',       5 => 'June',     6 => 'July',      7 => 'August',
    8 => 'September', 9 => 'October', 10 => 'November', 11 => 'December'
);

lib/CPAN/Testers/WWW/Statistics/Graphs.pm  view on Meta::CPAN

            $self->{parent}->_log("writing graph - $g->[0]-$r");

            my $url = $self->_make_graph($r,@$g);
            next    unless($url);

            $self->{parent}->_log("url - [".(length $url)."] $url");
    #        print "$url\n";

            my $res;
            eval {
                my $req = HTTP::Request->new(GET => $url);
                $res = $lwp->request($req);
            };

            if($@ || !$res->is_success()) {
                $file = "$results-$r.html";
                $self->{parent}->_log("FAIL: $0 - Cannot access page - see '$file' [$url] [" . length($url) . "] [$@]\n");
                _save_content($res,$file);
                $status = 1;
            } elsif($res->header('Content-Type') =~ /html/) {
                $file = "$results-$r.html";