#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $shop = lc(param('shop'));

if ($shop eq "rg") {
	print redirect('https://www.planetdistribution.co.uk/store/index.php?cPath=6');
} elsif ($shop eq "ps") {
	print redirect('https://www.planetdistribution.co.uk/store/index.php?cPath=1');
} elsif ($shop eq "sk") {
	print redirect('https://www.planetdistribution.co.uk/store/index.php?cPath=19');
} elsif ($shop eq "smm") {
	print redirect('https://www.planetdistribution.co.uk/store/index.php?cPath=9');
} else {
	print redirect('https://www.planetdistribution.co.uk/store');
}