Mon, 20 Sep 2010

Classmates Posts 30000 High School Yearbooks

This is a project I've been working on.

2011 Mercedes-Benz R-Class - First Drive

From the article: "The Mercedes-Benz R-Class is a hard vehicle to classify. It has the size of an SUV, the looks of a minivan and the carlike unibody structure of a crossover. But it's not really any of them. It's roomier than your typical crossover, doesn't have sliding side doors like a minivan, and drives like a car, not a wonky SUV.

No matter how you categorize it, though, one fact remains the same: The R-Class has been the roomiest and most comfortable European-made people-mover since it was introduced to the public as a 2006 model year vehicle."

We love our 2009 R-Class we bought last October. From over a dozen vehicles we looked over and drove, it was the clear winner.

Delicious URL Autoposter

After hooking up my autoposter for movies and photos, I've completed progress on a Delicious URL autoposter.

Now I'm not a big Delicious user, but I figured that I could use delicious as the clearinghouse for sharing links with my blog readers. The previous post on this blog is the first test of the script.

For anyone who runs a blosxom blog (or anything that can use or extend what I've written) here is the code... The intent is to run this via cron hourly. There are only two configuration requirements: Your delicious user id (to read your public feed) and the path to your blog entry files (wordpress/MT users can replace the file writes with db inserts and get the same thing).

#!/usr/bin/perl # Author: Khan Klatt # Released under the GNU GPL. ( # # an hourly link parser for blosxom # uses the v2 (yahoo) rss feed. May need testing with old-school delicious user accounts. use DateTime::Format::Epoch; use DateTime::Format::Mail; use XML::FeedLite; # Delicious Constants my $delicious_id = 'YOUR_ID_HERE'; # Date Constants # To kickstart the first run and publish any backlog of posts, swap the following # two lines and change it back afterwards. my $global_date = time() - 36000000; # 10,000 Hours Ago my $global_date = time() - 3600; # One Hour Ago my $dt = DateTime->new( year => 1970, month => 1, day => 1 ); my $formatter = DateTime::Format::Epoch->new( epoch => $dt, unit => 'seconds', type => 'int', skip_leap_seconds => 1, start_at => 0, local_epoch => undef); # Post Constants my $path = 'PATH_TO_YOUR_BLOG_ENTRIES'; my $urlsposted = 0; # Get the feed from Delicious my $xfl = XML::FeedLite->new("$delicious_id"); my $delicious = $xfl->entries(); foreach my $feed (values %{$delicious}) { foreach my $item (@{$feed}) { # Convenience for item link my $link = $item->{link}[0]->{content}; # Convenience for item contents my $description = $item->{description}[0]->{content}; # Convenience for item title my $title = $item->{title}[0]->{content}; # Convenience for item date (RFC822 format) my $entry_date = $item->{pubDate}[0]->{content}; # Convenience for item date my $pub_date = DateTime::Format::Mail->parse_datetime($entry_date); # Epoch formatted date for item my $pub_date_e = $formatter->format_datetime($pub_date); # Convenience array for feed item categories my @tags = @{$item->{category}}; # Don't post stuff older than (the default of) an hour ago next if $pub_date_e <= $global_date; # Construct the Post Entry $post .= qq||; $post .= $title; $post .= qq|\n|; $post .= $description; $post .= qq||; #$post .= $pubDate; if ($tags) { $post .= "\n\nTags: "; foreach my $tag (@tags) { ; $post .= $_; } } $post =~ s/&amp;/&/g; # Fix double encoding of ampersands in HTML my $filename = $path . "/delicious" . $pub_date_e . ".txt"; umask(002); open(outfile, ">$filename") or die "Couldn't open $filename for writing."; print outfile $post; close(outfile); } } __END__


'Tangled' Trailer Flips Rapunzel Fairy Tale on its Head - The Moviefone ...

Looks interesting. Similar in character styling of "Meet the Robinsons" rather than like the Pixar produced films.

Khan Klatt

Khan Klatt's photo