#!/usr/bin/perl
# hello_get.cgi
# RJM Programming
# February, 2023

use DateTime;
use DateTime::TimeZone;
use DBI;
use DBD::mysql;
use Spreadsheet::WriteExcel;
use Data::Dumper qw(Dumper);
use LWP::UserAgent ();
#use PDF::Create;
use utf8;
#use Unicode::Escape;

local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;

if ($ENV{'REQUEST_METHOD'} eq "GET") {
   $buffer = $ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
   read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

# Split information into name/value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%(..)/pack("C", hex($1))/eg;
   $FORM{$name} = $value;
}

my $rest = "";
$first_name = $FORM{first_name};
$last_name  = $FORM{last_name};
$inurl = $FORM{inurl};
my $before_page = "";
my $allbutlastbit = "";
my $lastbit = (split '/', $ENV{REQUEST_URI})[-1];
my $page_url = 'http';
$page_url.='s' if $ENV{HTTPS};
$page_url.='://';
if ($ENV{SERVER_PORT} != 80) {
    $before_page="$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/";
    $page_url.="$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{REQUEST_URI}";
} else {
    $before_page="$ENV{SERVER_NAME}/";
    $page_url.="$ENV{SERVER_NAME}.$ENV{REQUEST_URI}";
}
if (length($lastbit) > 0) {
    $allbutlastbit = substr($page_url, 0, (length($page_url) - length($lastbit)));
} else {
    $allbutlastbit = $page_url;
}

if (length($inurl) == 0) {
 $inurl = $inurl;
} else { 
 $inurl =~ s/%3A/:/ig;
 $inurl =~ s/%2F/\//ig;
 $inurl =~ s/%3F/?/ig;
 $inurl =~ s/%26/&/ig;
 my $ipage_url = $inurl;
 my $ibefore_page = "";
 my $iallbutlastbit = "";
 my $ilastbit = (split '/', $inurl)[-1];
 my $lenseven = (7 + length($ilastbit));
 my $leneight = (8 + length($ilastbit));
 my $leni = length($inurl);
 if (length($ilastbit) > 0) {
    if ($lenseven == $leni) {
    $iallbutlastbit = "${inurl}/";
    } elsif ($leneight == $leni) {
    $iallbutlastbit = "${inurl}/";
    } else {
    $iallbutlastbit = substr($ipage_url, 0, (length($ipage_url) - length($ilastbit)));
    }
 } else {
    $iallbutlastbit = $ipage_url;
 }

 my $ua = LWP::UserAgent->new(timeout => 10);
 $ua->env_proxy;
 
 my $response = $ua->get($inurl);
 
 if ($response->is_success) {
    my $dcont = $response->decoded_content;
    #$dcont =~ s/html\>/div\>/ig;
    #$dcont =~ s/body\>/div\>/ig;
    $dcont =~ s/"\/\//"\/\//ig;
    $dcont =~ s/"http/"http/ig;
    $dcont =~ s/"file/"file/ig;
    $dotdot = "..\/";
    if (index($dcont, "rjmprogramming.com.au") >= 0) {
      $allbutlastbit =~ s/:443//ig;
      $allbutlastbit =~ s/\/cgi-bin\//\//ig;
      if (substr($allbutlastbit, -1, 1) == "/") {
        $allbutlastbit = substr($allbutlastbit, 0, (-1 + length($allbutlastbit)));
      }
      $dcont =~ s/"\//"${allbutlastbit}\//ig;
      #$dcont =~ s/ src="/ src="..\//ig;
      #$dcont =~ s/ href="/ href="..\//ig;
      $dcont =~ s/ src="/ src="${dotdot}/ig;
      $dcont =~ s/ action="/ action="${dotdot}/ig;
      $dcont =~ s/ srcset="/ srcset="${dotdot}/ig;
      $dcont =~ s/ href="/ href="${dotdot}/ig;
    } else {
      if (index($dcont, "wikipedia.org") >= 0) {
      $dotdot =~ s/\/wiki\//\//ig;
      ${iallbutlastbit} =~ s/\/wiki\//\//ig;
      } else {
      $dotdot = $iallbutlastbit;
      }
      if (substr($iallbutlastbit, -1, 1) == "/") {
        $iallbutlastbit = substr($iallbutlastbit, 0, (-1 + length($iallbutlastbit)));
      }
      $dcont =~ s/"\//"${iallbutlastbit}\//ig;
      $dcont =~ s/ src="/ src="${dotdot}/ig;
      $dcont =~ s/ srcset="/ srcset="${dotdot}/ig;
      $dcont =~ s/ action="/ action="${dotdot}/ig;
      $dcont =~ s/ href="/ href="${dotdot}/ig;
      $dcont =~ s/url\("/url\("${dotdot}/ig;
      $dcont =~ s/url\(portal\//url\(${dotdot}portal\//ig;
      $dcont =~ s/url\(static\//url\(${dotdot}static\//ig;
      $dcont =~ s/url\(wiki\//url\(${dotdot}wiki\//ig;
      $dcont =~ s/url\(er\//url\(${dotdot}er\//ig;
    }
    $dcont =~ s/"/"/ig;
    $dcont =~ s/\r\n//ig;
    $dcont =~ s/\n//ig;
    $dcont =~ s/\r//ig;
    # print "Content-type: text/html\n\n";
    $rest .= "<br><details id=drest><summary><h3><a target=_blank href=$inurl>$inurl</a></h3></summary><br><iframe style=width:100%;height:900px; srcdoc=\"" . $dcont . "\"></iframe></details><br>";
 }
 #else {
 #    die $response->status_line;
 #}
}
$blogp  = $FORM{blogp};
$blogp =~ s/%2C/,/ig;
$blogi = $blogp;
my $blogt  = $FORM{blogt};
$blogt =~ s/%2C/,/ig;
$oneletter = substr( $first_name, 0, 1 );

#my $uemoji  = Unicode::Escape->new($FORM{emoji});
my $emoji = chr(0x0001F517); # "\xf0\x9f\x98\x80"; #$uemoji->unescape;
#my $ucutei  = Unicode::Escape->new($FORM{cutei});
my $cutei = chr(0x0001F3C3); # "\xf0\x9f\x98\x80"; #$ucutei->unescape;
#my $uimgei  = Unicode::Escape->new($FORM{imgei});
my $imgei = chr(0x0001F5BC); # "\xf0\x9f\x98\x80"; #$uimgei->unescape;

$dt = DateTime->now;    # same as ( epoch => time )

$dttz = DateTime::TimeZone->new( name => 'local' )->name();

$dt->set_time_zone( $dttz );
 
$year  = $dt->year;
$month = $dt->month;        # 1-12
 
$day = $dt->day;            # 1-31
 
$dow = $dt->day_of_week;    # 1-7 (Monday is 1)
 
$hour   = $dt->hour;        # 0-23
$minute = $dt->minute;      # 0-59
 
$second = $dt->second;      # 0-61 (leap seconds!)
 
$doy = $dt->day_of_year;    # 1-366 (leap years)
 
$doq = $dt->day_of_quarter; # 1..
 
$qtr = $dt->quarter;        # 1-4

$dmy = $dt->dmy('/');    # 06/12/2002
 
$hms = $dt->hms;         # 14:02:29

$tt = "";
$cont = "";
$oneletter = " ";

print "Content-type:text/html\r\n\r\n";
print "<html>";
print "<head>";
print "<title>Hello - Second CGI Program</title>";
print "<script type=text/javascript>";
print " var ls='', ns='', qwr='', wo=null, hears=[], vsexthears=[], exthears=[], jd=0, yes=false, lhear=''; ";
print " function zeroize(iinsf) { var insf=iinsf; var sep='/', i=0; while (insf.substring(i).substring(0,1) >= '0' && insf.substring(i).substring(0,1) <= '9') { i++; } sep=insf.substring(i).substring(0,1); ";
print "   var arr=insf.split(sep); ";
print "   if (eval('' + arr.length) >= 3) { ";
print "    if (eval('' + arr[1].length) == 1) { insf=insf.replace(sep + arr[1] + sep, sep + '0' + arr[1] + sep);  } ";
print "    if (eval('' + arr[0].length) == 1) { insf='0' + insf;  } ";
print "    arr=insf.split(' ')[1].split(':'); ";
print "    if (eval('' + arr.length) >= 3) { ";
print "      if (insf.indexOf(' pm') != -1) { insf=insf.replace(' ' + arr[0].trim() + ':', ' ' + eval(12 + eval('' + arr[0].trim())) + ':').replace(' pm', ' ');  arr=insf.split(' ')[1].split(':');   } ";
print "      if (eval(-1 + eval('' + arr[1])) == eval('' + document.getElementById('mystime').innerHTML.split(':')[1])) {  insf=insf.replace(':' + arr[1] + ':', ':' + document.getElementById('mystime').innerHTML.split(':')[1] + ':');  arr[1]='zz';   } "; 
print "      if (eval('' + arr[1].length) == 1) { insf=insf.replace(':' + arr[1] + ':', ':0' + arr[1] + ':');  } ";
print "      if (eval('' + arr[0].trim().length) == 1) { insf=insf.replace(arr[0].trim() + ':', '0' + arr[0].trim() + ':');  } ";
print "    } ";
print "   } ";
print "   return insf; ";
print " } ";
print " function loctime() { if (ls == '') { hearall(); ";
print "   qwr='' + Intl.DateTimeFormat().resolvedOptions().timeZone; ";
print "   var d = new Date(); ";
print "   d.toLocaleString('en-US', { timeZone: qwr }); ";
print "   ns=document.getElementById('mystime').innerHTML.split(':')[2].split(' ')[0]; ";
print "   ls=zeroize(('' + d.toLocaleString()).replace(',','')) + ' <a onclick=alert(qwr); style=cursor:pointer;text-decoration:underline;>GMT' + d.toString().split(' GMT')[1] + '</a>'; } if (!document.getElementById('mytime')) { setTimeout(loctime,1000); } else { ";
print "   document.getElementById('mytime').innerHTML=ls.replace(':' + ls.split(':')[2].split(' ')[0] + ' ', ':' + ns + ' '); } ";
#print "   window.open('HTTP://localhost:8888/macos_say_record.php?docronwork=say%20Hello%20$first_name%20$last_name','_blank','top=150,left=50,width=50,height=50'); ";
print " } ";
print " function ihit(proposed) { ";
print "   var beg=proposed.split('<')[0].split('[')[0]; var begs=proposed.split('>'); for (var jj=1; jj<begs.length; jj++) { beg+=' ' + begs[jj].split('<')[0].split('[')[0]; } ";
print "   return beg; } ";
print " function closeit() { if (wo) { if (!wo.closed) { wo.close(); wo=null;   } else { wo=null;  } if (yes && hears.length > 0) { hear(hears[0]); hears.shift();  } return '';  } setTimeout(closeit, 15000); ";
print " } ";
print " function exthear(xwhat) { lhear=''; var what=xwhat; for (var iijj=0; iijj<vsexthears.length; iijj++) { if (1 == 2 && xwhat.toLowerCase().trim().indexOf(vsexthears[iijj].toLowerCase().trim()) == -1) {   alert(xwhat + ' does not contain ' + vsexthears[iijj].toLowerCase().trim());   } else if (xwhat.toLowerCase().trim().indexOf(vsexthears[iijj].toLowerCase().trim()) != -1) { what=exthears[iijj]; while (what.indexOf(String.fromCharCode(10)) != -1) { what=what.replace(String.fromCharCode(10),' '); } while (what.indexOf(String.fromCharCode(39)) != -1) { what=what.replace(String.fromCharCode(39),' '); } while (what.indexOf(String.fromCharCode(34)) != -1) { what=what.replace(String.fromCharCode(34),' '); } while (what.indexOf('   ') != -1) { what=what.replace('   ',' '); }  while (what.indexOf('  ') != -1) { what=what.replace('  ',' '); } }    } lhear='';  if (wo) { if (!wo.closed) { wo.close(); wo=null;   } else { wo=null;  }  }  wo=window.open('HTTP://localhost:8888/macos_say_record.php?docronwork=say%20' + encodeURIComponent(what).substring(0,600),'_blank','top=150,left=50,width=50,height=50');  setTimeout(closeit, 65000);  ";
print " } ";
print " function lhears() { what=lhear;   if (what == '') { return ''; } if (wo) { if (!wo.closed) { wo.close(); wo=null;   } else { wo=null;  }  }  wo=window.open('HTTP://localhost:8888/macos_say_record.php?docronwork=say%20' + encodeURIComponent(what),'_blank','top=150,left=50,width=50,height=50');  setTimeout(closeit, 15000); ";
print " } ";
print " function hear(what) { if (lhear == '') { lhear=what; setTimeout(lhears, 4000);  } if (wo) { if (!wo.closed) { wo.close(); wo=null;   } else { wo=null;  }  }  wo=window.open('HTTP://localhost:8888/macos_say_record.php?docronwork=say%20' + encodeURIComponent(what),'_blank','top=150,left=50,width=50,height=50');  setTimeout(closeit, 15000); ";
print " } ";
print " function hearall() { var dasis=document.getElementsByTagName('div'); var asis=document.getElementsByTagName('button'); var thisjd=0; jd=0; while (thisjd < dasis.length && ('' + dasis[thisjd].className) != 'divcont') { thisjd++;    } jd=thisjd; for (var ii=0; ii<asis.length; ii++) { if (('' + asis[ii].className) == 'hear') {    vsexthears.push((asis[ii].getAttribute('data-alt')));   exthears.push(ihit(asis[ii].getAttribute('data-alt') + ' ' + dasis[jd].innerHTML)); hears.push(asis[ii].getAttribute('data-alt')); thisjd++; while (thisjd < dasis.length && ('' + dasis[thisjd].className) != 'divcont') { thisjd++;    } jd=thisjd;   }  } ";
print " } ";
print "</script>";
print "</head>";
print "<body onload=setTimeout(loctime,1000);>";
print "<h2 style='font-family:Courier New;'><span id=myspan><a ondblclick='yes=true; setTimeout(hearall,1000);' id=mya title='MacOS MAMP HTTP://localhost:8888/macos_say_record.php text to audio ... download instructions, as relevant, can be determined via a read of https://www.rjmprogramming.com.au/ITblog/mamp-timekeeping-web-application-visibility-tutorial/ ... double click for all Tutorial Title audios, also, sequenced' style=cursor:pointer;background-color:lightgreen; onclick=\" if (wo) { return '';  }  if (wo) { if (!wo.closed) { wo.close(); wo=null;   } else { wo=null;  }  }  wo=window.open('HTTP://localhost:8888/macos_say_record.php?docronwork=say%20Hello%20$first_name%20$last_name','_blank','top=150,left=50,width=50,height=50');  setTimeout(closeit, 15000);  \">Hello $first_name $last_name</a></span><br>&nbsp;Local: <span id=mytime></span><br>Server: <span id=mystime>$dmy $hms</span> $dttz </h2><h4>";

if ($blogp == "") { 
 $blogp = $first_name; 
 $oneletter = substr( $blogp, 0, 1 ); 
} 

if ($blogp != "") { 
 $oneletter = substr( $blogp, 0, 1 );

 if ((ord($oneletter) >= ord("0") && ord($oneletter) <= ord("9")) || ord($oneletter) == 40 ){ 
  my ($oneurl) = split /,/, $blogp;

  if ($oneurl == $blogp) {
   $oneletter = substr( $blogp, 0, 1 ); 
  } else {
   if (ord($oneletter) >= ord("0") && ord($oneletter) <= ord("9")) {
     $oneletter = "1";
     $blogp = "( $blogp )";
   } else {
     $oneletter = "2";
   }
 }

 }
} 
 
if (ord($oneletter) >= ord("0") && ord($oneletter) <= ord("9")){
 # /*** mysql hostname ***/
 $hostname = 'dbhost';

 # /*** mysql username ***/
 $username = 'username';

 # /*** mysql ***/
 $password = 'password';

 $dbname = 'dbname';

 $tname = 'table_name';
 $hostname = "DBI:mysql:$dbname:$hostname";

 $dbh = DBI->connect($hostname, $username, $password);

 my ($oneaurl) = split /,/, $blogp;
 if (index($blogp, ',') <= 0) {
   $sth = $dbh->prepare("SELECT post_title, post_content, ID FROM $tname WHERE ID=?");
 } else {
   if (ord($oneletter) != 40) {
     $blogp = "($blogp)";
     $sth = $dbh->prepare("SELECT post_title, post_content, ID FROM $tname WHERE ID in $blogp");
     $blogp = "";
   } else {
     $sth = $dbh->prepare("SELECT post_title, post_content, ID FROM $tname WHERE ID in $blogp");
     $blogp = "";
   }
 }

 if ($blogp == "") {
  $sth->execute();
 } else {
  $sth->execute( $blogp );
 }
 
 $one = 0;
 $two = 10;
 $exc = 0;
 $coln = "A";
 $dcol = 1;
 $rown = 6;
 $trown = 6;
 $alinkis = "";
 my $pdf = 0;
 my $workbook = 0; # Spreadsheet::WriteExcel->new('../perl.xls');
 my $date_format = 0;
 my $date = 0;
 
 # Set the default format for dates.
 
 while (($tt, $cont, $iid) = $sth->fetchrow_array()) {
  my ($idis) = split /,/, $blogi, 1;
  my ($yyyymmdd) =  substr( $blogt, $one, $two ); # split /,/, $blogt, 1;
  my ($junk, $imageu) = split / src="/, $cont;
  my ($imageurl) = split /"/, $imageu;
  my ($junk, $cutto) = split / href="/, $cont;
  my ($cuttothechase) = split /"/, $cutto;
  $blogt = substr( $blogt, 11 );
  if ($exc == 0) {
    $exc = 1;

    #my $pdf = PDF::Create->new(
    # 'filename'     => '../perl.pdf',
    # 'Author'       => "$first_name $last_name",
    # 'Title'        => 'Sample PDF',
    # 'CreationDate' => [ localtime ]
    #);
 
    # Add a A4 sized page
    #my $root = $pdf->new_page('MediaBox' => $pdf->get_page_size('A4'));
 
    # Add a page which inherits its attributes from $root
    #my $page1 = $root->new_page;
 
    # Prepare a font
    #my $font = $pdf->font('BaseFont' => 'Helvetica');
 
    # Prepare a Table of Content
    #my $toc = $pdf->new_outline('Title' => 'Title Page', 'Destination' => $page1);
 
    # Create a new Excel workbook
    $workbook = Spreadsheet::WriteExcel->new('../perl.xlsm');

    # Add a worksheet
    $worksheet = $workbook->add_worksheet();
    $worksheet->set_column(0, 0,  90); 
    $worksheet->set_column(1, 0,  30); 
    
    #  Add and define a format
    $format = $workbook->add_format(); # Add a format
    $format->set_bold();
    $format->set_color('red');
    $format->set_align('center');
    # my $date_format = $workbook->add_format({num_format => 'yyyy-mm-ddThh:mm:ss.sss'});
    $date_format = $workbook->add_format(
      bold       => 1,
      align      => 'center',
      num_format => 'yyyy-mm-dd hh:mm'
    );
 
    # Write a formatted and unformatted string, row and column notation.
    $col = $row = 0;
    $worksheet->write($row, $col, "$first_name $last_name", $format);
    $worksheet->write(1,    $col, 'My Study Guide', $format);
 
    # Write some text
    #$page1->stringc($font, 40, 306, 426, "$first_name $last_name");
    #$page1->stringc($font, 20, 306, 396, "My Study Guide");
    ##$page1->stringc($font, 20, 306, 300, 'by John Doe <john.doe@example.com>'); 
    
    # my $status = system("open HTTP://localhost:8888/macos_say_record.php?docronwork=say%20$first_name%20$last_name");
 
    # Write a number and a formula using A1 notation
    $worksheet->write("${coln}3", "$tt");
    $date = sprintf "%sT03:00:00.000Z", $yyyymmdd;
    $worksheet->write_date_time(2, $dcol, $date, $date_format);
    $worksheet->write("${coln}4", "https://www.rjmprogramming.com.au/ITblog/?p=$iid" . "#$emoji");
    $date = sprintf "%sT03:01:00.000Z", $yyyymmdd;
    $worksheet->write_date_time(3, $dcol, $date, $date_format);
    $worksheet->write("${coln}5", "$cuttothechase" . "#$cutei");
    $date = sprintf "%sT03:02:00.000Z", $yyyymmdd;
    $worksheet->write_date_time(4, $dcol, $date, $date_format);
    $worksheet->write("${coln}6", "$imageurl" . "#$imgei");
    $date = sprintf "%sT03:03:00.000Z", $yyyymmdd;
    $worksheet->write_date_time(5, $dcol, $date, $date_format);
    $alinkis = "<a download=perl.xlsm href='//www.rjmprogramming.com.au/perl.xlsm' title='Download Excel spreadsheet'>&#128196;</a>&nbsp;&nbsp;<button data-alt=\"$tt\" class=hear style=cursor:pointer;background-color:lightgreen;display:inline-block; ondblclick=\"exthear('$tt');\" onclick=\"hear('$tt');\" data-href='//www.rjmprogramming.com.au/perl.pdf' title='Hear This Perhaps ... relies on MacOS MAMP HTTP://localhost:8888/macos_say_record.php text to audio ... download instructions, as relevant, can be determined via a read of https://www.rjmprogramming.com.au/ITblog/mamp-timekeeping-web-application-visibility-tutorial/ ... double click tries audio into the wording of the blog posting content'>&#128066;</button>&nbsp;&nbsp;<a target=_blank href=$cuttothechase title='Cut to the chase'>&#127939;</a>&nbsp;&nbsp;<a target=_blank href=$imageurl title='Image URL'>&#128444;</a>";
    print "<details id=myd><summary style=background-color:#f0f0f0; id=mys><h1><a target=_blank href='//www.rjmprogramming.com.au/ITblog/?p=$iid'>$tt</a>&nbsp;&nbsp;$alinkis</h1></summary><div class=divcont>$cont</div></details>\n";
  } else {
    $trown += 4;
    $date = sprintf "%sT03:00:00.000Z", $yyyymmdd;
    $worksheet->write_date_time($rown, $dcol, $date, $date_format);
    $rown += 1;
    $worksheet->write("${coln}${rown}", "$tt");
    $date = sprintf "%sT03:01:00.000Z", $yyyymmdd;
    $worksheet->write_date_time($rown, $dcol, $date, $date_format);
    $rown += 1;
    $worksheet->write("${coln}${rown}", "https://www.rjmprogramming.com.au/ITblog/?p=$iid" . "#$emoji");
    $date = sprintf "%sT03:02:00.000Z", $yyyymmdd;
    $worksheet->write_date_time($rown, $dcol, $date, $date_format);
    $rown += 1;
    $worksheet->write("${coln}${rown}", "$cuttothechase" . "#$cutei");
    $date = sprintf "%sT03:03:00.000Z", $yyyymmdd;
    $worksheet->write_date_time($rown, $dcol, $date, $date_format);
    $rown += 1;
    $worksheet->write("${coln}${rown}", "$imageurl" . "#$imgei");
    $alinkis = "<a download=perl.xlsm href='//www.rjmprogramming.com.au/perl.xlsm' title='Download Excel spreadsheet'>&#128196;</a>&nbsp;&nbsp;<button data-alt=\"$tt\" class=hear style=cursor:pointer;background-color:lightgreen;display:inline-block; ondblclick=\"exthear('$tt');\" onclick=\"hear('$tt');\" data-href='//www.rjmprogramming.com.au/perl.pdf' title='Hear This Perhaps ... relies on MacOS MAMP HTTP://localhost:8888/macos_say_record.php text to audio ... download instructions, as relevant, can be determined via a read of https://www.rjmprogramming.com.au/ITblog/mamp-timekeeping-web-application-visibility-tutorial/ ... double click tries audio into the wording of the blog posting content'>&#128066;</button>&nbsp;&nbsp;<a target=_blank href=$cuttothechase title='Cut to the chase'>&#127939;</a>&nbsp;&nbsp;<a target=_blank href=$imageurl title='Image URL'>&#128444;</a>";
    print "<details class=myd><summary style=background-color:#f0f0f0; class=mys><h1><a target=_blank href='//www.rjmprogramming.com.au/ITblog/?p=$iid'>$tt</a>&nbsp;&nbsp;$alinkis</h1></summary><div class=divcont>$cont</div></details>\n";
  }
  # print "@row\n";
 }
 # }
}

print "</h4>" . $rest . "<br><br><iframe id=myif src='/hello_get.html' style='width:100%; height:1500px;'></iframe></body>";
print "</html>";

1;