Purchase new account body<= Error: Invalid months value." unless $LJ::Pay::account{$months}; my $amount = $LJ::Pay::account{$months}->{'amount'}; my $name = "New account, with paid benefits for $months months"; if (LJ::did_post()) { if ($FORM{'email'}) { my @errors; if ($FORM{'email'} =~ /\s/) { push @errors, "Email address shouldn't contain spaces."; } LJ::check_email($FORM{'email'}, \@errors); return LJ::bad_input(@errors) if @errors; } my $url = "https://www.paypal.com/cgi-bin/webscr?amount=$amount&return=http%3A//www.livejournal.com/paidaccounts/thankyou.bml&item_name=" . LJ::eurl($name) . "&custom=months%3D$months%26newacct%3D1%26email%3D" . LJ::eurl($FORM{'email'}) . "&business=paypal%40livejournal.com&cmd=_xclick&cmd=_xclick&no_shipping=1&no_note=1¬ify_url=http%3A//www.livejournal.com/paidaccounts/pp_notify.bml"; return BML::redirect($url); } return <<"FORM";
FORM } _code?> <=body page?>