+ // I did most of the MIME stuff yesterday (June 20, 2000), but I couldn't
+ // figure out how to do this part, so I decided to go to bed. I woke up
+ // in the morning and had a flash of insight. I went to the white-board
+ // and scribbled it out, then spent a bit programming it, and this is the
+ // result. Nothing complicated, but I think my brain was fried yesterday.
+ //
+ // This gets properties in a nested parenthesisized list. For example,
+ // this would get passed something like: ("attachment" ("filename" "luke.tar.gz"))
+ // This returns an array called $props with all paired up properties.
+ // It ignores the "attachment" for now, maybe that should change later
+ // down the road. In this case, what is returned is:
+ // $props[0]["name"] = "filename";
+ // $props[0]["value"] = "luke.tar.gz";
+ function mime_get_props ($props, $structure) {
+ while (strlen($structure) > 0) {
+ $structure = trim($structure);
+ $char = substr($structure, 0, 1);
+
+ if ($char == "\"") {
+ $pos = 1;
+ $char = substr($structure, $pos, 1);
+ while ($char != "\"" && $pos < strlen($structure)) {
+ $tmp .= $char;
+ $pos++;
+ $char = substr($structure, $pos, 1);
+ }
+ $structure = trim(substr($structure, strlen($tmp) + 2));
+ $char = substr($structure, 0, 1);
+
+ if ($char == "\"") {
+ $pos = 1;
+ $char = substr($structure, $pos, 1);
+ while ($char != "\"" && $pos < strlen($structure)) {
+ $value .= $char;
+ $pos++;
+ $char = substr($structure, $pos, 1);
+ }
+ $structure = trim(substr($structure, strlen($tmp) + 2));
+
+ $k = count($props);
+ $props[$k]["name"] = $tmp;
+ $props[$k]["value"] = $value;
+ } else if ($char == "(") {
+ $end = mime_match_parenthesis (0, $structure);
+ $sub = substr($structure, 1, $end-1);
+ $props = mime_get_props($props, $sub);
+ $structure = substr($structure, strlen($sub) + 2);
+ }
+ return $props;
+ } else if ($char == "(") {
+ $end = mime_match_parenthesis (0, $structure);
+ $sub = substr($structure, 1, $end-1);
+ $props = mime_get_props($props, $sub);
+ $structure = substr($structure, strlen($sub) + 2);
+ } else {
+ return $props;
+ }
+ }
+ }