#!/usr/bin/perl
use Net::Delicious;
use CGI;
use CGI::Carp;
my $del_user = 'cameron';
my $del_pass = '****';
my $import_tag = 'import';
my $q = CGI->new();
my $tags = $q->param('tags');
my $url = $q->param('url');
my $desc = $q->param('desc');
my $date = $q->param('date');
my $ext = $q->param('ext');
my $del = Net::Delicious->new({
user => $del_user,
pswd => $del_pass,
});
my $response = "";
if ($tags) {
$response = "updated $url";
$del->add_post({
url => $url,
description => $desc,
extended => $ext,
tags => $tags,
dt => $date
});
}
my @posts = $del->recent_posts({
tag => $import_tag,
count => 1
});
my $post = $posts[0];
my $url = $post->href;
my $desc = $post->description;
my $ext = $post->extended;
my $date = $post->time;
print $q->header;
my $BODY = qq(
Del.icio.us retagger
$url
$desc
$ext
$response
);
print $BODY;