#!/usr/bin/perl -w ## ## I do the following. Each should be symlinked to me. ## ## razor-check - check spam message against a Razor Catalogue Server. ## razor-report - report email as spam to a Razor Nomination Server. ## razor-revoke - report email as NOT spam to a Razor Nomination Server. ## razor-admin - registers a new reporter, creates razorhome, etc.. ## ## 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.1 2004/04/19 17:50:30 dasenbro 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"; # quiet warning my $dummy = $Razor2::Client::Agent::errstr; # # doit() will not exit # my $response = $agent->doit(); if ($response > 1) { # error print STDERR $agent->errstr; } exit $response;