Evgesha_572
25-06-2008, 14:26
Добрый день!
Есть исполняемый файлик , называется SendMail.exe, в котором прописан DNS-имя моего почтового сервера.
Сейчас встала необходимость изменить DNS-имя на внутренний IP адрес почтового сервера.
Подскажите пожалуйста решение данной проблемы (каким программами можно открыть данный файл и изменить конфигурацию его).
Спасибо!
p.s. Есть код , но писан не мной , а знакомым, нужно определить, что за язык программирования и откомпилировать.
#--=Use units=--
use MIME::QuotedPrint;
use MIME::Base64;
use Mail::Sendmail;
#--=Signal redefinition=--
#--=Var=--
#--=Subs=--
#--=Main program=--
die "Usage parameters is absent.\nUse:\n SendMail MailTo MailFrom AttachedFile\n" if $#ARGV ne 2;
%mail=(
from => $ARGV[1],
to => $ARGV[0],
subject => 'AutoSender',
smtp => 'xxx.xxx.ru'
);
$boundary = "====" . time() . "====";
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
$message = encode_qp('');
$file = $ARGV[2];
$name = ($file=~/\\(\w+\.\w+)$/?$1:$file);
open (F, $file) or die "Cannot read $file: $!";
binmode F; undef $/;
$mail{body} = encode_base64(<F>);
close F;
$boundary = '--'.$boundary;
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
$message
$boundary
Content-Type: application/octet-stream; name="$name"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$name"
$mail{body}
$boundary--
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
Есть исполняемый файлик , называется SendMail.exe, в котором прописан DNS-имя моего почтового сервера.
Сейчас встала необходимость изменить DNS-имя на внутренний IP адрес почтового сервера.
Подскажите пожалуйста решение данной проблемы (каким программами можно открыть данный файл и изменить конфигурацию его).
Спасибо!
p.s. Есть код , но писан не мной , а знакомым, нужно определить, что за язык программирования и откомпилировать.
#--=Use units=--
use MIME::QuotedPrint;
use MIME::Base64;
use Mail::Sendmail;
#--=Signal redefinition=--
#--=Var=--
#--=Subs=--
#--=Main program=--
die "Usage parameters is absent.\nUse:\n SendMail MailTo MailFrom AttachedFile\n" if $#ARGV ne 2;
%mail=(
from => $ARGV[1],
to => $ARGV[0],
subject => 'AutoSender',
smtp => 'xxx.xxx.ru'
);
$boundary = "====" . time() . "====";
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
$message = encode_qp('');
$file = $ARGV[2];
$name = ($file=~/\\(\w+\.\w+)$/?$1:$file);
open (F, $file) or die "Cannot read $file: $!";
binmode F; undef $/;
$mail{body} = encode_base64(<F>);
close F;
$boundary = '--'.$boundary;
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
$message
$boundary
Content-Type: application/octet-stream; name="$name"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$name"
$mail{body}
$boundary--
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";