#!/usr/bin/perl

use strict;
use warnings;

use Win32::IEAutomation;

my $ie = Win32::IEAutomation->new( visible => 1 );
$ie->gotoURL("https://www.iryo.pref.tokushima.jp/iryou-kokai/MainMenu");
$ie->getButton('name:', 'submit_find')->Click;

my $frame = $ie->getFrame('name:', 'search_low');
my @links = $frame->getAllLinks();

my @urls = map { $_->linkUrl } @links;

foreach my $url (@urls) {                 
    next unless $url  =~ m!^https://www\.iryo\.pref\.tokushima\.jp/iryou\-kokai/SimpleView\?kikan=(\d+)$!;
    
    $ie->gotoURL( $url );             
    $ie->getFrame('name:', 'sv_low' );
    
    my $filename = "$1.html";
    print "FILENAME: $filename\n";
    
    open(F, "> $filename") or die $!;     
    print F $ie->Content;
    close F;        
}

use strict;
use LWP::UserAgent;
use HTTP::Headers;

my $header = new HTTP::Headers;
$header->header("User-Agent" => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.40607)');
$header->header("Accept-Language" => "de");
$header->header("Accept" => "*/*");

my $useragent = LWP::UserAgent->new('timeout' => 50);
my $initial_request = HTTP::Request->new('GET', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/MainMenu', $header);
my $cookieid = '';
my $initial_response = $useragent->simple_request($initial_request);
if($initial_response->is_success())
{
    if($initial_response->header('set-cookie') =~ m/JSESSIONID=([^;]+);/)
    {
        $cookieid = $1;
    }
    $header->header('Cookie', 'JSESSIONID=' . $cookieid);
    my $search_header = $header;
    $search_header->header('referer', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/MainMenu');
    my $search_request = HTTP::Request->new('GET', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/freeword?freetext=&submit_find=%E6%A4%9C%E7%B4%A2%E9%96%8B%E5%A7%8B&chiku=36', $search_header);
    print $search_request->as_string . "\n\n";
    my $search_response = $useragent->simple_request($search_request);
    if($search_response->is_success())
    {
        print "got main\n";
        my $search_result_header = $header;
        $search_result_header->header('referer', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/MainMenu');
        my $search_result_request = HTTP::Request->new('GET', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/search_low.jsp?freetext=&submit_find=%E6%A4%9C%E7%B4%A2%E9%96%8B%E5%A7%8B&chiku=36', $search_result_header);
        print $search_result_request->as_string . "\n\n";
        my $search_result_response = $useragent->simple_request($search_result_request);
        if($search_result_response->is_success())
        {
            print "got results\n";
    
            open(OUTPUT, ">search.htm") || die $!;
            print OUTPUT $search_result_response->content;
            close(OUTPUT);
            
            my $search_single_result_header = $header;
            $search_single_result_header->header('referer', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/search_low.jsp?freetext=&submit_find=%E6%A4%9C%E7%B4%A2%E9%96%8B%E5%A7%8B&chiku=36');
            my $search_single_result_request = HTTP::Request->new('GET', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/SimpleView?kikan=6510412', $search_single_result_header);
            print $search_single_result_request->as_string . "\n\n";
            my $search_single_result_response = $useragent->simple_request($search_single_result_request);
            if($search_single_result_response->is_success())
            {
               
 print "got 1 result\n";
               
 my $search_single_result_text_header = $header;
               
 $search_single_result_text_header->header('referer', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/SimpleView?kikan=6510412');
               
 my $search_single_result_text_request = HTTP::Request->new('GET', 'https://www.iryo.pref.tokushima.jp/iryou-kokai/SimpleView_Low.jsp', $search_single_result_header);
               
 print $search_single_result_text_request->as_string . "\n\n";
               
 my $search_single_result_text_response = $useragent->simple_request($search_single_result_text_request);
               
 if($search_single_result_text_response->is_success())
               
 {
               
     print "got 1 text results\n";
            
               
     open(OUTPUT, ">search1res.htm") || die $!;
               
     print OUTPUT $search_single_result_text_response->content;
               
     close(OUTPUT);
               
 }
               
 else
               
 {
               
     $search_result_response->status_line . "\n\n";
               
 }
        
            }
            else
            {
               
 $search_single_result_response->status_line . "\n\n";
            }

        }
        else
        {
            $search_result_response->status_line . "\n\n";
        }
    }
    else
    {
        print $search_response->status_line . "\n";
    }
}
else
{
    print $initial_response->status_line . "\n";
}