vuốt-mail-perl-filter - Trực tuyến trên đám mây

CHƯƠNG TRÌNH:

TÊN

cm_perl - Plugin Perl cho Claws Mail

MÔ TẢ

Plugin này cung cấp một công cụ lọc mở rộng cho ứng dụng email Claws Mail. Nó
cho phép sử dụng toàn bộ sức mạnh Perl trong bộ lọc email.

NHANH BẮT ĐẦU

Để bắt đầu, bạn có thể sử dụng matcherrc2perlfilter.pl kịch bản trong công cụ-thư mục tới
dịch các quy tắc lọc cũ của bạn sang Perl. Chỉ cần thực thi tập lệnh và làm theo
hướng dẫn. (lưu ý rằng với các phiên bản gần đây của Claws Mail, tập lệnh này có thể không hoạt động
do thay đổi cú pháp ngược dòng. Điều này sẽ được cập nhật trong tương lai. Gửi cho tôi một email nếu
bạn có vấn đề khi bắt đầu).

Tuy nhiên, bạn có thể muốn xem xét việc đọc phần còn lại của sổ tay hướng dẫn này và viết lại
quy tắc nếu bạn chọn sử dụng plugin, vì mã Perl được tạo bởi tập lệnh này không
chính xác là đẹp.

Không nói tiếng Perl? Không sao, "perldoc perlintro" sẽ cung cấp cho bạn đủ thông tin để làm
công cụ ưa thích.

SỬ DỤNG

Plugin Perl mong đợi một tệp kịch bản Perl được gọi là Perl_filter trong cấu hình Claws Mail '
thư mục (thường là $ HOME / .claws-mail - hãy thử `vuốt-mail --config-dir 'nếu bạn không chắc chắn).
Nếu tệp đó không tồn tại khi khởi động plugin, một tệp trống sẽ được tạo. Tệp này, mà
không cần bắt đầu bằng sha-bang (! # / bin / perl), nắm giữ các hướng dẫn Perl cho
bộ lọc email. Để khuyến khích một số cách cư xử tốt, mã được thực thi theo kiểu "sử dụng nghiêm ngặt;"
môi trường.

Cả hai Claws Mail 'lọc điều kiện và hành động được ánh xạ tới các hàm Perl với
tên tương ứng, bất cứ nơi nào có thể.

CHỨC NĂNG NGHE

Để biết mô tả chức năng chi tiết, hãy xem phần "MÔ TẢ CHỨC NĂNG", bên dưới.

Điều kiện lọc tiêu chuẩn
tất cả, đã đánh dấu, chưa đọc, đã xóa, mới, đã trả lời,
chuyển tiếp, bị khóa, ignore_thread, colorlabel,
đối sánh, đối sánh, regexp, S
size_lớn hơn, size_nhỏ hơn, size_equal,
Score_greater, score_lower, score_equal, age_greater,
age_lower, một phần, được gắn thẻ

Hành động lọc tiêu chuẩn
đánh dấu, bỏ đánh dấu, xóa, mark_as_unread, mark_as_read,
khóa, mở khóa, di chuyển, sao chép, tô màu, thực thi,
ẩn, set_score, change_score, dừng, chuyển tiếp,
forward_as_attachment, chuyển hướng, set_tag, unset_tag,
Clear_tags

Công cụ thú vị
tiêu đề, nội dung, filepath, extract_addresses,
move_to_trash, hủy bỏ, addr_in_addressbook,
from_in_addressbook, get_attribute_value, SA_is_spam,
thoát, thủ công, make_sure_folder_exists,
filter_log, filter_log_verbosity,
make_sure_tag_exists

CHỨC NĂNG MÔ TẢ

Nói chung, sau khi lọc được gọi bởi tập lệnh Perl, thư được chuyển đến
Công cụ lọc bên trong của Claws, trừ khi a cuối cùng quy tắc đã bị tấn công. Các quy tắc cuối cùng không chỉ dừng lại
tập lệnh lọc Perl tại điểm xuất hiện của chúng, nhưng cũng ngăn quá trình xử lý
email đó bởi công cụ lọc nội bộ của Claws (điều này nghe có vẻ khó hiểu, nhưng bạn đang
đã quen thuộc với khái niệm đó từ các bộ lọc tiêu chuẩn: Sau một email, ví dụ: di chuyểnd,
các quy tắc sau đây không còn áp dụng nữa).

Ngoài ra, hãy cẩn thận với cách bạn trích dẫn. Đặc biệt, hãy nhớ rằng @ -sign có một
ý nghĩa đặc biệt trong Perl, và được nội suy bên trong dấu ngoặc kép. Xem "Trích dẫn và Trích dẫn-
như Toán tử "trong perlop để tìm hiểu thêm về cách trích dẫn và nội suy.

Tiêu chuẩn Lọc Điều kiện
all Trả về giá trị true. Chỉ có sẵn cho sự hoàn chỉnh.

được đánh dấu Trả về giá trị đúng nếu cờ được đánh dấu được đặt, ngược lại là sai.

chưa đọc Trả về giá trị true nếu cờ chưa đọc được đặt, ngược lại là false.

đã xóa Trả về giá trị true nếu cờ đã xóa được đặt, ngược lại là false.

new Trả về giá trị true nếu cờ mới được đặt, ngược lại là false.

Đã trả lời Trả về giá trị true nếu cờ đã trả lời được đặt, ngược lại là false.

chuyển tiếp
Trả về giá trị true nếu cờ chuyển tiếp được đặt, ngược lại là false.

bị khóa Trả về giá trị true nếu cờ khóa được đặt, ngược lại là false.

bỏ qua_thread
Trả về giá trị true nếu cờ "Luồng bỏ qua" được đặt, ngược lại là false.

nhãn màu MÀU SẮC
nhãn màu
Trả về giá trị true nếu thông báo có màu COLOR. COLOR có thể là một số
giá trị từ 0 đến 7 (với các màu tương ứng với bộ lọc bên trong
engine), hoặc tên màu tiếng Anh như được giới thiệu trong hộp thoại lọc
(nghĩa là một trong số: không, cam, đỏ, hồng, xanh da trời, xanh lam, xanh lục hoặc nâu, trong khi
chữ hoa và chữ thường không có sự khác biệt). Nếu COLOR bị bỏ qua, 0 (không có) là
giả định.

size_lớn hơn KÍCH THƯỚC
Trả về giá trị true nếu kích thước thông báo lớn hơn SIZE, ngược lại là false.

size_smaller KÍCH THƯỚC
Trả về giá trị true nếu kích thước thông báo nhỏ hơn SIZE, ngược lại là false.

size_equal KÍCH THƯỚC
Trả về giá trị true nếu kích thước thông báo bằng SIZE, ngược lại là false.

Score_greater SCORE
Trả về giá trị true nếu điểm tin nhắn lớn hơn SCORE, ngược lại là false.

Score_lower SCORE
Trả về giá trị true nếu điểm tin nhắn thấp hơn SCORE, ngược lại là false.

Score_equal ĐIỂM
Trả về giá trị true nếu điểm tin nhắn bằng SCORE, ngược lại là false.

age_lớn hơn TUỔI
Trả về giá trị true nếu tuổi thông báo lớn hơn AGE, ngược lại là false.

age_lower TUỔI
Trả về giá trị true nếu tuổi của tin nhắn thấp hơn AGE, ngược lại là false.

một phần Trả về giá trị đúng nếu thư chỉ được tải xuống một phần, sai
nếu không thì.

được gắn thẻ Trả về giá trị đúng nếu thư có một hoặc nhiều thẻ.

kiểm tra Tương ứng với quy tắc lọc nội bộ 'kiểm tra'. Đặc biệt, nó chấp nhận cùng một
các ký hiệu, cụ thể là:

%%%

% s Chủ đề

% f Từ

% t Tới

% c Cc

% d Ngày

% i Message-ID

% n Nhóm tin

% r Tài liệu tham khảo

% F Tên tệp - không nên sửa đổi

phù hợp với CÁI GÌ
bao diêm Ở ĐÂU CÁI GÌ
regexp Ở ĐÂU CÁI GÌ
regexpcase Ở ĐÂU CÁI GÌ
Các hàm so khớp có một cú pháp đặc biệt. Đối số đầu tiên là bất kỳ
to_or_cc, body_part, headers_part, headers_cont, tin nhắn, đến, từ, chủ đề, cc,
nhóm tin tức, inreplyto, tài liệu tham khảo hoặc thẻ (những chuỗi đó có thể có hoặc không
trích dẫn), khớp mẫu hoạt động trên khu vực đó. Nếu nó là bất kỳ chuỗi nào khác (mà
sau đó phải được trích dẫn), chuỗi này được coi là tên của trường tiêu đề.

Đối số thứ hai là chuỗi cần tìm. Đối với matchcase, matchcase, regexp và
regexpcase chúng tôi có đối sánh bình thường phân biệt chữ hoa chữ thường, bình thường không phân biệt chữ hoa chữ thường
đối sánh, đối sánh cụm từ thông dụng có phân biệt chữ hoa chữ thường và đối sánh thông thường không phân biệt chữ hoa chữ thường
đối sánh mẫu biểu thức, tương ứng.

Các hàm trả về true nếu tìm thấy mẫu, ngược lại là false.

Cũng giống như với công cụ lọc tích hợp, nội dung thư được tìm kiếm và
được cung cấp nguyên trạng - không có phân tích bộ ký tự nào được thực hiện. Tương tự như vậy, không có thẻ HTML nào
tước. Có thể sử dụng các mô-đun hoặc chương trình bên ngoài cho những
nhiệm vụ mặc dù. Nếu bạn đang làm điều đó, hãy gửi cho tôi một tin nhắn với những kinh nghiệm của bạn.

Với Perl có strenghts của nó trong đối sánh mẫu, sử dụng các toán tử nội trang của Perl
thường là một lựa chọn tốt hơn so với việc sử dụng các chức năng này.

Tiêu chuẩn Lọc Hoạt động
Các hành động trả về giá trị true khi thành công và 'undef' khi xảy ra lỗi. Cuối cùng
quy tắc tin nhắn được chỉ định. (Xem ở trên để biết phác thảo quy tắc cuối cùng là gì)

đánh dấu Đánh dấu tin nhắn.

bỏ đánh dấu Bỏ đánh dấu tin nhắn.

xóa Xóa tin nhắn. Lưu ý sự thay đổi tên của Claws Mail '"xóa" thành "xóa". Điều này
là bởi vì "delete" là một trong những lệnh nội trang của Perl không thể được định nghĩa lại
(nếu nó có thể, cho tôi biết làm thế nào).

Đây là một cuối cùng qui định.

đánh dấu là đã đọc
Đánh dấu tin nhắn là đã đọc

đánh dấu là chưa đọc
Đánh dấu tin nhắn là chưa đọc

khóa Khóa tin nhắn

mở khóa Xóa khóa tin nhắn

di chuyển DESTINATION
Di chuyển thư vào thư mục DESTINATION. Ký hiệu thư mục giống với Claws
Sử dụng thư. Bạn có thể sao chép và dán từ hộp thoại di chuyển của bộ lọc thông thường,
cho đến khi bạn có cảm giác về ký hiệu.

Đây là một cuối cùng qui định.

sao chép DESTINATION
Sao chép tin nhắn vào thư mục DESTINATION. Ký hiệu thư mục giống với Claws
Sử dụng thư. Bạn có thể sao chép và dán từ hộp thoại di chuyển của bộ lọc thông thường,
cho đến khi bạn có cảm giác về ký hiệu.

thực hiện COMMAND
Điều này giống với quy tắc kiểm tra - từ phần "Điều kiện lọc tiêu chuẩn"
thực thi rằng nó luôn trả về một giá trị true.

ẩn Ẩn tin nhắn

set_score ĐIỂM
Đặt điểm tin nhắn thành ĐIỂM

Change_score ĐIỂM
Thay đổi điểm tin nhắn bằng SCORE

dừng tập lệnh Stop Perl tại thời điểm này. Lưu ý rằng đây là không một quy tắc cuối cùng, nghĩa là
email được chuyển đến bộ lọc nội bộ. Xem "hủy bỏ" bên dưới nếu
bạn không muốn điều đó.

chuyển tiếp TÀI KHOẢN, EMAIL
Chuyển tiếp thư đến địa chỉ email EMAIL, sử dụng ID tài khoản ACCOUNT làm người gửi
tài khoản. Cho đến nay, bạn phải tạo một quy tắc trong công cụ lọc thông thường để tìm
ra số đó.

forward_as_attachment, TÀI KHOẢN EMAIL
Chuyển tiếp thư tới địa chỉ email EMAIL trong tệp đính kèm, sử dụng ID tài khoản
TÀI KHOẢN làm tài khoản người gửi. Cho đến nay, bạn phải tạo một quy tắc trong
bộ lọc để tìm ra con số đó.

chuyển hướng TÀI KHOẢN, EMAIL
Chuyển hướng thư đến EMAIL, sử dụng ID tài khoản ACCOUNT làm tài khoản người gửi. Cho nên
xa, bạn phải tạo một quy tắc trong công cụ lọc thông thường để tìm ra rằng
con số.

set_tag THẺ
Áp dụng thẻ TAG. TAG phải tồn tại.

unset_tag TAG
Bỏ đặt thẻ TAG.

Clear_tags
Xóa tất cả các thẻ.

Vui vẻ công cụ
Chức năng

tiêu đề ARG
header Nếu ARG không được cung cấp, trả về danh sách tất cả các tên trường tiêu đề của thư.

Nếu ARG được cung cấp, trả về 'undef' nếu trường tiêu đề ARG không tồn tại trong
e-mail. Nếu không, nó trả về

trong ngữ cảnh vô hướng
Giá trị của trường tiêu đề ARG.

trong ngữ cảnh danh sách
Danh sách tất cả các giá trị trường tiêu đề có sẵn. Điều này rất hữu ích nếu một trường tiêu đề
xảy ra nhiều lần trong một email (ví dụ: tiêu đề Đã nhận -).

Trường tiêu đề "Tham chiếu" tạo thành một trường hợp đặc biệt. Trong ngữ cảnh vô hướng, nó
trả về tham chiếu đầu tiên. Trong ngữ cảnh danh sách, nó trả về một danh sách tất cả
người giới thiệu.

body Trả về nội dung email ở dạng vô hướng.

đường dẫn tập tin
Trả về tệp và đường dẫn của email hiện đang được lọc (tương ứng với
% F đối với quy tắc 'kiểm tra').

giải nén_địa chỉ
Trích xuất địa chỉ email từ một chuỗi và đưa ra danh sách các địa chỉ được tìm thấy.
Hiện tại, một địa chỉ email được tìm thấy bằng cách sử dụng cụm từ thông dụng
'[-. + \ w] + \ @ [-. + \ w] +'. Điều này sẽ không tìm thấy tất cả các địa chỉ email hợp lệ. Thoải mái để
gửi cho tôi một regexp tốt hơn.

di chuyển vào thùng rác
Di chuyển email vào thư mục thùng rác mặc định.

Đây là một cuối cùng qui định.

hủy bỏ tập lệnh Stop Perl tại thời điểm này.

Ngược lại với 'stop', đây là một cuối cùng qui định.

addr_in_addressbook EMAIL, ĐỊA CHỈ
addr_in_addressbook EMAIL
Trả về giá trị thực nếu địa chỉ email EMAIL nằm trong sổ địa chỉ với
tên SỔ ĐỊA CHỈ. Nếu ADDRESSBOOK không được cung cấp, trả về true nếu địa chỉ email
có trong bất kỳ sổ địa chỉ nào.

from_in_addressbook SỔ ĐỊA CHỈ
từ_in_addressbook
Kiểm tra xem địa chỉ email được tìm thấy trong tiêu đề Từ có nằm trong sổ địa chỉ ADDRESSBOOK không
(hoặc bất kỳ, nếu bỏ qua). Nó được thực hiện như

my ($ from) = extract_addresses (header ("from"));
trả về 0 trừ khi $ từ;
trả về addr_in_addressbook ($ from, @ _);

vì vậy các hạn chế tương tự đối với địa chỉ trích xuất cũng được áp dụng.

get_attribute_value EMAIL, THUỘC TÍNH, SỔ ĐỊA CHỈ
get_attribute_value EMAIL, ATTRIBUTE
Xem qua sổ địa chỉ ADDRESSBOOK (hoặc tất cả các sổ địa chỉ, nếu bị bỏ qua) để tìm
liên hệ với địa chỉ email EMAIL. Nếu được tìm thấy, hàm sẽ kiểm tra xem điều này có
địa chỉ liên hệ có thuộc tính người dùng với tên ATTRIBUTE. Nó trả về giá trị của cái này
thuộc tính hoặc một chuỗi trống nếu nó không được tìm thấy. Như thường lệ, 'undef' được trả về
nếu một lỗi xảy ra.

SA_is_spam
Là một bí danh cho

không kiểm tra 'spamc -c <% F> / dev / null'

exit Đã được định nghĩa lại thành bí danh để 'dừng lại'. Bạn không nên sử dụng 'lối ra' của riêng Perl
lệnh, vì nó sẽ thoát khỏi Claws Mail.

thủ công Trả về một giá trị true nếu tập lệnh bộ lọc được gọi theo cách thủ công, tức là, thông qua
Menu công cụ.

make_sure_folder_exists IDENTIFIER
Trả về giá trị true nếu thư mục có id IDENTIFIER (ví dụ: # mh / Mail / foo / bar)
tồn tại hoặc có thể được tạo ra.

make_sure_tag_exists TAG
Trả về giá trị true nếu thẻ TAG tồn tại hoặc có thể được tạo.

filter_log PHẦN, VĂN BẢN
filter_log VĂN BẢN
Ghi TEXT vào tệp nhật ký bộ lọc. PHẦN có thể là bất kỳ

· "LOG_MANUAL"

· "LOG_MATCH"

· "LOG_ACTION"

Nếu SECTION bị bỏ qua, "LOG_MANUAL" được giả định.

filter_log_verbosity ĐỘ ĐỘNG LỰC
filter_log_verbosity
Thay đổi độ dài của nhật ký bộ lọc cho thư hiện tại. ĐỘNG TỪ phải là bất kỳ

0 Im lặng

1 loại HƯỚNG DẪN ghi nhật ký

2 Loại hành động nhật ký

3 loại Log MATCH

Để biết ý nghĩa của những con số đó, hãy đọc phần "ĐĂNG NHẬP". Nếu VERBOSITY bị bỏ qua,
độ chi tiết của tệp nhật ký bộ lọc không được thay đổi.

Hàm này trả về số filter_log_verbosity trước khi thay đổi (nếu có).

Biến

$ vĩnh viễn
Vô hướng này giữ giá trị của nó giữa các thư đã lọc. Khi bắt đầu plugin, nó là
được khởi tạo thành chuỗi trống.

ĐĂNG NHẬP

Để theo dõi những gì đã được thực hiện với các thư trong khi lọc, plugin hỗ trợ
khai thác gỗ. Ba mức độ chi tiết được công nhận:

0 ghi nhật ký bị vô hiệu hóa

1 chỉ ghi nhật ký các tin nhắn thủ công, tức là các tin nhắn được giới thiệu bởi lệnh "filter_log" trong
tập lệnh lọc

2 nhật ký thông báo thủ công và các hành động lọc

3 nhật ký thông báo thủ công, các hành động lọc và lọc các kết quả phù hợp

Các tin nhắn được ghi vào cửa sổ nhật ký của Claws Mail. Cấp độ nhật ký mặc định là 2. Cấp độ nhật ký
3 không được khuyến khích, bởi vì các chức năng đối sánh ghi lại một thông báo nếu chúng thành công, và
do đó, nếu bạn có kiểm tra âm, bạn sẽ nhận được các mục nhập khó hiểu. Nếu bạn muốn theo dõi
so khớp, thực hiện theo cách thủ công, sử dụng "filter_log" hoặc thực hiện bằng cách bật tạm thời trình so khớp
ghi nhật ký bằng "filter_log_verbosity".

Lần đầu tiên bạn dỡ bỏ plugin này (hoặc tắt Claws Mail), một phần được gọi là
[Plugin Perl] sẽ được tạo trong tệp cấu hình Claws Mail ' móng vuốt, chứa một
biến:

* filter_log_verbosity

Nếu bạn muốn thay đổi hành vi mặc định, bạn có thể chỉnh sửa dòng này. Đảm bảo Claws Mail
không chạy trong khi bạn làm điều này.

Có thể truy cập cài đặt này thông qua GUI, ngay khi tôi tìm thấy thời gian để
viết một plugin GTK tương ứng hoặc ai đó khác quan tâm đến việc đóng góp nó.

THÍ DỤ

Phần này liệt kê một ví dụ nhỏ về tệp kịch bản Perl. Tôi chắc rằng bạn hiểu rõ ..

# -8 <---------------------------------------------- ------
# - * - perl - * -

# chức năng cục bộ

# Tìm hiểu thông điệp ham và di chuyển chúng vào thư mục được chỉ định. Đây là
# hữu ích để đảm bảo bộ lọc bayes cũng nhìn thấy thịt nguội.
sub learning_and_move {
execute ('đặt lệnh để học ham tại đây');
di chuyển(@_);
}

# Bộ lọc thư rác hai giai đoạn. Mọi email đạt điểm cao hơn 15
# trên SpamAssassin được chuyển vào thư mục thùng rác mặc định.
# Tất cả các thư thấp hơn mức đó, nhưng cao hơn của SpamAssassin
# 'Requi_hits' chuyển vào mục # mh / mail / Spam.
kiểm tra thư rác phụ {
$ chắc chắn_spam = 15 của tôi;
$ filepath = filepath của tôi;
my $ spamc = `spamc -c <$ filepath`;
của tôi ($ value, $ ngưỡng) = ($ spamc = ~ m | ([-., 0-9] +) / ([-., 0-9] +) |);
if ($ value> = $ sure_spam) {
đánh dấu là đã đọc;
di chuyển vào thùng rác;
}
if ($ value> = $ ngưỡng) {mark_as_read; di chuyển '# mh / mail / Spam';}
}

# Perl script bắt đầu thực thi ở đây.

# Một số phân loại cụ thể
learning_and_move '# mh / mail / MailLists / Claws Mail / user'
if matchcase ('sender', '[email được bảo vệ]');
learning_and_move '# mh / mail / MailLists / Sylpheed'
if matchcase ('list-id', 'sylpheed.good-day.net');

# Triển khai các thư mục imcomming bằng cách sử dụng sổ địa chỉ
# thuộc tính. Các thư mục đích cho các địa chỉ email cụ thể là
# được lưu trữ trực tiếp trong sổ địa chỉ. Bằng cách này, nếu một email
# thay đổi địa chỉ, chúng tôi chỉ phải cập nhật sổ địa chỉ, không phải
# quy tắc bộ lọc! Bên cạnh đó, chúng ta có thể thu gọn
# tập lệnh lọc.

# lấy địa chỉ email trong tiêu đề from
my $ fromheader = header "from";
của tôi ($ from) = extract_addresses $ fromheader;

# kiểm tra xem địa chỉ email này có thuộc tính liên kết không
# được gọi là "incomming_folder". Nếu có, giá trị của điều này
Thuộc tính # được coi là thư mục đích.
my $ value = get_attribute_value $ from, "incomming_folder";
learning_and_move ($ value) nếu $ value;

# Ví dụ về danh sách trắng: Nếu địa chỉ từ nằm trong
# sổ địa chỉ "office", di chuyển thư vào thư mục # mh / mail / office
learning_and_move '# mh / mail / office' if from_in_addressbook ("office");

# Nếu địa chỉ từ nằm trong bất kỳ sổ địa chỉ nào khác, hãy di chuyển
# thư vào thư mục # mh / mail / inbox / known
learning_and_move '# mh / mail / inbox / known' if from_in_addressbook;

# Nạp các thư còn lại qua SpamAssassin.
kiểm tra thư rác;

# thư đến cuối tập lệnh sẽ được chuyển cho
# công cụ lọc bên trong. Nếu nội quy không nói
# nếu không, các thư sẽ nằm trong hộp thư đến mặc định.
# -8 <---------------------------------------------- ------

Sử dụng vuốt-mail-perl-filter trực tuyến bằng các dịch vụ onworks.net