#!/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.5 2002/06/02 02:39:08 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;
$agent->do_conf()
    or die $agent->errstr;

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

exit 0;  # success

