Re: Calling a PHP function from within Perl

Probably your best bet is to write a helper script called something like sendMail-cli.php something like this:

<?php
require_once 'sendMail.php';
extract(json_decode(file_get_contents('php://stdin')));
sendMail($fromName, $fromEmail, $to, $cc, $bcc, $subject, $messageHtml
+, $messageText);
[download]

And then from Perl, you can pass data to that:

use JSON;

my %mail = (
  fromName    => 'Alice',
  fromEmail   => 'alice@example.com',
  to          => 'bob@example.net',
  cc          => 'carol@example.net',
  bcc         => 'dave@example.org',
  subject     => 'Test message',
  messageHtml => '<p>Test</p>',
  messageText => "Test\n",
);

open my $sm, '|php sendMail-cli.php' or die 'could not open pipe to se
+nd mail';
print {$sm} encode_json(\%mail);
close $sm;
[download]

There are probably nicer ways to do it, but that's quick and easy.

Code is untested, but should give you a general idea.

(For bonus points, make sure that sendMail-cli.php cannot be called directly via your webserver, to avoid creating a spam gateway.)

toby döt ink

Comment on Re: Calling a PHP function from within Perl Select or Download Code

Replies are listed 'Best First'.
Re^2: Calling a PHP function from within Perl by DaisyLou (Sexton) on Jul 28, 2019 at 03:49 UTC
Many thanks! I'll give it a try tomorrow!	[reply]
Re^3: Calling a PHP function from within Perl by tobyink (Canon) on Jul 28, 2019 at 11:45 UTC
If you need help with avoiding creating a spam gateway, let me know, but that's probably a longer conversation. toby döt ink	[reply]
Re^4: Calling a PHP function from within Perl by DaisyLou (Sexton) on Jul 29, 2019 at 19:38 UTC
Thanks friend. I'm not quite there yet. PHP Notice: Undefined variable: fromName in /etc/my/lib/sendMail-cli. +php on line 4 PHP Notice: Undefined variable: fromEmail in /etc/my/lib/sendMail-cli +.php on line 4 PHP Notice: Undefined variable: to in /etc/my/lib/sendMail-cli.php on + line 4 PHP Notice: Undefined variable: cc in /etc/my/lib/sendMail-cli.php on + line 4 PHP Notice: Undefined variable: bcc in /etc/my/lib/sendMail-cli.php o +n line 4 PHP Notice: Undefined variable: subject in /etc/my/lib/sendMail-cli.p +hp on line 4 PHP Notice: Undefined variable: messageHtml in /etc/my/lib/sendMail-c +li.php on line 4 PHP Notice: Undefined variable: messageText in /etc/my/lib/sendMail-c +li.php on line 4 Invalid address: Invalid address: [download] Any ideas?	[reply] [d/l]
Re^5: Calling a PHP function from within Perl by tobyink (Canon) on Aug 02, 2019 at 10:56 UTC


Think about Loose Coupling
	PerlMonks