#!/usr/bin/perl
#################################################################################
# cherrypicked.pl
#
################################################################################
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;
my %in = $query->Vars;
#print $query->header (-type=>'text/plain');
print $query->header (-type=>'text/html');
my $referer = $query->referer;
my $siteName = $in {'site'};
my $password = $in {'session'};
my $error = 0;
my $message = qq (
Inaccurate or Unauthorised access.
The site you arrived from, the logo and URL apparently taken from web site named $siteName is not a Cherry Picked business.
Please call 01227 281611 for confirmation.
Visit Cherry Picked to find other CherryPicked businesses.
);
#Preset the values so it does not match if $siteName or $password are blank
my $fileSite = "!invalid!";
my $filePassword ="!invalid!";
$referer =~ s/http:\/\///;
($referer)=split ("\/", $referer);
open (PASSWORD_FILE, "registered.pl") || die ($query->header . " Cannot open default file");
while (my $line = )
{
chomp $line;
if ($line =~ "=")
{
($fileSite, $filePassword) = split (/=/, $line);
}
if (($fileSite eq $siteName) and ($filePassword eq $password))
{
if ($referer eq $fileSite)
{
$message = "
Cherry Picked businesses are those we trust to give you sterling service, going by either our own experience, or the experience of others. This page will only be accessed correctly by those sites belonging to businesses with Cherry Picked verification.
Further verification is a presence in the `Cherry Picked` or `All Businesses` page at
You arrived here from $referer but we recognise that the link belongs to URL $siteName.
The web site address you arrived from is therefore not valid.
$referer is apparently NOT a Cherry Picked business.
However, if your browser is not displaying a web site address at all, i.e. no address in these brackets [$referer] then it is likely that you need to go back to the web site, refresh your browser and try again, as you may be seeing what is in your computer`s cache memory.
Please click the link above to be taken to the main site where a listing of Cherry Picked businesses is available.
