#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell
##
## I do the following.  Each should be symlinked to me.
##
## razor-check    - check spam message against a Razor Catalogue Server.
## razor-register - register as a new reporter.
## razor-report   - report email as     spam to a Razor Nomination Server.
## razor-revoke   - report email as NOT spam to a Razor Nomination Server.
##
## Copyright (c) 1998, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: razor-client,v 1.6 2002/06/21 03:00:17 chad Exp $

use lib qw(lib);
use strict;
use Razor2::Client::Agent;


my $agent = new Razor2::Client::Agent($0)
    or die $Razor2::Client::Agent::errstr;
$agent->read_options()
    or die $agent->errstr ."\n";
$agent->do_conf()
    or die $agent->errstr ."\n";

#
# doit() can exit or return 
#
my $response = $agent->doit()
    or die $agent->errstr ."\n";

exit 0;  # success

