#!/usr/bin/perl

# a weekly del.icio.us link parser for Ecto

# this perl script uses Net::Delicious to access a user's del.icio.us
# account, pulls the most recent links tagged with a special tag,
# and sends them to the currently-open draft in Ecto.

# set the user-configurable variables below before using

# Based on the daily link poster for WordPress by 
# Stephen Le (http://stephen.evilcoder.com)

use Net::Delicious;

my $entryfile = $ARGV[0];


###############################
# user-configurable variables #
###############################

my $del_username = "";             # your del.icio.us username
my $del_password = "";             # your del.icio.us password

my $spec_tag = "blogthis";		# Special tag for links that you want to post

###################################
# end user-configurable variables #
###################################

# initialize Net::Delicious objects and get posts
my $del =
  Net::Delicious->new( { user => $del_username, pswd => $del_password } );
die "Unable to connect to del.icio.us.\n" unless $del;

my @posts = $del->recent_posts( { tag => $spec_tag } );

my $html;

# generate the HTML

$html = "<ul>\n";

foreach (@posts) {
    my ( $href, $description, $tags, $extended ) =
      ( $_->href, $_->description, $_->tags, $_->extended );
    # Edit this bit if you want to change the format of your link-list
    my $line =
      "<li>" . "<a href=\"$href\" title=\"$description\">$description</a>";
    if ($extended) {
        $line .= " -- $extended";
    }
    if ($tags) {
        $line .= "\n(tags:";
        foreach ( ( split /\s+/, $tags ) ) {
            $line .= " <a href=\"http://del.icio.us/$del_username/$_\">$_</a>";
        }
        $line .= ")";
    }
    $line .= "</li>\n";    # close HTML tag
    $html .= $line;
}

$html .= "</ul>\n";

print $html;