# Blosxom Plugin: wbnotify
# Author(s): Pasi Savolainen <psavo@iki.fi>
# Version: 2004-08-26
# Documentation: See the bottom of this file or type: perldoc wbnotify
# Requirements: writebacks -plugin and a sendmail compatible mailer (most on
#               unixen). On Windows, you can use 'Blat', a command-line
#               mailer. You can find it here: http://www.interlog.com/~tcharron/blat.html
#               (on windows you'll also have to modify the sendmail variable!)

package wbnotify;

# --- Configurable variables -----

# Address that writebacks will be mailed to.
# *** This plugin will not action until you set it. ***
# my $wbaddr = 'your@target.email.here.invalid';
 
# Location of sendmail -executable. If default doesn't work, try to find the
# right location and replace this variable with it.
# This may help you find something suitable:
# for i in `locate sendmail`; do if [ -x $i ]; then echo $i; fi; done;
my $sendmail = "/usr/lib/sendmail";

# --------------------------------

use CGI qw/:standard/;

sub start {
  unless ( $wbaddr ) {
    # We're not entitled to action as we don't know the target address
    warn "blosxom : wbnotify plugin > The \$wbaddr variable is not set; please set it to enable writeback notifications.\n";
    return 0;
  }
  # Only spring into action if POSTing to the writeback plug-in
  if ( request_method() eq 'POST' and (param('plugin') eq 'writeback') ) {
     if (open(MAIL, "| $sendmail -t")) {
        $name = param('name');
        $url = param('url');	
        $title_raw = param('title');
        $body = param('comment');

        # try to stop some spam?
        $title = substr($title_raw, 0, 25);
        $title =~ s/[\n\r]//g;

      	print MAIL <<"_MAIL_";
From: wbnotify@yourblog.com.invalid
To: $wbaddr
Subject: Auto: [wbnotify] $title
Content-Type: text/plain
X-Mailer: blosxom wbnotify plugin
Reply-To: do.not@reply.com.invalid
Auto-Submitted: auto-replied

Your blog got a new comment at 
$blosxom::url/$blosxom::path_info:
from $name, homepage at $url :
$title_raw

$body

--
wbnotify plugin for blosxom
_MAIL_
        close(MAIL);
     }
  }

  1;
}

1;

__END__

=head1 NAME

Blosxom Plug-in: wbnotify

=head1 SYNOPSIS

Provides e-mail notification for WriteBacks, when using Rael's writebacks
plugin.

=head2 QUICK START

Drop this wbnotify plug-in file into your plug-ins directory 
(whatever you set as $plugin_dir in blosxom.cgi).

Wbnotify, being a well-behaved plug-in, won't do anything until you set 
$wbaddr, which is the email address you want writeback mailed to.

=head1 INSTALLATION

Drop wbnotify into your plug-ins directory ($blosxom::plugin_dir).

=head1 CONFIGURATION

=head2 (REQUIRED) SPECIFYING AN EMAIL ADDRESS

Writeback, being a well-behaved plug-in, won't do anything until you set
$wbaddr.

=head1 AUTHOR

Pasi Savolainen <psavo@iki.fi>, http://iki.fi/psavo/

=head1 THANKS

Rael Dornfest

=head1 SEE ALSO

Blosxom Home/Docs/Licensing: http://www.raelity.org/apps/blosxom/

Blosxom Plugin Docs: http://www.raelity.org/apps/blosxom/plugin.shtml

=head1 BUGS

Address bug reports and comments to Pasi Savolainen <psavo@iki.fi>.

=head1 LICENSE

This software is licensed similarly to Blosxom.