<html>
<head>
<title>hello_get ... Thanks to https://www.tutorialspoint.com/perl/perl_cgi.htm and https://perlmaven.com/most-popular-perl-modules and https://www.freecodecamp.org/news/how-to-format-dates-in-javascript/ and https://metacpan.org/pod/DBI and https://metacpan.org/pod/Data::Dumper and https://perlmaven.com/perl-split#:~:text=PHP%20has%20the%20explode%20function,the%20function%20is%20called%20split.</title>
<script type='text/javascript'>
var xcsv='';
var tcsv='';

function andlater(osel) {
xcsv='';
tcsv='';
for (var i=0; i<osel.length; i++) { if (osel.options[i].selected) { if (xcsv.length == 0) { if (osel.options[i].innerText.indexOf('(') != -1) { if (tcsv == '') { tcsv+='' + minuses(osel.options[i].innerText.split('(')[1].split(')')[0]); } else { tcsv+=',' + minuses(osel.options[i].innerText.split('(')[1].split(')')[0]); } } xcsv+='' + osel.options[i].value.split('?p=')[1].split('&')[0]; } else { if (osel.options[i].innerText.indexOf('(') != -1) { if (tcsv == '') { tcsv+='' + minuses(osel.options[i].innerText.split('(')[1].split(')')[0]); } else { tcsv+=',' + minuses(osel.options[i].innerText.split('(')[1].split(')')[0]); } } xcsv+=',' + osel.options[i].value.split('?p=')[1].split('&')[0]; } } }
setTimeout(alater, 2000);
return sio;
}

function minuses(inidea) {
if (eval('' + inidea.length) == 8) {
return inidea.substring(0,4) + '-' + inidea.substring(4).substring(0,2) + '-' + inidea.slice(-2);
}
return inidea;
}

function alater() {
document.getElementById('blogp').value=xcsv;
document.getElementById('blogt').value=tcsv;
}

function checkw(iois) {
if (iois != null) {
var aconto = (iois.contentWindow || iois.contentDocument);
if (aconto != null) {
if (aconto.document) { aconto = aconto.document; }
if (aconto.getElementById('tuts') != null) {
document.getElementById('dopt').innerHTML='Blog Posting(s): ' + aconto.getElementById('tuts').outerHTML.replace(' onchange=', ' multiple onchange="document.getElementById(' + "'" + 'blogp' + "'" + ').value=andlater(this).value.split(' + "'" + '?p=' + "'" + ')[1].split(' + "'" + '&' + "'" + ')[0];" data-onchange=') + '<br><br>';
}
}
}
}

function doems() {
document.getElementById('inurl').placeholder=document.URL.split('?')[0].split('#')[0];
document.getElementById('emoji').value=String.fromCodePoint(128279);
document.getElementById('cutei').value=String.fromCodePoint(127939);
document.getElementById('imgei').value=String.fromCodePoint(128444);
if (navigator.userAgent.match(/Android|BlackBerry|iPhone|iPad|iPod|Opera Mini|IEMobile/i)) {
document.getElementById('myform').method='GET';
}
}

</script>
</head>
<body onload=doems();>
<h1>hello_get.html HTML calls on hello_get.cgi Perl</h1>
<h3>RJM Programming - February, 2023</h3>
<h3>Thanks to <a target=_blank title='https://www.tutorialspoint.com/perl/perl_cgi.htm' href='https://www.tutorialspoint.com/perl/perl_cgi.htm'>https://www.tutorialspoint.com/perl/perl_cgi.htm</a> and <a target=_blank title='https://perlmaven.com/most-popular-perl-modules' href='https://perlmaven.com/most-popular-perl-modules'>https://perlmaven.com/most-popular-perl-modules</a> and <a target=_blank title='https://www.freecodecamp.org/news/how-to-format-dates-in-javascript/' href='https://www.freecodecamp.org/news/how-to-format-dates-in-javascript/'>https://www.freecodecamp.org/news/how-to-format-dates-in-javascript/</a> and <a target=_blank title='https://metacpan.org/pod/DBI' href='https://metacpan.org/pod/DBI'>https://metacpan.org/pod/DBI</a> and <a target=_blank title='Perl Data::Dumper module information' href='https://metacpan.org/pod/Data::Dumper' title='https://metacpan.org/pod/Data::Dumper'>https://metacpan.org/pod/Data::Dumper</a> and <a target=_blank title='https://perlmaven.com/perl-split#:~:text=PHP%20has%20the%20explode%20function,the%20function%20is%20called%20split.' href='https://perlmaven.com/perl-split#:~:text=PHP%20has%20the%20explode%20function,the%20function%20is%20called%20split.'>https://perlmaven.com/perl-split#:~:text=PHP%20has%20the%20explode%20function,the%20function%20is%20called%20split.</a></h3>
<br><br>
<FORM id=myform action = "/cgi-bin/hello_get.cgi" method = "POST">
First Name: <input type = "text" name = "first_name"> <br>

Last Name: <input type = "text" name = "last_name"> <br>

Optional URL to Show: <input ondblclick="if (this,value.length == 0) { this.value=this.placeholder; }" type = "url" style = "width:30%;" id = "inurl" name = "inurl" placeholder="" value="">
<div id=dopt></div>
<input type=hidden name=blogp value='' id="blogp"></input>
<input type=hidden name=blogt value='' id="blogt"></input>
<input type=hidden data-name=emoji value='' id="emoji"></input>
<input type=hidden data-name=cutei value='' id="cutei"></input>
<input type=hidden data-name=imgei value='' id="imgei"></input>
<input type = "submit" value = "Submit">
</FORM>
<iframe src='//www.rjmprogramming.com.au/Welcome.html' onload='checkw(this);' style='display:none;'></iframe>
</body>
</html>