One Hat Cyber Team

Your IP: 216.73.216.74
Server IP: 104.21.16.1
Server: Linux vmi2315822.contaboserver.net 5.15.0-134-generic #145-Ubuntu SMP Wed Feb 12 20:08:39 UTC 2025 x86_64
Server Software: LiteSpeed
PHP Version: 8.3.21
Buat File | Buat Folder

View File Name : testall.pl

#!/usr/bin/perl -w
use strict;
use Test;

use lib '../lib';
use lib 'lib';

use Sys::Hostname::Long;

format STDOUT_TOP =
Method           |Title                            |Result
-----------------|---------------------------------|---------------------------------------
.

my ($method, $title, $ret);

format STDOUT =
@<<<<<<<<<<<<<<<<|@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$method, $title, $ret
.


$ret = hostname_long();
$method = "AUTOMATIC";
$title = "via " . $Sys::Hostname::Long::lastdispatch;
write;

foreach $method (Sys::Hostname::Long::dispatch_keys()) {
	$title = Sys::Hostname::Long::dispatch_title($method);
	$ret = (Sys::Hostname::Long::dispatcher($method) || ""); 
	write;
}