File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/bin/razor-check
Back
#!/usr/local/cpanel/3rdparty/perl/542/bin/perl -w ## ## I do the following. ## ## razor-check - check spam message against a Razor Catalogue 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-check,v 1.1 2005/06/16 19:45:54 rsoderberg Exp $ use strict; use Razor2::Client::Agent; my $agent = new Razor2::Client::Agent('razor-check') 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;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.04 |
proxy
|
phpinfo
|
Settings