Pay using PayPal body<= "; } if ($FORM{'loggedin'}) { my $remote = LJ::get_remote(); unless ($remote && $remote->{'user'} eq $user) { return ""; } } else { unless (LJ::auth_okay($u, $FORM{'password'}, $FORM{'hpassword'})) { return ""; } } my $giftfor = LJ::canonical_username($FORM{'giftfor'}); if ($FORM{'giftfor'} && ! $giftfor) { return ""; } # can't buy a gift for yourself. undef $giftfor if ($giftfor eq $user); if ($giftfor) { my $gu = LJ::load_user($giftfor); unless ($gu) { return ""; } if ($gu->{'caps'} & 16) { return "{'user'} ljuser?> has a permanent account. You can't buy them a gift payment. p?>"; } } my $months = $FORM{'months'}; my $amount; if (defined $LJ::Pay::account{$months}) { $amount = $LJ::Pay::account{$months}->{'amount'}; } unless ($amount) { return ""; } my $forkey = $giftfor ? "&for=$giftfor" : ""; my $forwho = $giftfor ? ", for $giftfor" : ""; my $anonkey = $FORM{'anon'} ? "&anon=1" : ""; my $datekey; if ($FORM{'giveafter'}) { return "" unless ($FORM{'giveafter'} =~ /^(\d\d\d\d)\-(\d\d)\-(\d\d)(?: (\d\d):(\d\d))?/); my $dtime = 0; eval { $dtime = Time::Local::timegm(0, $5, $4, $3, $2-1, $1); }; return "" if @$; my $delay = $dtime - time(); return "" if $delay < 0; return "" if $delay > 60*60*24*31; $datekey = "&giveafter=$dtime"; } $ret .= "All your LiveJournal data has been validated. To continue the purchase, click the PayPal icon below to go to PayPal's secure server and pay. PayPal then sends us a notification of the payment and your account will be automatically setup."; $ret .= ""; $ret .= "\n"; $ret .= ""; return $ret; _code?> <=body page?>