root/honeyclient/tags/rel/1.0.2/bin/insert_queue_urls.pl

#!/usr/bin/perl -w -Ilib

# $Id: insert_queue_urls.pl 1251 2008-02-22 20:04:44Z kindlund $

use strict;
use warnings;

use Data::Dumper;
use HoneyClient::Manager::Database;

my $urls = {
    'http://www.cpan.org/' => 20,
    'http://www.craigslist.org/' => 100,
};

my $output = HoneyClient::Manager::Database::insert_queue_urls($urls);
print Dumper($output) . " URL(s) inserted.\n";