bin\/blog.pm<\/title> <\/head> <body bgcolor=\"#ffffff\" text=\"#000000\"> <\/p>\n<pre> #!\/usr\/bin\/perl -w <\/font>use<\/strong> strict; use<\/strong> POSIX qw<\/strong><\/font>(<\/strong><\/font>strftime)<\/strong><\/font>; use<\/strong> Time::Local; use<\/strong> URI::Heuristic; use<\/strong> Text::Wrap; use<\/strong> vars qw\/$CGIPath $blogPath $documentRoot $documentURL $sidebarFile $syntaxChecksFile $styleSheet $followup_root $heading $title $admin_email\/<\/font>; $CGIPath<\/font> = '\/home\/adam\/public_html\/cgi-bin'<\/font>; $blogPath<\/font> = '\/adam\/cgi-bin\/weblog.pl'<\/font>; $documentRoot<\/font> = '\/home\/adam\/public_html\/blog'<\/font>; $followup_root<\/font> = $documentRoot<\/font> . '\/followups'<\/font>; $documentURL<\/font> = '\/~adam\/blog\/'<\/font>; $sidebarFile<\/font> = \"$documentRoot<\/font>\/sidebar\"<\/font>; $syntaxChecksFile<\/font> = \"$documentRoot<\/font>\/syntax_checks\"<\/font>; $title<\/font> = \"Adam Kessel's Weblog\"<\/font>; $heading<\/font> = \"Adam Kessel’s Weblog\"<\/font>; $styleSheet<\/font> = \"\/~adam\/style.css\"<\/font>; $admin_email<\/font> = \"adam\\@<\/font>bostoncoop.net\"<\/font>; $Text<\/font>::Wrap::columns = 100; # for wrapping HTML <\/font>sub PrintFollowUps<\/font> {<\/strong> my<\/strong> $entry_name<\/font> = shift<\/strong><\/font>; my<\/strong> $followup_text<\/font> = \"\"<\/font>; my<\/strong> $date_string<\/font>; $entry_name<\/font> =~ s<^$documentRoot<\/font>\/><>g; if<\/strong> (<\/strong><\/font>-e \"$followup_root<\/font>\/$entry_name<\/font>\"<\/font>)<\/strong><\/font> {<\/strong><\/font> open<\/strong><\/font> IN, \"$followup_root<\/font>\/$entry_name<\/font>\"<\/font> || return<\/strong> \"\"<\/font>; $followup_text<\/font> = \"<table width='100%'<\/font>>\\n<\/font><tr><th colspan='2' align='left' class='responses'>Linked Responses<\/th><\/tr>\"<\/font>; while<\/strong> (<\/strong><\/font><in>)<\/strong><\/font> {<\/strong><\/font> my<\/strong> (<\/strong><\/font>$epoch<\/font>, $url<\/font>, $comment<\/font>)<\/strong><\/font> = m\/^(.*?)\\t(.*?)\\t(.*)$\/<\/font>; $date_string<\/font> = &EpochToShortDate(<\/strong><\/font>$epoch<\/font>)<\/strong><\/font>; $followup_text<\/font> .= \"<tr><td width='80%'<\/font> class='responses'><a href='$url<\/font>'>$comment<\/font><\/a><\/td>\\n<\/font><td class='responses' align='right'>$date_string<\/font><\/td><\/tr>\"<\/font>; }<\/strong><\/font> $followup_text<\/font> .= \"<\/table>\"<\/font>; close<\/strong><\/font> IN; }<\/strong><\/font> return<\/strong> $followup_text<\/font>; }<\/strong><\/font> sub AddFollowUp<\/font> {<\/strong> my<\/strong> $file_name<\/font> = shift<\/strong><\/font>; my<\/strong> $url<\/font> = shift<\/strong><\/font>; my<\/strong> $comment<\/font> = shift<\/strong><\/font>; my<\/strong> $epoch<\/font> = timelocal(<\/strong><\/font>localtime<\/strong><\/font>)<\/strong><\/font>; (<\/strong><\/font>$url<\/font> = URI::Heuristic::uf_urlstr(<\/strong><\/font>$url<\/font>)<\/strong><\/font> and<\/strong> $comment<\/font> and<\/strong> $file_name<\/font>)<\/strong><\/font> || return<\/strong> 0; open<\/strong><\/font> OUT, \">>$followup_root<\/font>\/$file_name<\/font>\"<\/font> || return<\/strong> 0; print<\/strong><\/font> OUT $epoch<\/font> . \"\\t<\/font>\"<\/font> . $url<\/font> . \"\\t<\/font>\"<\/font> . $comment<\/font> . \"\\n<\/font>\"<\/font>; close<\/strong><\/font> OUT; 1; }<\/strong><\/font> sub GetMetaData<\/font> {<\/strong> open<\/strong><\/font> IN, shift<\/strong><\/font> || return<\/strong>; $_<\/font> = join<\/strong><\/font>(<\/strong><\/font>''<\/font>,<in>)<\/strong><\/font>; close<\/strong><\/font> IN; my<\/strong> %metadata<\/font> = (<\/strong><\/font>)<\/strong><\/font>; my<\/strong> @matches<\/font> = m{<\/strong><\/font><%<\/font>(<\/strong><\/font>.*)<\/strong><\/font>\\s*[<\/strong><\/font>:=]<\/strong><\/font>\\s*(<\/strong><\/font>.*?)<\/strong><\/font>\\s*>}<\/strong><\/font>gi; while<\/strong>(<\/strong><\/font> @matches<\/font> )<\/strong><\/font> {<\/strong><\/font> my<\/strong> $key<\/font> = lc<\/strong><\/font> shift<\/strong><\/font> @matches<\/font>; if<\/strong> (<\/strong><\/font>$key<\/font> eq<\/strong> \"title\"<\/font>)<\/strong><\/font> {<\/strong><\/font> $metadata<\/font>{<\/strong><\/font>$key<\/font>}<\/strong><\/font> = [<\/strong><\/font> shift<\/strong><\/font> @matches<\/font> ]<\/strong><\/font>; }<\/strong><\/font> else<\/strong> {<\/strong><\/font> my<\/strong> @values<\/font> = split<\/strong><\/font>(<\/strong><\/font> \/\\s*,\\s*\/<\/font>, shift<\/strong><\/font> @matches<\/font> )<\/strong><\/font>; $metadata<\/font>{<\/strong><\/font>$key<\/font>}<\/strong><\/font> = [<\/strong><\/font>@values<\/font>]<\/strong><\/font>; }<\/strong><\/font> }<\/strong><\/font> return<\/strong> %metadata<\/font>; }<\/strong><\/font> sub GetTopicStringFromMetaData<\/font> {<\/strong> my<\/strong> $topicArray<\/font> = shift<\/strong><\/font>; $topicArray<\/font> or<\/strong> return<\/strong> \"\"<\/font>; my<\/strong> $topicString<\/font> = \"Topics: \"<\/font>; foreach<\/strong> (<\/strong><\/font>@{$topicArray}<\/font>)<\/strong><\/font> {<\/strong><\/font> my<\/strong> $topic_filename<\/font> = &MakeTopicFilename(<\/strong><\/font>$_<\/font>)<\/strong><\/font>; $topicString<\/font> .= \"<a href='$blogPath<\/font>?rightframe=topic_$topic_filename<\/font>' class='topicindex'>\"<\/font> . $_<\/font> . \"<\/a>, \"<\/font>; }<\/strong><\/font> $topicString<\/font> =~ s\/, $\/\/g<\/font>; $topicString<\/font> .= \"<\/span>\"<\/font>; return<\/strong> $topicString<\/font>; }<\/strong><\/font> sub MakeTopicFilename<\/font> {<\/strong> my<\/strong> $topic_filename<\/font> = lc<\/strong><\/font> shift<\/strong><\/font>; $topic_filename<\/font> =~ s\/ \/_\/g<\/font>; $topic_filename<\/font>; }<\/strong><\/font> sub MetaDateToEpoch<\/font> {<\/strong> $_<\/font> = shift<\/strong><\/font>; my<\/strong> (<\/strong><\/font>$year<\/font>, $mon<\/font>, $mday<\/font>, $hour<\/font>, $min<\/font>)<\/strong><\/font> = m\/^(\\d{2,4})\\.(\\d{1,2})\\.(\\d{1,2})\\.(\\d{1,2})\\.(\\d{2})\/<\/font>; $year<\/font> < 100 and<\/strong> $year<\/font> += 100 or<\/strong> $year<\/font> > 1900 and<\/strong> $year<\/font> -= 1900; # timelocal wants dates since 1900 <\/font>$mon<\/font> -= 1; timelocal(<\/strong><\/font>0, $min<\/font>, $hour<\/font>, $mday<\/font>, $mon<\/font>, $year<\/font>)<\/strong><\/font>; }<\/strong><\/font> sub EpochToBlogDate<\/font> {<\/strong> $_<\/font> = shift<\/strong><\/font>; strftime(<\/strong><\/font>\"%A<\/font>, %B<\/font> %d<\/font>, %Y<\/font> at %I<\/font>:%M<\/font> %p<\/font>\"<\/font>, localtime<\/strong><\/font>(<\/strong><\/font>$_<\/font>)<\/strong><\/font>)<\/strong><\/font>; }<\/strong><\/font> sub EpochToShortDate<\/font> {<\/strong> $_<\/font> = shift<\/strong><\/font>; strftime(<\/strong><\/font>\"%D<\/font> %H<\/font>:%M<\/font>\"<\/font>, localtime<\/strong><\/font>(<\/strong><\/font>$_<\/font>)<\/strong><\/font>)<\/strong><\/font>; }<\/strong><\/font> sub EpochToDateOnly<\/font> {<\/strong> $_<\/font> = shift<\/strong><\/font>; strftime(<\/strong><\/font>\"%D<\/font>\"<\/font>, localtime<\/strong><\/font>(<\/strong><\/font>$_<\/font>)<\/strong><\/font>)<\/strong><\/font>; }<\/strong><\/font> # Returns the timestamp of the specified blog file, either from the last modified # or from embedded metadata (metadata always takes priority) <\/font>sub GetBlogFileDate<\/font> {<\/strong> my<\/strong> $current_file_name<\/font> = shift<\/strong><\/font>; my<\/strong> $return_value<\/font> = 0; my<\/strong> %meta_data<\/font>; (<\/strong><\/font>-e $current_file_name<\/font>)<\/strong><\/font> || return<\/strong> $return_value<\/font>; $return_value<\/font> = (<\/strong><\/font>stat<\/strong><\/font>(<\/strong><\/font>$current_file_name<\/font>)<\/strong><\/font>)<\/strong><\/font>[<\/strong><\/font>9]<\/strong><\/font>; %meta_data<\/font> = &GetMetaData(<\/strong><\/font>$current_file_name<\/font>)<\/strong><\/font>; if<\/strong> (<\/strong><\/font>$meta_data<\/font>{<\/strong><\/font>\"date\"<\/font>}<\/strong><\/font>)<\/strong><\/font> {<\/strong><\/font> $return_value<\/font> = &MetaDateToEpoch(<\/strong><\/font>$meta_data<\/font>{<\/strong><\/font>\"date\"<\/font>}<\/strong><\/font>[<\/strong><\/font>0]<\/strong><\/font>)<\/strong><\/font>; }<\/strong><\/font> $return_value<\/font>; }<\/strong><\/font> # Despite its name, FastGrep is probably not all that fast; # I think something needs to be done to precompile the pattern--although I wasn't able to figure it out. # It is passed a search string and the material to search; # it parses out the search string by spaces. In order to return true, all term smust appear in the material. # (i.e., 'google' type searching) <\/font>sub FastGrep<\/font> {<\/strong> my<\/strong> $search_string<\/font> = shift<\/strong><\/font>; my<\/strong> @search_material<\/font> = @_<\/font>; my<\/strong> $found<\/font> = 1; my<\/strong> $code<\/font>; my<\/strong> @search_string<\/font> = split<\/strong><\/font>(<\/strong><\/font>\/\\s\/<\/font>,$search_string<\/font>)<\/strong><\/font>; foreach<\/strong> my<\/strong> $current_search<\/font> (<\/strong><\/font>@search_string<\/font>)<\/strong><\/font> {<\/strong><\/font> $found<\/font> = 0 unless<\/strong> grep<\/strong><\/font> \/$current_search\/i<\/font>, @search_material<\/font>; }<\/strong><\/font> $found<\/font>; }<\/strong><\/font> sub ShowSearchResults<\/font> {<\/strong> my<\/strong> $search_string<\/font> = shift<\/strong><\/font>; my<\/strong> %meta_data<\/font>; my<\/strong> @results<\/font>; foreach<\/strong> my<\/strong> $blog_file<\/font> (<\/strong><\/font><$documentRoot<\/font>\/*>)<\/strong><\/font> {<\/strong><\/font> my<\/strong> $entry_name<\/font> = $blog_file<\/font>; open<\/strong><\/font> IN, $blog_file<\/font>; push<\/strong><\/font> @results<\/font>, $blog_file<\/font> if<\/strong> &FastGrep(<\/strong><\/font>$search_string<\/font>, <in>)<\/strong><\/font>; close<\/strong><\/font> IN; }<\/strong><\/font> print<\/strong><\/font> \"<div class='blogtitle'>Search Results<\/div>\\n<\/font>\"<\/font>; print<\/strong><\/font> \"Sorry, there were no results. You can try a new search if you want. Note that all terms must match; if you want to do an “or” search, try using a | between your search terms.<\/p>\"<\/font> . &StringSearchBox unless<\/strong> @results<\/font>; foreach<\/strong> my<\/strong> $current_file_name<\/font> (<\/strong><\/font>@results<\/font>)<\/strong><\/font> {<\/strong><\/font> my<\/strong> (<\/strong><\/font>$description<\/font>, $topics<\/font>)<\/strong><\/font> = &BlogItemSummary(<\/strong><\/font>$current_file_name<\/font>)<\/strong><\/font>; print<\/strong><\/font> &UniversalFormat(<\/strong><\/font>$description<\/font>)<\/strong><\/font>; }<\/strong><\/font> }<\/strong><\/font> sub StringSearchBox<\/font> {<\/strong> <<eof; <form action='$blogPath'<\/font> method='post'<\/font>> 'feedbackform'<\/font>> <input type='submit'<\/font> value='Search:'<\/font> \/> <input type='text'<\/font> name='search'<\/font> size='20'<\/font> maxlength='40'<\/font> \/> <\/span> <\/p> <\/form> EOF }<\/strong><\/font> sub BlogItemSummary<\/font> {<\/strong> my<\/strong> $blog_file<\/font> = shift<\/strong><\/font>; my<\/strong> (<\/strong><\/font>$item_description<\/font>, %meta_data<\/font>)<\/strong><\/font>; my<\/strong> $blog_timestamp<\/font> = &GetBlogFileDate(<\/strong><\/font>$blog_file<\/font>)<\/strong><\/font>; my<\/strong> @topics<\/font>; %meta_data<\/font> = &GetMetaData(<\/strong><\/font>$blog_file<\/font>)<\/strong><\/font>; return<\/strong> \"\"<\/font> unless<\/strong> $meta_data<\/font>{<\/strong><\/font>\"title\"<\/font>}<\/strong><\/font>; $blog_file<\/font> =~ s<^$documentRoot<\/font>\/><>; $item_description<\/font>=\"<rightframe $blog_file<\/font>>\"<\/font> . $meta_data<\/font>{<\/strong><\/font>\"title\"<\/font>}<\/strong><\/font>[<\/strong><\/font>0]<\/strong><\/font> . '<\/a> '<\/font> . EpochToBlogDate(<\/strong><\/font>$blog_timestamp<\/font>)<\/strong><\/font> . ' <\/span> '<\/font>; if<\/strong> (<\/strong><\/font>&GetTopicStringFromMetaData(<\/strong><\/font>$meta_data<\/font>{<\/strong><\/font>\"keywords\"<\/font>}<\/strong><\/font>)<\/strong><\/font>)<\/strong><\/font> {<\/strong><\/font> $item_description<\/font> .= \" \"<\/font> . &GetTopicStringFromMetaData(<\/strong><\/font>$meta_data<\/font>{<\/strong><\/font>\"keywords\"<\/font>}<\/strong><\/font>)<\/strong><\/font> . \"<\/p>\\n<\/font>\"<\/font>; foreach<\/strong> (<\/strong><\/font>@{$meta_data{\"keywords\"}<\/font>}<\/strong><\/font>)<\/strong><\/font> {<\/strong><\/font> push<\/strong><\/font> @topics<\/font>, $_<\/font>; }<\/strong><\/font> }<\/strong><\/font> return<\/strong> (<\/strong><\/font>$item_description<\/font>, @topics<\/font>)<\/strong><\/font>; }<\/strong><\/font> sub UniversalFormat<\/font> {<\/strong> $_<\/font> = \">\"<\/font> . join<\/strong><\/font>(<\/strong><\/font>''<\/font>,@_<\/font>)<\/strong><\/font> . \"<\"<\/font>; my<\/strong> $string<\/font> = $_<\/font>; while<\/strong> (<\/strong><\/font>$string<\/font> =~ s{<\/strong><\/font><%embed<\/font>:(<\/strong><\/font>.*?)<\/strong><\/font>>}<\/strong><\/font>{<\/strong><\/font> REPLACETEXTHERE}<\/strong><\/font>i)<\/strong><\/font> {<\/strong><\/font> my<\/strong> $embedded_blog_link<\/font> = $1<\/font>; my<\/strong> $embedded_document<\/font> = &show(<\/strong><\/font>$documentRoot<\/font> . \"\/\"<\/font> . $embedded_blog_link<\/font>,1)<\/strong><\/font>; $embedded_document<\/font> =~ s{<\/strong><\/font>blogtitle}<\/strong><\/font>{<\/strong><\/font>blogsubtitle}<\/strong><\/font>g; $embedded_document<\/font> =~ s{<\/strong><\/font>(<\/strong><\/font>blogsubtitle.*?>)<\/strong><\/font>(<\/strong><\/font>.*?)<\/strong><\/font>(<\/strong><\/font><)<\/strong><\/font>}<\/strong><\/font> {<\/strong><\/font>$1<\/font><a class=\"blogsubtitle\" href=\"$blogPath?rightframe=<\/font>$embedded_blog_link<\/font>\">$2<\/font><\/a>$3<\/font>}g; $string<\/font> =~ s\/REPLACETEXTHERE\/$embedded_document<\/font>\/; } $_<\/font> = $string<\/font>; s{<%blog<\/font>:(.*?)>} {<div class='blogsubtitle'>$1<\/font><\/div>$&<\/font>}g; s[<%blogimage<\/font>:(.*?)>] [<img decoding=\"async\" src=\"<\/font>${documentURL}<\/font>image_$1<\/font>\" alt=\"<\/font>$1<\/font>\" \/>$&<\/font>]g; s[<%rimage<\/font>:(.*?)>] [<img decoding=\"async\" src=\"<\/font>${documentURL}<\/font>image_$1<\/font>\" alt=\"<\/font>$1<\/font>\" class=\"<\/font>insetright\" \/>$&<\/font>]g; s[<%limage<\/font>:(.*?)>] [<img decoding=\"async\" src=\"<\/font>${documentURL}<\/font>image_$1<\/font>\" alt=\"<\/font>$1<\/font>\" class=\"<\/font>insetleft\" \/>$&<\/font>]g; s[<%image<\/font>:(.*?)>] [<img decoding=\"async\" src=\"<\/font>${documentURL}<\/font>image_$1<\/font>\" alt=\"<\/font>$1<\/font>\" class=\"<\/font>insetcenter\" \/>$&<\/font>]g; s{<pdf\\s<\/font>*([^>]*?)>} {<a href=\"<\/font>$documentURL<\/font>$1<\/font>.pdf\">PDF version<\/a> [<rightframe pdf>info<\/a>]}gi; s{<rightframe\\s<\/font>*([^>]*?)>} {<a href=\"<\/font>$blogPath<\/font>?rightframe=$1<\/font>\">}g; s{<bloglink\\s<\/font>*([^>]*?)>} {<a href=\"<\/font>$documentURL<\/font>$1<\/font>\">}g; s{(<pre>.*<\/pre>\n)} {WEBLOGPLACEHOLDER}is; # Remove a <\/p>\n<pre> section, if there is one, to be put back afterwards my $preSection<\/font> = $1<\/font>; s{ }{<br\/>}gi; s{<hr \/>}{<hr\/>}gi; s{(<img[^>]*[^\/])>}{$1<\/font> \/>}gi; s{&([^;]*? )}{&$1<\/font>}g; # Only replace & with & when the & isn't already an HTML escape sequence! while (s{>([^<]*?)``(.*?)''(.*?)<} {>$1<\/font>“$2<\/font>”$3<\/font><}gs) {}; while (s{>([^<]*?)\"<\/font>(<\/strong><\/font>[<\/strong><\/font>^\"]*?)\"<\/font>(<\/strong><\/font>.*?)<\/strong><\/font><}<\/strong><\/font> {<\/strong><\/font>>$1<\/font>“$2<\/font>”$3<\/font><}<\/strong><\/font>gs)<\/strong><\/font> {<\/strong><\/font>}<\/strong><\/font>; while<\/strong> (<\/strong><\/font>s{<\/strong><\/font>>(<\/strong><\/font>[<\/strong><\/font>^<]<\/strong><\/font>*?)<\/strong><\/font>`(<\/strong><\/font>[<\/strong><\/font>^']*)'<\/font>(<\/strong><\/font>.*?)<\/strong><\/font><}<\/strong><\/font> {<\/strong><\/font>>$1<\/font>‘$2<\/font>’$3<\/font><}<\/strong><\/font>gs)<\/strong><\/font> {<\/strong><\/font>}<\/strong><\/font>; while<\/strong> (<\/strong><\/font>s{<\/strong><\/font>>(<\/strong><\/font>[<\/strong><\/font>^<]<\/strong><\/font>*?\\s)<\/strong><\/font>'([^'<\/font>]<\/strong><\/font>*)<\/strong><\/font>'([\\s<\/font>,;\\.<\/font>].*?)<} {>$1‘$2’$3<}gs) {}; while (s{>([^<]*?)'<\/font>}<\/strong><\/font> {<\/strong><\/font>>$1<\/font>’}<\/strong><\/font>gs)<\/strong><\/font> {<\/strong><\/font>}<\/strong><\/font> s\/WEBLOGPLACEHOLDER\/$preSection\/<\/font>; # Put back any removed <pre> section. <\/font>s\/^>|<$\/\/g<\/font>; s{<\/strong><\/font><%<\/font>(<\/strong><\/font>.*?)<\/strong><\/font>>}<\/strong><\/font> {<\/strong><\/font>}<\/strong><\/font>g; $_<\/font>; }<\/strong><\/font> 1; <\/pre>\n<hr \/>\n syntax highlighted by <a href=\"http:\/\/www.palfrader.org\/code2html\">Code2HTML<\/a>, v. 0.9.1 <\/body> <\/html><\/p>\n","protected":false},"excerpt":{"rendered":"bin\/blog.pm #!\/usr\/bin\/perl -w use strict; use POSIX qw(strftime); use Time::Local; use URI::Heuristic; use Text::Wrap; use vars qw\/$CGIPath $blogPath $documentRoot $documentURL $sidebarFile $syntaxChecksFile $styleSheet $followup_root $heading $title $admin_email\/; $CGIPath = ‘\/home\/adam\/public_html\/cgi-bin’; $blogPath = ‘\/adam\/cgi-bin\/weblog.pl’; $documentRoot = ‘\/home\/adam\/public_html\/blog’; $followup_root = $documentRoot . ‘\/followups’; $documentURL = ‘\/~adam\/blog\/’; $sidebarFile = “$documentRoot\/sidebar”; $syntaxChecksFile = “$documentRoot\/syntax_checks”; $title = “Adam Kessel’s Weblog”; […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[17],"tags":[],"_links":{"self":[{"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/posts\/441"}],"collection":[{"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/comments?post=441"}],"version-history":[{"count":0,"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/posts\/441\/revisions"}],"wp:attachment":[{"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/media?parent=441"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/categories?post=441"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/adam.rosi-kessel.org\/weblog\/wp-json\/wp\/v2\/tags?post=441"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}

{"id":441,"date":"2003-04-17T03:00:00","date_gmt":"2003-04-17T03:00:00","guid":{"rendered":"http:\/\/adam.rosi-kessel.org\/weblog\/free_software\/code\/blog.pm.html.html"},"modified":"-0001-11-30T00:00:00","modified_gmt":"1970-01-01T05:00:00","slug":"blogpmhtml","status":"publish","type":"post","link":"http:\/\/adam.rosi-kessel.org\/weblog\/2003\/04\/17\/blogpmhtml","title":{"rendered":""},"content":{"rendered":"