#!/usr/local/bin/perl -w # ---------------------------------------------------------------- # $Id: index.cgi,v 1.12 2003/09/16 17:57:57 ncc0234 Exp $ # $Author: ncc0234 $ # $RCSfile: index.cgi,v $ # Current $Revision: 1.12 $ # Current $Date: 2003/09/16 17:57:57 $ # ---------------------------------------------------------------- # This script runs when a client visits either the root document of # one of our vs servers, or the root document of a domain that doesn't # have web hosting setup (i.e.: they don't have an entry in the # httpd.conf). use strict; my $httpHost = $ENV{'HTTP_HOST'} || ""; # ---------------------------------------------------------------- if ($httpHost =~ m/\.netcom\.ca$/ or $httpHost =~ m/\.attcanada\.ca/ or $httpHost =~ m/\.allstream\.net/ or $httpHost =~ m/^\d{3}(\.\d{3})+/ ) { # Do a redirect here ... it should go back to the business site. print < $domain currently has no web site

Allstream

$domain has no web site

The domain $domain does not currently have a web site. As a result there is nothing to see at www.$domain.

For more information please contact us using one of the following methods:

Le domaine $domain ne comporte actuellement aucun site Web.

Le domaine $domain ne comporte actuellement aucun site Web. Par conséquent, aucun contenu ne peut être visualisé à l'adresse www.$domain.

Pour obtenir plus d'information, communiquez avec nous de l'une des façons suivantes :

EOT }