sub jump {
	$i = 0; $match = 0;
	foreach $line (@DATA) {
		($code,$access,$name,$item,$hpname,$HP,$memo) = split(/<>/,$line);
		if ($QUERY{'code'} == $code) {
			$match = 1; last;
		}
		$i++;
	}
	if ($match) {
		$cookies = $ENV{'HTTP_COOKIE'};
		@pairs = split(/;/,$cookies);
		foreach $pair (@pairs) {
			($key, $value) = split(/=/, $pair);
			$key =~ s/ //g;
			$DUMMY{$key} = $value;
		}
		@pairs = split(/,/,$DUMMY{$CookieName});
		foreach $pair (@pairs) {
			($key, $value) = split(/\!/, $pair);
			$COOKIE{$key} = $value;
		}
		if ($COOKIE{'date'} eq $DATE && $COOKIE{'code'} == $code) { $access--; }
		else { $access++; }
		$value = "$code<>$access<>$name<>$item<>$hpname<>$HP<>$memo";
		$DATA[$i] = $value;
		if (&data_save != 1) { &error(bad_save); }
		$HP = "http://$HP";
		$cookievalue = "date\!$DATE<>code\!$code";
		print "Set-Cookie: $CookieName=$cookievalue; \n";
		if ($server eq 'nt') { print "HTTP/1.0 302 Moved Temporarily\n" ; }
		print "Location: $HP\n\n";
	} else { &error(bad_addr); }
}
1;