#!/usr/bin/perl
use CGI qw/:standard/;

&bypass;

# &check_out;

sub enigma_out {

$_[0] =~ tr /oruxzmljihbdfaAMGQKEOIYUSWywvtsqpnkgcC ZeX9V857T46R3PN2LJ1HF0DB/A-Z0-9 a-z/;
}

sub check_out {

$link = $ENV{'QUERY_STRING'};
@cookie_jar = split(/; /,$ENV{'HTTP_COOKIE'});
foreach $jar (@cookie_jar){
	@recipe = split (/=/,$jar);
	$key = $recipe[0];
	$cook_type{$key}= $recipe[1];
	}
%raw_data = split (/&/,$cook_type{'regist'});
foreach $raw_key (keys %raw_data){
	$key = $raw_key;
	$key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
	&enigma_out($key);
	$raw_data{$raw_key} =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
	&enigma_out($raw_data{$raw_key});
	$cookin_data{$key} = $raw_data{$raw_key};
	}

# if ($cookin_data{'name'}){
# 	print redirect("HTTP://www.synergy-development-llc.com/ECL/cgi-bin/pre_reg.cgi?$link");
#	}

# else {print redirect("HTTP://www.synergy-development-llc.com/ECL/cgi-bin/reg_data.cgi?$link");
#	}

}

sub bypass {

$link = $ENV{'QUERY_STRING'};
#	print redirect("HTTP://www.synergy-development-llc.com/ECL/spec_data/$link");
print redirect("HTTP://www.synergy-development-llc.com/ECL/spec_data/m.pdf");
}