Contents of this page:
\n"; $img_extensions = array("png", "apng", "avif", "bmp", "ico", "tif", "tiff", "jpg", "jpeg", "gif", "svg", "webp"); $aud_extensions = array("mp3", "wav", "ogg", "m4a","opus","flac"); $vid_extensions = array("mp4", "ogg", "webm"); // == MAIN LOOP while(!feof($file)) { $line_no += 1; $line_untrimmed = fgets($file); $line = trim($line_untrimmed); $line_len = strlen($line); // == POLYGLOT gemtext/pdf // If this is gemtext/pdf polyglot .gmi skip the first four lines; this only works with files generated by gemdoc from https://github.com/seifferth/gemdoc if($line_no == 1) { if ($line == "%PDF-1.7") { $is_pdf = true; $body .= "\n"; continue; } else { // ToDo: rework this: what if the first line of the file begins ">". "=>", "*", or "```"? $lntype = $line[0] == "#" ? "h1" : "p"; // index.gmi uses "👴 jdcard" as the

level header, in other pages it is a plain line $body .= "\n"; $title = htmlentities(substr($line, 2, $line_len-2)); $body .= " <$lntype>".htmlentities($lntype == "h1" ? substr($line, 2, $line_len-2) : $line)."\n"; // index.gmi continue; } } // skip past the pdf data that we don't want to see if($is_pdf == true and $line_no <5) { continue; } // If this is a gemtext/pdf polyglot file, create a link to view it as pdf, then stop processing the file at the end of the gemtext portion if($is_pdf == true and $line == "endstream") { $pdf_file = str_replace(".gmi", ".pdf", $fname); // create name for pdf symlink $pdf_file = substr($pdf_file, 1); // trim the leading "/" path character $fname = preg_replace("/\/.*\//", "", $fname); // strip path, leave file-name $fname = preg_replace("/\/?/", "", $fname); // previous line sometimes left an inital "/" symlink($fname, $pdf_file); // create symlink to this file with a .pdf extension $pdf_file = preg_replace("/^.*\//", "", $pdf_file); // strip path, leave file-name $body .= "

---

\n

View this document as a PDF

\n"; // add a link in this document to the pdf file // $body .= " "; // DEBUG break; } // == THEMATIC BREAK - horizontal rule; ⁂ "Asterism" character, see https://en.wikipedia.org/wiki/Dinkus if(substr($line, 0, 3) == "---" || $line == "⁂" ) { $body .= "

---

\n"; continue; } // == PREFORMATTED if($line_len >= 3 && substr($line, 0, 3) == "```") { if($blockquote_open && $line[0] != ">") {$blockquote_open = false;} $preformatted = !$preformatted; if($preformatted) { $body .= "

";
        } else {
            $body .= "

\n"; } continue; } if($preformatted) { $body .= htmlentities($line_untrimmed); continue; } // == LINKS if(strpos($line, "=>") === 0) { $line = ltrim($line, "=> \t"); if(strlen($line) == 0) { continue; } $first_space = strpos($line, " "); $first_tab = strpos($line, "\t"); $link_target = ""; $link_label = ""; if($first_space === false && $first_tab === false) { $link_target = $line; $link_label = $line; } else { if($first_space === false) $first_space = 999999; if($first_tab === false) $first_tab = 999999; $parts = []; if($first_space < $first_tab) { $parts = explode(" ", $line, 2); } else { $parts = explode("\t", $line, 2); } $link_target = $parts[0]; $link_label = parse_line(htmlentities($parts[1])); } $extension = substr(strrchr($link_target, '.'), 1); // == INLINE DISPLAY of linked images, audio, and video content if(in_array(strtolower($extension), $img_extensions)) { // symlink("$fpath/$link_target", "$link_target"); // needed only on my development machine at home $body .= "

 $link_label

\n"; } elseif (in_array(strtolower($extension), $aud_extensions)) { $body .= "

$link_label

\n"; } elseif (in_array(strtolower($extension), $vid_extensions)) { $body .= "

$link_label

\n"; // == INLINE DISPLAY of CSV data } elseif (strtolower($extension) == "csv") { $csvfile = fopen("$link_target", "r"); // apparently disabled on hickory.he.net, works fine in development environment if ($csvfile !== false) { $body .= "

$link_label

$link_label

$link_label

\n"; } $line = ltrim($line, "* \t"); $body .= "
• ".parse_line($line)."
\n"; continue; } else if($list_open && $line[0] != "*") { $list_open = false; $body .= "

\n"; } $line = ltrim(parse_line($line), "> \t"); } else if($blockquote_open && $line[0] != ">") { $blockquote_open = false; $body .= "

".parse_line($line)."

".parse_line($line)."