1. Install mail+sendmail on the box and go from there.

2. Use MailTools in combo with Net::SMTP.

CPAN is your friend!

Jeroen
"We are not alone"(FZ)

use Net::SMTP;

my $from='foo@spangle.com';
my $to='someuser@host.com';
my $smtp= Net::SMTP->new('SMTPHOSTNAME',
                Timeout => 180);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("YOUR MESSAGE");
$smtp->dataend();
$smtp->quit();
[download]

Well, AFAIK pine is simply a mail client, not a mail server. I would reccommend finding out what mail server you run and looking up to see if it will take input directly from the command line (much as sendmail does).

If it does not you could probably find the base code for a POP3 or SMTP client on CPAN which you could install on your web server, making it just another client as far as the server is concerned

It is very easy to set up - just change one line in the module to define you mail server.

It is then a simple matter to sort the data and produce a reasonably professional looking e-mail notification.

If you're in a DMZ that can't see mail (port 25 closed to traffic) you may want to consider setting up Net::SMTP::Server::Relay on a non blocked port on a system outside of your DMZ to relay your mail. Then in your webapp just use Mail::Sendmail and point it to the relay.

#! /home/perl/5.6.0/bin/perl -w
# File: minimail.pl 
# A mail relayer

use strict;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
use Net::SMTP::Server::Relay;

my($conn,$client);

#NOTE: the use of port number 2525
my $server = new Net::SMTP::Server("xxx.xxx.xxx.xxx", 2525);

while($conn = $server->accept()) {

   my $client = new Net::SMTP::Server::Client($conn) ||
                croak("Unable to handle client connection: $!\n");

   $client->process || next;

# Log for debugging
# open LOG, ">./mini.log";
# print LOG "We hit!\n From->$client->{FROM}\nTO->$client->{TO}\nMSG->
+$client->{MSG}\n";
# close LOG;


   my $relay = new Net::SMTP::Server::Relay($client->{FROM},
                             $client->{TO},
                             $client->{MSG});
}
[download]