Anyone Know Of An Email To HTML Script / Program

[Lee]

I want to be able to send an email to a specific address then based on a template, whatever text is sent in the email message is read by the script then a page on the server is generated from it.

Anyone know of such a script, preferably PHP based?

Regards,

Lee

[temptationhouse]

i guess it wont exist but if you have basic php skills it should be easy to write.
with your php script:

... use pop or imap functions to check a mailbox you define
... on new mail get the message body, parse it accordingly
... create new page.

run this script from cron say every 10 minutes and you're done.

[raymor]

To actually put whatever is in the email into the .html, you could
just put one or two lines in your .forward or .procmailrc file and then
send to yourftpusername@yourserver.com. That would have security
issues, though, so instead we'll pipe it through a program which
checks the input. In .procmailrc:

:0 H b:
* Subject: update page
| /home/user/bin/email2html.pl

In /home/user/bin/email2html.pl:

#!/usr/bin/perl

my $htmlpage = '../domain/public_html/blah.html';
open HTML ">$htmlpage" or die "could not open '$htmlpage': $!"
while (my $line = <STDIN>) {
    # Do whatever checks on the input.  Allow ONLY legal characters, disallow 
    # anything else.
    print HTML $line;
}
close HTML;

The above code is off the top of my head, untested, but it's so simple
a task that it shouldn't have any major errors. We're just reading from
standard input and writing to a file.

[raymor]

This post messed up, deleted.

[raymor]

I just re-read your orginal messge where you said there would be a
template. In that case the details will vary depending on what types of
information you want to send and whether to want to replace the existing
info or if you want to add to it, but it'll look a lot like this:

#!/usr/bin/perl

my $htmlpage = '../domain/public_html/blah.html';
my $template = '../domain/public_html/blah.tmpl';

open TMPL, $template or die "Could not open '$template': $1";
my @lines = <TMPL>;
close TMPL;

my $tmplhtml = join("\n", @lines);


while (my $line =<STDIN> ) {
    $line =~ s/[^a-zA-Z0-9\n\s\:]//g;  # allow just letters, numbers, spaces, and colons
    if ($line =~ m/([^:]*): (.*)/) {
        $find = $1; $replace = $2;
        $tmplhtml = s/$find/$replace/g;
    }
}


open HTML ">$htmlpage" or die "could not open '$htmlpage': $!"
print HTML $tmplhtml;
close HTML;