sub untaint_cart_id($) { my $old_id = shift; my $cart_id; #print "$old_id
"; if ($old_id =~ /^([-\@\w.]+)$/) { $cart_id = $1; } else { die("Bad Cart ID"); } #print "$cart_id
"; return $cart_id; }