EVAL ERROR: Undefined subroutine &PW::MailChimpV2::Login called at (eval 707) line 9. Code: line 1: package tmpevalpackage; line 2: sub doEval { line 3: &Templates::SetNoCache(); line 4: use Data::Dumper; line 5: use JSON; line 6: line 7: my($chimp); line 8: line 9: if($chimp = &PW::MailChimpV2::Login()){ line 10: line 11: if($Templates::in{'submitted'}){ line 12: if(&PW::Schema::IsValidEmail($Templates::in{'email'})){ line 13: line 14: my $ok = $chimp->listSubscribe(id => '5b50bc1393', email_address => $Templates::in{'email'}, merge_vars => ['FNAME' => $Templates::in{'firstname'}, 'LNAME' => $Templates::in{'lastname'}], update_existing => 1); line 15: line 16: if(!$ok){ line 17: &Templates::ReWrite('<!--EMAIL_ERROR-->','<font color=red>Sorry, but signup is not available at this time. Please try again later.</font'); line 18: } line 19: else{ line 20: &Templates::SetHeader('Status','302'); line 21: &Templates::SetHeader('Location',"$Templates::scriptalias/corp/digital-show-daily.html"); line 22: } line 23: } line 24: else{ line 25: &Templates::ReWrite('<!--EMAIL_ERROR-->','<font color=red>Please provide a valid email address</font'); line 26: } line 27: } line 28: } line 29: else{ line 30: &Templates::ReWrite('<!--EMAIL_ERROR-->','<br><font color=red>Sorry, but signup is not available at this time. Please try again later.</font><br>'); line 31: } line 32: line 33: }; line 34: &doEval(); line 35: 1;
Enjoy free access to this week's digital edition of Publishers Weekly and the London Book Fair Show Dailies
Just enter your email below to receive updates from PW after the show and gain access to the free digital Show Daily this week!