#! /usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize::Chrome;
use HTML::TableExtract qw(tree);
use open ':std', OUT => ':utf8';
use Prompt::Timeout;
use constant TIMEOUT  => 3;
use constant MAXTRIES => 30;

## redesign for solar eclipse of aug 21, 2017

### begin 2020 rewrite
### with WWW::Mechanize::Chrome
### and Log::Log4perl

use Log::Log4perl;
use Data::Dump;
use 5.016;

my $log_conf3 = "/home/hogan/Documents/hogan/logs/conf_files/3.conf";
my $log_conf4 = "/home/hogan/Documents/hogan/logs/conf_files/4.conf";

#Log::Log4perl::init($log_conf3); #debug
Log::Log4perl::init($log_conf4);    #info
my $logger        = Log::Log4perl->get_logger();
my $current_level = $logger->level();
$logger->info("script begins with $current_level");
my $a = 'b';

for my $i ( 1 .. 2 ) {

  say "i is $i";
  $logger->info("i is $i");
  my $site = 'http://www.fourmilab.ch/yoursky/cities.html';
  my $mech = WWW::Mechanize::Chrome->new( headless => 1, );
  $mech->get($site);

  $mech->follow_link( text_regex => qr/Portland OR/i );
  say "We are at " . $mech->uri;

  if ( $mech->success() ) {
    open my $gh, '>', "$a.form-log.txt"
      or warn "Couldn't open logfile $a.form-log.txt $!";
    $mech->dump_forms($gh);
    say $gh "=========";
  }

  my $guess = 2458960;    #Earth day 2020 in julian days

  $mech->form_number($i);
  say "$i works"
    if $mech->success();
  say $mech->current_form->{name};    # ??
  say "current form has a name"
    if $mech->success();

## syntax that used to work with WWW::Mechanize
  #   $mech->set_fields(qw'date 2');

  #$mech->set_fields();
  $mech->field( date => '2' );    ## analogs to set set_fields in WM
  say "first field set succeeded"
    if $mech->success();
  $mech->field( jd => $guess );
  say "second field set succeeded"
    if $mech->success();
  $mech->click_button( value => "Update" );    # this seems similar to WM
  say "clickbutton succeeded"
    if $mech->success();
  my $string = $mech->uri;
  $logger->info("We are at $string")
    if $mech->success();

## get a screenshot of how far we made it
  my $page_png = $mech->content_as_png();
  my $base     = '/home/hogan/5.scripts/1.corion./template_stuff/aimages';
  my $fn       = $base . "/$a.png";
  open my $fh, '>', $fn
    or die "Couldn't create '$fn': $!";
  binmode $fh, ':raw';
  print $fh $page_png;
  close $fh;
  print "exiting show_screen with letter $a\n";
  my $n = 2;
  $logger->info("sleeping for $n seconds  ====================");
  $mech->sleep($n);
  $a++;
}