CGI::Application::MailPage is a Perl module to allow users to send HTML pages to friends.
SYNOPSIS
use CGI::Application::MailPage;
my $mailpage = CGI::Application::MailPage->new(
PARAMS => { document_root => '/home/httpd',
smtp_server => 'smtp.foo.org' });
$mailpage->run();
CGI::Application::MailPage is a CGI::Application module that allows users to send HTML pages to their friends. This module provides the functionality behind a typical "Mail This Page To A Friend" link.
To use this module you need to create a simple "stub" script. It should look like:
#!/usr/bin/perl
use CGI::Application::MailPage;
my $mailpage = CGI::Application::MailPage->new(
PARAMS => {
document_root => '/home/httpd',
smtp_server => 'smtp.foo.org',
},
);
$mailpage->run();
You'll need to replace the "/home/httpd" with the real path to your document root - the place where the HTML files are kept for your site. You'll also need to change "smtp.foo.org" to your SMTP server.
Put this somewhere where CGIs can run and name it something like mailpage.cgi. Now, add a link in the pages you want people to be able to send to their friends that looks like:
mail this page to a friend
This gets you the default behavior and look. To get something more to your specifications you can use the options described below.
Product's homepage
Requirements:
· Perl