#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Time;
my @arr="";
my $bull=0;
my @dates;
my $s;
my $st;
my $i;
my $url;
my $response;
my %repos;
my $username="arthurnn";
my $browser = LWP::UserAgent->new;
#$url="https://api.github.com/users/".$username."/repos";
print "localtime\n";
#open(my $fh, ">resp.txt") or die "cannot open file to output";

#$response = $browser->get( $url );
#die "Can't get $url -- ", $response->status_line
#unless $response->is_success;
#$s=$response->content;
#$i=0;
#while ($i<length($s)-13){
#   $st='';
#       if (substr ($s,$i,10) eq 'full_name"'){
#       $i=$i+12;
#       while (substr($s,$i,1) ne '"') {
#       $st=$st.substr($s,$i++,1);
#       }
#   push (@arr, $st);
#   }
#   ++$i;
#}
#$url="https://api.github.com/repos/".$arr[1]."/commits";
$url="https://api.github.com/repos/arthurnn/24pullrequests/commits";
$response = $browser->get( $url );
die "Can't get $url -- ", $response->status_line
unless $response->is_success;
$s=$response->content;
$i=0;
while ($i<length($s)-20){
        if (substr ($s,$i,6) eq '"date"'){
            $bull=!$bull;
            if ($bull) {
                $i=$i+8;
                push (@dates, substr($s,$i,20));
            }
        }
    ++$i;
}





#   foreach $i (@dates) {print $fh "$i\n"};

#close $fh;