package Apache2::CPH; use strict; use Apache2::RequestRec (); # for $r->content_type use Apache2::RequestIO (); # for $r->puts use Apache2::Const -compile => ':common'; use CGI; sub handler { my $q = new CGI; my $p = shift; my $time = scalar localtime(); $p->content_type('text/html'); my $uri = $p->uri; my $title = substr($uri, 1); if ($title =~ "home") { $title = "Home" } elsif ($title =~ "residential_mortgages") { $title = "Residential Mortgages" } elsif ($title =~ "commercial_mortgages") { $title = "Commercial Mortgages" } elsif ($title =~ "pensions") { $title = "Pensions" } elsif ($title =~ "investments") { $title = "Investments" } elsif ($title =~ "life_assurance") { $title = "Life Assurance" } elsif ($title =~ "general_insurance") { $title = "General Insurance" } elsif ($title =~ "contact_us") { $title = "Contact Us" } else { $title = "Home" }; my $content; if ($title =~ "Home") { $content = "Homepage" } elsif ($title =~ "Residential Mortgages") { $content = "Residential Mortgages" } elsif ($title =~ "Commercial Mortgages") { $content = "Commercial Mortgages" } elsif ($title =~ "Pensions") { $content = "Pensions" } elsif ($title =~ "Investments") { $content = "Investments" } elsif ($title =~ "Life Assurance") { $content = "Life Assurance" } elsif ($title =~ "General Insurance") { $content = "General Insurance" } elsif ($title =~ "Contact Us") { $content = "Contact Us" }; $p->puts(<<"END"); $title

$time

$content

Website Designed by s1mon.

END return Apache2::Const::OK; }; 1;