File: config.ml

package info (click to toggle)
spamoracle 1.4-15
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 280 kB
  • ctags: 249
  • sloc: ml: 1,198; makefile: 135
file content (51 lines) | stat: -rw-r--r-- 1,368 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
(* Configurable parameters *)

let database_name =
  ref (try Filename.concat (Sys.getenv "HOME") ".spamoracle.db"
       with Not_found -> ".spamoracle.db")

let html_add_tags = ref false

let html_tag_attr = ref (Str.regexp_case_fold
  "a/href\\|img/src\\|img/alt\\|frame/src\\|font/face\\|font/color")

let mail_headers = ref (Str.regexp_case_fold
  "from:\\|subject:")

let spam_header = ref "X-Spam"

let attachments_header = ref "X-Attachments"

let summarize_attachments = ref true

let num_words_retained = ref 15

let max_repetitions = ref 2

let low_freq_limit = ref 0.01
let high_freq_limit = ref 0.99

let good_mail_prob = ref 0.2
let spam_mail_prob = ref 0.8

let min_meaningful_words = ref 5

open Configfile

let options = [
  "database_file", String database_name;
  "html_retain_tags", Bool html_add_tags;
  "html_tag_attributes", Regexp html_tag_attr;
  "mail_headers", Regexp mail_headers;
  "spam_header", String spam_header;
  "attachments_header", String attachments_header;
  "summarize_attachments", Bool summarize_attachments;
  "num_meaningful_words", Int num_words_retained;
  "max_repetitions", Int max_repetitions;
  "low_freq_limit", Float low_freq_limit;
  "high_freq_limit", Float high_freq_limit;
  "min_meaningful_words", Int min_meaningful_words;
  "good_mail_prob", Float good_mail_prob;
  "spam_mail_prob", Float spam_mail_prob
]