+}
+EOF;
+ }
+
+ function to_string($_data) {
+ switch($_data[1]) {
+ case 0:
+ $res = '^(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):(.*[^-a-zA-Z0-9_.])?)';
+ break;
+ case 1: $res = '^Subject:'; break;
+ case 2: $res = '^From:'; break;
+ case 3: $res = '^To:'; break;
+ case 4: $res = '^Cc:'; break;
+ case 5: $res = '^Reply-To:'; break;
+ case 6: $res = '^Organization:'; break;
+ case 7: $res = '^List-Id:'; break;
+ case 8: $res = '^X-Mailing-List:'; break;
+ }
+ switch($_data[2]) {
+ case 0: $res = "(/$res.*{$_data[3]}/:h)"; break;
+ case 1: $res = "!(/$res.*{$_data[3]}/:h)"; break;
+ case 2: $res = "(/$res {$_data[3]}$/:h)"; break;
+ case 3: $res = "!(/$res {$_data[3]}$/:h)"; break;
+ }
+ return $res;