#!/usr/local/bin/perl

require '../routines.cgi';

& ReadParse;
& CheckVar;
& ReDir;

sub CheckVar {
	if ($SOURCE) {
		$SOURCE = $SOURCE;
	} elsif ($SRC) {
		$SOURCE = $SRC;
	} elsif ($src) {
		$SOURCE = $src;
	} elsif ($source) {
		$SOURCE = $source;
	} else {
		$SOURCE = "00-0000-00";
	}
return;
}
		

sub ReDir {
	print "Location: ../signup/adin.cgi?SOURCE=$SOURCE\n\n";
return;
}