cgi/perl sendmail på windows
HejJeg har mailscript skrevet i perl, som tidligere er blevet afviklet fra en unix maskine. Scriptet skal flyttes så det fremover skal afviles fra en Windows 2000 maskine. Jeg har adgang til servren og har installeret ActiveState's ActivePerl 5.8.
Scriptet bruger nms_sendmail til at sende emailen med, men det kan jeg ikke få til at fungere på min windows maskine !?!
Perl er installeret i E:/usr biblioteket, men når jeg forsøger at sende emailen skriver den "Access is denied.".
Mit lille testscript er her:
#!E:/usr/bin/perl.exe -w
BEGIN
{
@configuration_required = ("recipient","subscriber","subject","sortorder","printempty","language");
@configuration_all = ("","button","required","pgpuserid","autoresponse","autoresponsesubject","redirect","picture","font","color","linkcolor","vlinkcolor","alinkcolor","link","linktitle","linkicon","backgroundcolor","backgroundpicture",@configuration_required);
$DEBUGGING = 1;
$emulate_matts_code= 0;
$secure = 1;
$allow_empty_ref = 1;
$max_recipients = 5;
$mailprog = "E:/Usr/lib/nms_sendmail/nms_sendmail -oi -t" ;
$postmaster = 'rp@m-p.dk';
@referers = ("mine_godkendte_websteder");
@allow_mail_to = qw(m-p.dk);
@recipients = ();
%recipient_alias = ();
@valid_ENV = qw(REMOTE_HOST REMOTE_ADDR REMOTE_USER HTTP_USER_AGENT);
$locale = 'da_DK';
$charset = 'iso-8859-1';
$date_fmt = '%A, %B %d, %Y at %H:%M:%S';
$style = '/css/nms.css';
$no_content = 0;
$double_spacing = 1;
$wrap_text = 0;
$wrap_style = 1;
$send_confirmation_mail = 0;
$confirmation_text = '';
#
# USER CONFIGURATION << END >>
# ----------------------------
# (no user serviceable parts beyond here)
open(MAIL,"|$mailprog");
print MAIL "To: rp\@m-p.dk)\n";
print MAIL "From: test\@test.dk\n";
print MAIL "Subject: TEST\n\n";
close (MAIL);
}
Mapperne under E:/Usr er alle med både skrive og læse adgang.