#!/usr/bin/perl
#

use strict;

main();
exit(0);


sub main
{
	my $useragent;					# User agent.

	$useragent = $ENV{HTTP_USER_AGENT};


	if($useragent =~ /ipad/i)
	{
		ipad_page();
	}
	elsif($useragent =~ /iphone/i)
	{
		ipad_page();
	}
	else
	{
		default_page();
	}

}

#------------------------------------------------------------------------
# Routine:	ipad_page()
#
sub ipad_page
{

	print '
<html>
<title>Wayne Morrison</title>

<body bgcolor="#97aeff">

<br><br>
<center>
<h2>Wayne Morrison</h2>
</center>
<br>

<center>
<img src="https://waynemorrison.com/images/Port_Righ-at-AMF02.jpg">
<p>
That\'s me on the left.
</center>
<p>

Some things I\'ve done:
<ul>

<li><a href="https://waynemorrison.com/software">Software utilities</a>
I\'ve written for my own use.  You might find them useful as well.
<p>

<li><a href="https://www.dnssec-tools.org/download">DNSSEC-Tools Suite</a> --
free open-source software I\'ve written through work.  I didn\'t write the
whole DNSSEC-Tools package; but I did design and write <i>zonesigner</i>,
<i>rollerd</i>, their accompanying modules and tools, and the Owl Monitoring
System.<br>
(Owl was released for general use in late February, 2013.)
<p>

<li>I play the Highland bagpipe, the shuttlepipe, the English concertina,
and sing in the folk group Port Righ.
Here are some <a href="https://portrigh.com/sound/index.html">sound files</a>
of our music.

<!---
<li><a href="https://waynemorrison.com/photos">Photos</a>
---->
</ul>

</body>
</html>
';

}

#------------------------------------------------------------------------
# Routine:	default_page()
#
sub default_page
{
	print "Content-type: text/html\n\n";

	print '
<html>
<title>Wayne Morrison</title>

<style type="text/css" class="stuff">
stuff { display: block; margin-left: 3em; margin-right: 3em; }
</style>

<body bgcolor="#87cefa">

<br><br>
<center>
<h2>Wayne Morrison</h2>
</center>
<br>

<center>
<img src="https://waynemorrison.com/images/Port_Righ-at-AMF02.jpg">
<p>
That\'s me on the left.
</center>

<br><br><br>

<stuff>

Some things I\'ve done:
<ul>

<li><a href="https://waynemorrison.com/software">Software utilities</a>
I\'ve written for my own use.  You might find them useful as well.
<p>

<li><a href="https://www.dnssec-tools.org/download">DNSSEC-Tools Suite</a> --
free open-source software I\'ve written through work.  I didn\'t write the
whole DNSSEC-Tools package; but I did design and write <i>zonesigner</i>,
<i>rollerd</i>, their accompanying modules and tools, and the Owl Monitoring
System.<br>
(Owl was released for general use in late February, 2013.)
<p>

<li>I play the Highland bagpipe, the shuttlepipe, the English concertina,
and sing in the folk group Port Righ.
Here are some <a href="https://portrigh.com/sound/index.html">sound files</a>
of our music.
<p>

<!---
<li><a href="https://waynemorrison.com/photos">Photos</a>
---->
</ul>

</stuff>

</body>
</html>
';

}
