90 lines
2.9 KiB
JavaScript
90 lines
2.9 KiB
JavaScript
//
|
|
// Copyright (C) 2001-2004 Graeme Walker <graeme_walker@users.sourceforge.net>
|
|
//
|
|
// This program is free software; you can redistribute it and/or
|
|
// modify it under the terms of the GNU General Public License
|
|
// as published by the Free Software Foundation; either
|
|
// version 2 of the License, or (at your option) any later
|
|
// version.
|
|
//
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program; if not, write to the Free Software
|
|
// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
//
|
|
// ===
|
|
//
|
|
// emailrelay-runperl.js
|
|
//
|
|
// An example JavaScript wrapper that runs a perl script for E-MailRelay.
|
|
// The name of the perl script is hard-coded below: edit as necessary.
|
|
//
|
|
// This JavaScript can be installed as an E-MailRelay "--filter" program
|
|
// using an E-MailRelay command-line something like this:
|
|
//
|
|
// emailrelay --as-server --filter "c:/winnt/system32/cscript.exe //nologo c:/program\ files/emailrelay/emailrelay-runperl.js"
|
|
//
|
|
// Note the use of "cscript.exe" to execute the JavaScript, and the backslash
|
|
// to escape the space in the path.
|
|
//
|
|
// The e-mail's content file is fed to the perl script's standard input.
|
|
// The perl code is expected to process this to its standard output and then
|
|
// terminate with a zero exit code.
|
|
//
|
|
// The implementation of this JavaScript makes use of "CMD.EXE", which may be
|
|
// not be available on some versions of Windows.
|
|
//
|
|
// Edit the next two lines as necessary, but avoid spaces in paths:
|
|
var cfg_perl="perl -S -T -w"
|
|
var cfg_perl_script="spamassassin"
|
|
|
|
// parse our command line
|
|
var args = WScript.Arguments
|
|
var filename = args(0)
|
|
|
|
// prepare a command using CMD.EXE to do file redirection
|
|
var cmd_in = "\"" + filename + "\""
|
|
var cmd_out = "\"" + filename + ".tmp\""
|
|
var cmd_err = "\"" + filename + ".err\""
|
|
var cmd_perl = "cmd /c " + cfg_perl + " " + cfg_perl_script
|
|
var cmd = cmd_perl + " < " + cmd_in + " > " + cmd_out + " 2> " + cmd_err
|
|
|
|
// run the command
|
|
var sh = WScript.CreateObject("WScript.Shell")
|
|
var rc = sh.Run( cmd , 0 , true )
|
|
|
|
// check the file redirection
|
|
var fs = WScript.CreateObject("Scripting.FileSystemObject")
|
|
if( !fs.FileExists(filename+".tmp") || !fs.FileExists(filename+".err") )
|
|
{
|
|
WScript.Echo("<<file redirection error>>")
|
|
WScript.Quit( 2 )
|
|
}
|
|
|
|
// success or failure
|
|
if( rc == 0 )
|
|
{
|
|
fs.DeleteFile( filename )
|
|
fs.MoveFile( filename + ".tmp" , filename )
|
|
fs.DeleteFile( filename + ".err" )
|
|
WScript.Quit( 0 )
|
|
}
|
|
else
|
|
{
|
|
fs.DeleteFile( filename + ".tmp" )
|
|
var error = fs.OpenTextFile( filename + ".err" , 1 )
|
|
if( ! error.AtEndOfStream )
|
|
{
|
|
var reason = error.ReadLine()
|
|
WScript.Echo( "<<" + reason + ">>" )
|
|
}
|
|
error.Close()
|
|
fs.DeleteFile( filename + ".err" )
|
|
WScript.Quit( rc )
|
|
}
|
|
|