uawdijnntqw1x1x1
IP : 216.73.216.23
Hostname : web17.us.cloudlogin.co
Kernel : Linux web17.us.cloudlogin.co 5.10.238-xeon-hst #1 SMP Thu Jun 5 12:15:42 UTC 2025 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
..
/
bin
/
razor-revoke
/
/
#!/usr/bin/perl -w ## ## I do the following. ## ## 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-revoke,v 1.1 2005/06/16 19:45:54 rsoderberg Exp $ use strict; use Razor2::Client::Agent; my $agent = new Razor2::Client::Agent('razor-revoke') 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;
/home/../bin/razor-revoke