#!/usr/bin/perl
#
#
# ---------------------------------------------------------------------------
# CONSTANTS
# ---------------------------------------------------------------------------
########
sub read_input
{
local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else
{
$buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
%FORM;
}
#*********************
%incoming = &read_input; # Read information into associated # array %incoming.
$cat = $incoming{'cat'};
$nl = $incoming{'nl'}; if ($cat eq "") {$cat = "online+shopping"};if ($nl eq "") {$nl = "30"};
#*********************
#######
# ---- Make sure a valid plan was selected -----
# $searchkey = $ENV{'QUERY_STRING'};
# if ($searchkey eq "") # {$searchkey = "shopping"};
#
#*****************************************************************************
print <<"EndOfHTML";
Content-type: text/html
GatewayShop.com -- The Internet Superstore - Bargains prices everywhere!
Entertainment
Make
Money, Kids,
Jokes,
Celebrities,
Hobbies,
Online
Gambling, Home
Improvement, Football,
Personals,
Lotteries,
Chat,
Movies,
Music,
Mp3 |
Travel
Vacation
Rental, Hotels,
Adventure
Travel, Airline
Tickets, Honeymoon,
Cruises,
Discount
Travel, Rental
Cars |
Shopping
New
Cars, Flowers,
Discounts,
Gifts,
Digital
Cameras, Furniture,
Jewelry,
Computers,
Satellite
TV, Used
Cars, Cellular
Phones, Books,
Electronics |
Finance
Auto
Insurance, Debt
Consolidation, Mortgage,
Insurance
Quote, Life
Insurance, Credit
Cards, Credit,
Credit
Reports, Real
Estate, Stocks,
Investments |
Internet
ApplauZ
Online - domain names, web
hosting, web design
Web
Hosting, Domain
Names, Marketing,
Online
Education, Web
Design, Software,
Email,
Greeting
Cards, E-commerce
|
Health
& Fitness
Weight
Loss, Viagra,
Women's
Health, Exercise
Equipment, Nutrition,
Sunglasses,
Sporting
Goods, Online
Pharmacy |
|
|
|
Copyright
© 2002 GatewayShop.com All Rights Reserved.
|
|
|
EndOfHTML