Perl 스크립트가 메일을 보내지 않고 링크를 해제하지 않습니다.

Question

필자가 쓰지 않은 스크립트가 있습니다 ... 그들은 Squid 로그 데이터베이스를 검색 한 다음 스프레드 시트를 만들고 전자 메일로 보낸 다음 .pid 및 .xls 파일을 삭제합니다 그것은 창조했다.

스크립트 중 하나에 NTLM을 사용했습니다 (request_user) ... 수동으로 입력 한 텍스트 필드로 변경했습니다.

나는 perl을 모르며 스크립트가 작동하지 않습니다.

.pid 및 .XLS가 만들어지고 있지만, 아무것도 이메일로 전송하지 도착 및 파일이 파일

http://www.the-greenes.net/spreadsheet_request-test.txt

인 요청에 대한 링크가 있습니다 (링크 해제) 여기

삭제 및 생성되지 않습니다

http://www.the-greenes.net/spreadsheet_gen.txt

매우 제한된 perl 기술을 가진 제한된 사람을 도울 수 있습니까?

감사 SMTP 서버에 사용자가 설정 주소로이 라인을 가지고있는 spreadsheet_gen 스크립트에서

Answer 1

:

my $mail_server=`10.0.1.98`; 

역 따옴표 사용은 10.0.1.98라는 명령을 실행하고 $mail_server 변수로 출력을 지정합니다. 이는 대부분 잘못된 문자열을 만들기 위해 일반 아포스트로피와 역 따옴표를 대체하려고 :

my $mail_server = '10.0.1.98'; 

당신은 당신의 error.log에서 오류를 볼 수 있을까요? $message->send ...이 실패하면 오류 메시지와 함께 사망하고 아무 것도 보내지도 않고 연결 해제되지 않습니다.