Check-in Number:
|
1844 | |
Date: |
2002-Feb-13 14:46:58 (local)
2002-Feb-13 13:46:58 (UTC) |
User: | thl |
Branch: | |
Comment: |
brainstorming |
Tickets: |
|
Inspections: |
|
Files: |
|
ossp-pkg/lmtp2nntp/00TODO 1.53 -> 1.54
--- 00TODO 2002/02/07 12:54:04 1.53
+++ 00TODO 2002/02/13 13:46:58 1.54
@@ -95,3 +95,51 @@
crossposting problem -h [Newsgroups:see perl example above and use feature 2.)\n]
potential to merge post/header modes -h [Newsgroups:${_EnvelopeRCPT}\n]
+ **** DETAILS ****
+
+ create an array with columns for "header" and every value, index is "header";
+
+ -h [priority]:[regex]:header:[value]
+
+ # merge values from duplicate headers and separte them with "comma space"
+ -h :(Reply-To|To|Cc|Bcc):$0: [%{$0[#]}%{$0[#+1]:+, }]
+
+ # keep only first value from duplicate headers
+ -h :(X-Firstonly):$0: %{$0[0]}
+
+ # replace empty Subject with text "None"
+ -h :Subject: %{$Subject:-None}
+
+ # create Message-ID if omitted or illegal (<> single @)
+ -h :Messageid: %{messagid:s/^([^@+@[^@]+)$/<$1/:s/^[^<].*$/%{tool.createmessageid}/}
+
+ # append a header
+ -h ::X-Append: Tail
+
+ # remove a header (empty value)
+ -h ::X-Delete:
+
+ foreach rule {
+ if (rule has regex) {
+ foreach header {
+ if (regex matches) {
+ createheader
+ substitutevalue
+ writeheader(overwrite_if_existing)
+ }
+ }
+ }
+ else { /* rule has no regex */
+ createheader
+ substitutevalue
+ writeheader(overwrite_if_existing)
+ }
+ }
+
+
+
+
+
+
+
+
|
|