#!/usr/bin/perl -w

use strict;
use Data::Dumper;

#use lib qw( ../../../BmCategorizer/lib );

use OpenDirectory::Matcher::Google;




main();





sub main {
	my $url = $ARGV[0] or die("Syntax: $0 url [title]\n");
	my $title = $ARGV[1] || "";
	
	my $objMatcher = OpenDirectory::Matcher::Google->new();

	my $objResult = $objMatcher->objMatch(-url => $url, -title => $title) or die("Could not match ($url)\n");

	print Dumper($objResult);
	
	return(1);
	}





#EOF