#!/usr/bin/perl use strict; my $REQUEST_URI=$ENV{REQUEST_URI}; my $HTTP_HOST=$ENV{HTTP_HOST}; my $index; $index="index.html" if ( -f "index.html" && $index eq "") ; $index="index.html.var" if ( -f "index.html.var" && $index eq "") ; $index="index.htm" if ( -f "index.htm" && $index eq "") ; $index="index.php" if ( -f "index.php" && $index eq "") ; $index="index.asp" if ( -f "index.asp" && $index eq "") ; $index="index.aspx" if ( -f "index.aspx" && $index eq "") ; $index="default.asp" if ( -f "default.asp" && $index eq "") ; my $src="http://$HTTP_HOST"; $REQUEST_URI =~ s/.cytanetbanner.cgi//; $src .= $REQUEST_URI if ( $REQUEST_URI ); $src .= $index; print "Content-Type: text/html\n\n"; print < <body> <p>This page uses frames, but your browser doesn't support them.</p> </body> EOF