One Hat Cyber Team
Your IP :
172.70.80.191
Server IP :
188.114.97.4
Server :
Linux thuru 6.5.11-4-pve #1 SMP PREEMPT_DYNAMIC PMX 6.5.11-4 (2023-11-20T10:19Z) x86_64
Server Software :
Apache/2.4.51 (Unix) OpenSSL/1.0.2k-fips
PHP Version :
7.3.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
bin
/
Edit File:
razor-check
#!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell ## ## 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 lib qw(lib); 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;
Simpan