#!/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 '
Wayne Morrison
Wayne Morrison
That\'s me on the left.
Some things I\'ve done:
- Software utilities
I\'ve written for my own use. You might find them useful as well.
- DNSSEC-Tools Suite --
free open-source software I\'ve written through work. I didn\'t write the
whole DNSSEC-Tools package; but I did design and write zonesigner,
rollerd, their accompanying modules and tools, and the Owl Monitoring
System.
(Owl was released for general use in late February, 2013.)
- I play the Highland bagpipe, the shuttlepipe, the English concertina,
and sing in the folk group Port Righ.
Here are some sound files
of our music.
';
}
#------------------------------------------------------------------------
# Routine: default_page()
#
sub default_page
{
print "Content-type: text/html\n\n";
print '
Wayne Morrison
Wayne Morrison
That\'s me on the left.
Some things I\'ve done:
- Software utilities
I\'ve written for my own use. You might find them useful as well.
- DNSSEC-Tools Suite --
free open-source software I\'ve written through work. I didn\'t write the
whole DNSSEC-Tools package; but I did design and write zonesigner,
rollerd, their accompanying modules and tools, and the Owl Monitoring
System.
(Owl was released for general use in late February, 2013.)
- I play the Highland bagpipe, the shuttlepipe, the English concertina,
and sing in the folk group Port Righ.
Here are some sound files
of our music.
';
}