{"id":1826,"date":"2004-11-13T22:08:45","date_gmt":"2004-11-14T03:08:45","guid":{"rendered":"http:\/\/scruss.com\/blog\/?p=1826"},"modified":"2004-11-13T22:08:45","modified_gmt":"2004-11-14T03:08:45","slug":"ol-pointy-nose-is-back","status":"publish","type":"post","link":"https:\/\/scruss.com\/blog\/2004\/11\/13\/ol-pointy-nose-is-back\/","title":{"rendered":"Ol&#8217; Pointy-Nose Is Back &#8230;"},"content":{"rendered":"<p><a href=\"http:\/\/www.benhammersley.com\/code\/daily_doonesbury_rss_feed.html\">Ben Hammersley&#8217;s Daily Doonesbury Feed<\/a>, refactored:<\/p>\n<pre>\r\n#!\/usr\/bin\/perl -w\r\nuse strict;\r\nuse integer;\r\nuse XML::RSS;\r\n\r\nmy ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =\r\n  localtime(time);\r\n\r\nmy $this_year   = 1900 + $year;\r\nmy $todays_date = sprintf( \"%02d%02d%02d\", $this_year % 100, 1 + $mon, $mday );\r\nmy $db_url      =\r\n    'http:\/\/images.ucomics.com\/comics\/db\/'\r\n  . $this_year . '\/db'\r\n  . $todays_date . '.gif';\r\n\r\nmy $rss = XML::RSS->new();\r\n$rss->channel( title => \"Doonesbury\" );\r\n$rss->add_item(\r\n    title => 'Doonesbury for '\r\n      . sprintf( \"%05d\/%02d\/%02d\", $this_year, 1 + $mon, $mday ),\r\n    link        => $db_url,\r\n    description => '&lt;img src=\"' . $db_url . '\" \/&gt;'\r\n);\r\n\r\nprint \"Content-type: application\/xml+rss&#092;n&#092;n\", $rss->as_string;\r\nexit;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Ben Hammersley&#8217;s Daily Doonesbury Feed, refactored: #!\/usr\/bin\/perl -w use strict; use integer; use XML::RSS; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time); my $this_year = 1900 + $year; my $todays_date = sprintf( &#8220;%02d%02d%02d&#8221;, $this_year % 100, 1 + $mon, $mday ); my $db_url = &#8216;http:\/\/images.ucomics.com\/comics\/db\/&#8217; . $this_year . &#8216;\/db&#8217; [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[7],"tags":[1864,187,605],"class_list":["post-1826","post","type-post","status-publish","format-standard","hentry","category-computers-suck","tag-donesbury","tag-perl","tag-rss"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pQNZZ-ts","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/1826","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/comments?post=1826"}],"version-history":[{"count":0,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/1826\/revisions"}],"wp:attachment":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/media?parent=1826"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/categories?post=1826"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/tags?post=1826"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}