#!/usr/bin/perl -w

use strict;

use Net::Delicious;

my $delUser = 'cameron';
my $delPass = '****';

my $export_file = $ARGV[0] || die "usage: delicious_import.pl export_file\n";

my $del = Net::Delicious->new({
    user   => $delUser,
    pswd   => $delPass
    });

open IN, '<$export_filename';
while (<IN>) {
    chomp;
    my ($date,$url,$desc,$ext) = split /\t/;
    print "adding $url\n";
    $del->add_post({
	url         => $url,
	description => $desc,
	extended    => $ext,
	tags        => 'import',
	dt          => $date
	});
    sleep 1;
}